menghitung FPB dan KPK menggunakan pascal
menghitung FPB duluan…
logika FPB =>
Kepanjangan : Faktor Persekutuan terBesar
Artinya : Merupakan faktor-faktor pembagi yang paling besar dari suatu bilangan.
yaitu menentukan faktor2 dari dua bilangan yang merupakan perseketuan dan nilainya terbesar..
uses crt;
var A,B,P :longint;
Begin
clrscr;
readln(A,B);
if A
repeeat
P:=P-1;
until (A mod P=0) and (B mod P=0);
writeln('FPB = ',P);
readln;
end.
versi 2 :
uses crt;
var A,B,P :longint;
Begin
clrscr;
readln(A,B);
repeeat
P:=A mod B;
A:=B;B:=P;
until (P=0);
writeln('FPB = ',A);
readln;
end.
sekarang yang KPK
KPK = Kelipatan Persekutuan Terkecil..
adalah bilangan kelipatan dari dua bilangan atau lebih, yang bisa di bagi oleh semua bilangan yang di maksud
programnya
uses crt;
var A,B,P,I :longint;
Begin
clrscr;
readln(A,B);
if A
repeeat
I:=I+P;
until (I mod A=0) and (I mod B=0)
writeln('FPB = ',I);
readln;
end.
program di buat di FPC / Turbo Pascal 7.0
semoga bisa membantu..
selamat mencoba
