Thursday, June 24, 2010

mencari FPB &KPK dengan pascal


FPB & KPK 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

No comments: