B01-16516372-160921-01.pas

{ NIM/Nama      : 16516372/Muhamad Arif Adiputra }
{ Nama File     : B01-16516372-160921-01.pas }
{ Tanggal       : 21 September 2016 }
{ Deskripsi     : Program Penghitung Perkalian 2 Pecahan Tanpa Disederhanakan }

program PerkalianPecahan;
{Program Penghitung Perkalian 2 Pecahan Tanpa Disederhanakan}

{Kamus}
type
    p = record {deklarasi tipe baru untuk pecahan}
    x,y : integer {x = pembilang ; y = penyebut}
end;

var
    p1 , p2 , ph : p;
    {p1, p2 = input pecahan 1 dan 2 ; ph = hasil pecahan}

{Algoritma}
begin
    write('Masukan Pembilang 1 : '); readln(p1.x);
    write('Masukan Penyebut 1 : '); readln(p1.y);
    write('Masukan Pembilang 2 : '); readln(p2.x);
    write('Masukan Penyebut 2 : '); readln(p2.y);
    ph.x := p1.x *  p2.y + p2.x * p1.y; {menghitung pembilang}
    ph.y := p1.y * p2.y; {menghitung penyebut}
    writeln('Pembilang hasil perkalian', ph.x);
    writeln('Penyebut hasil perkalian', ph.y);
end.