Tìm kiếm:

function fibo(n:longint):extended;
var i:longint;
fi_1,fi_2,fi:extended;
begin
if n<=1 then exit(n);
for i:=2 to n do begin
fi:=fi_1+fi_2;
fi_2:=fi_1;
fi_1:=fi;
end;

Thầy em ra bài này, em cũng không làm được các anh hướng giúp cái

Nhập số a mũ x tính a^x biết x<0;
Thank

giúp mình cái nha. hihihi

em đánh y trong tờ báo đấy ạ.

Đong nước

Nền phẳng của một công trường xây dựng đã được chia thành lưới ô vuông đơn vị kích thước mxn ô. Trên mỗi ô (i,j) của lưới, người ta dựng một cột bê tông hình hộp có đáy là ô (i,j)và...

Đề: dung thuật toán đệ quy tính a^n ;
biết a và n là hai số nhập từ bàn phím.
var a,n:integer;
Function mu(n:integer):real;
Begin
if n=1 then mu:=1
else mu:=a*mu(n-1);
end;
Begin
Write('Nhap...

Thế nào là thuật toán quy động hạch ạ

Các anh cho em mấy bài tập pascal để chuẩ bị đi thi lớp 9

Cảm ơn các anh, chị.