Tinh n bang thuat toan de quy
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (86.54 KB, 2 trang )
<span class='text_page_counter'>(1)</span><div class='page_container' data-page=1>
<b>3) Xét tương tự</b>
Xuất phát từ bài tốn: “Tính n! bằng thuật tốn đệ quy”.
Var n: Integer;
Function GT(a:Integer): Real;
Begin
If a = 0 Then GT:=1
Else GT:=GT(a - 1) * a;
End;
Begin
Write('Nhap n = '); Readln(n);
Writeln(n,'! = ', GT(n):0:0);
Readln
End.
Tương tự, chúng ta yêu cầu học sinh thực hiện giải bài tốn:<i> “Tính an</i>
<i>bằng thuật toán đệ quy”</i>
Var a, n: Integer;
Function Mu(x:Integer; y:Integer):Real;
Var T: Real;
Begin
If y = 0 Then Mu:=1
Else Begin
Mu:=Mu(x, y - 1) * x;
End;
End;
Begin
</div>
<span class='text_page_counter'>(2)</span><div class='page_container' data-page=2>
Writeln(a,' mu ',n,' = ',Mu(a , n):0:0);
Readln
</div>
<!--links-->
