CÂU 19

PROGRAM baitap19_canbachai;
uses crt;
var x,i:integer;
      t:real;
BEGIN
        clrscr;
        write('Nhap vao so x voi x > 0: ');
        readln(x);
        t:=x / 2;
        for i:=1 to x do   {vong lap cho x}
                if ((t*t-x)/2) <0 then
                        while ((t*t-x)/2)*-1 >= 0.000001 do
                                t:=(x/t-t)/2+t
                else
                         while (t*t-x)/2 >= 0.000001 do
                                t:=(x/t-t)/2+t;
        writeln('Can bac 2 cua ',x,' la : ' ,t:2:2); {t:2:2 — làm tròn lấy hai chữ số thập}
        readln;
END.

---------------------------------

CÂU 20

PROGRAM baitap20_tinhluythua;
uses crt;
Var a,n:integer;
function luythua(a,n:integer):longint;
   var i:integer; kq:longint;
   BEGIN
      kq:=1;
      for i:=1 to n do
      kq:=kq*a;
     luythuat:=kq;
   END;
BEGIN
     clrscr;
     writeln('CHUONG TRINH TINH a^n:');
     writeln('----------------------------------');

     write('Nhap a = '); readln(a);

     write('Nhap n = '); readln(n);

     writeln(a,'^',n,' = ', luythua(a,n));
     readln;
END.

---------------------------------

Mình được hai câu bạn nha. Đúng hết thì nhớ bình chọn câu trả lời hay nhất cho mình. Mình cảm ơn. Hihi.