Xuất phát từ bài toán: “Tính n. bằng thuật toán đệ quy”.[r]
(1)3) Xét tương tự
Xuất phát từ tốn: “Tính n! thuật tốn đệ quy” Var n: Integer;
Function GT(a:Integer): Real; Begin
If a = 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ự, yêu cầu học sinh thực giải tốn: “Tính an
bằng thuật toán đệ quy” Var a, n: Integer;
Function Mu(x:Integer; y:Integer):Real; Var T: Real;
Begin
If y = Then Mu:=1 Else Begin
Mu:=Mu(x, y - 1) * x; End;
End; Begin
(2)Writeln(a,' mu ',n,' = ',Mu(a , n):0:0); Readln