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.


Komentar

Postingan populer dari blog ini

Sistem Operasi

KASUS DAN SOLUSI PRASANGKA DISKRIMINASI DAN ETNOSENTRISME

MIGRASI: Pengertian, Tujuan, Jenis, dan Faktor Penyebab