penyederhanaan pecahan

awalnya hanya diberi tugas untuk membuat program penghitung jumlah dan selisih dari pecahan,tapi saya lupan kapan diberi tugas itu.wkwkwkwk
dan cara cepat untuk menghitungnya adalah menggunakan perkalian silang, tapi dengan menggunakan cara tersebut pecahan akan tidak sederhana atau angkanya besar². nah dari hal tersebut membuat saya terangsang untuk membuat agar pecahan tersebut menjadi sederhana :D
nah selama 2 hari saya baru dapat membuat algoritmanya sesuai dengan keinginan, karena pada awalnya tidak berjalan sempurna alias masih ada kekurangannya :D
nah ni aku kasih source code buat programnya :D
kalau ada kekurangan bilang ya :D



program coba;

uses crt;

var
pemb_awal,peny_awal,pemb_akir,peny_akir,i,e,f,g : integer;

begin
write('masukkan pecahan : ');
read(pemb_awal); write('/'); read(peny_awal);
if (pemb_awal = peny_awal) then
begin
pemb_akir:= 1;
peny_akir:= 1;
end;
if (pemb_awal = 1) or (peny_awal = 1) then
begin
pemb_akir:= pemb_awal;
peny_akir:= peny_awal;
end
else
begin
if pemb_awal > peny_awal then
e := peny_awal
else
if pemb_awal < peny_awal then e := pemb_awal; for i:=e downto 2 do begin f := (pemb_awal mod i); g := (peny_awal mod i); if (f = 0) and (g = 0) then begin pemb_akir := pemb_awal div i; peny_akir := peny_awal div i; pemb_awal := pemb_akir; peny_awal := peny_akir; end else if f <> g then
begin
pemb_akir := pemb_awal;
peny_akir := peny_awal;
end;

end;
end;
writeln();
writeln(pemb_akir,'/',peny_akir);
readln();
readln();
end.