Program Penjumlah Pecahan

Fungsi : Menjumlahkan 2 buah pecahan.

Hint:  Tinggal masukan saja penyebut dan pembilang.

Screenshot :

uses crt;

var pemi,pemII,penyi,penyII:integer;

      j,k:integer;

function pemb(a,c:integer):integer;

    begin

       j:=penyii;

       k:=penyi;

       pemb:=a*j+k*c;

    end;

function peny(b,d:integer):integer;

   begin

     peny:=b*d;

   end;

begin

    writeln('Pecahan 1 ');

    write('Pembilang i :');readln(pemi);

    write('Penyebut i :');readln(penyI);

    writeln;

    write('Pecahan 2 ');

    write('Pembilang ii :');readln(pemII);

    write('Penyebut II: ');readln(penyII);

    writeln;

    writeln('maka hasil dari pertambahan ',pemi,'/',penyI,'+',pemii,'/',penyII,' adalah ',pemb(pemi,pemii),'/',peny(penyi,penyii));

readln;

end.