Contoh Program Pascal
Program Rekursi untuk mencari FPB (Faktor Persekutuan Terbesar) dari 2 buah bilangan bulat
Contoh:
Var m, n : integer;
Function FPB (m, n : integer): integer;
Begin
If (m=0) then
FPB := n
Else if (m<n) then
FPB := FPB (n,m)
Else
FPB := FPB (m mod n, n);
End;
Begin {Program Utama}
write ('Masukkan Bilangan I =');
Readln (m);
Write ('Masukkan Bilangan II =');
Readln (n);
Writeln;
Writeln ('Hasil FPB = ',FPB (m,n));
Readln;
End.
Program Rekursi untuk mencari FPB (Faktor Persekutuan Terbesar) dari 2 buah bilangan bulat
Contoh:
Var m, n : integer;
Function FPB (m, n : integer): integer;
Begin
If (m=0) then
FPB := n
Else if (m<n) then
FPB := FPB (n,m)
Else
FPB := FPB (m mod n, n);
End;
Begin {Program Utama}
write ('Masukkan Bilangan I =');
Readln (m);
Write ('Masukkan Bilangan II =');
Readln (n);
Writeln;
Writeln ('Hasil FPB = ',FPB (m,n));
Readln;
End.
Komentar
Posting Komentar