Rumah Info | Rumah Semua Informasi

Langsung aja kodenya, namanya juga tutorial tanpa penjelasan... hihihi..
--------------------------------------------------------------------
uses crt;
var
a,b,hasil,konstanta,c,d : integer;
s : string;

function FPB(a,b : integer): integer;
begin
if (b = 0) then
begin
FPB := a;
end else begin
FPB := FPB(b,a mod b);
end;
end;

begin
clrscr;
write('masukkan nilai ke satu : '); readln(a);
write('masukkan nilai ke dua : '); readln(b);
c := a div FPB(a,b);
d := b div FPB(a,b);
hasil := c div d;
konstanta := c - hasil * d;
if (hasil = 0) then begin
s := '';
writeln(a,'/',b,' dapat disederhanakan menjadi ',s,' ',konstanta,'/',d);
end else begin
writeln(a,'/',b,' dapat disederhanakan menjadi ',hasil,' ',konstanta,'/',d);
end;
readln;
end.
--------------------------------------------------------------------