program operasi bilangan pecahan pascal

HAllo guys selamat datang di blog saya. kali ni saya membahas tentang program perhitungan bilangan pecahan.menggunakan bahasa pemograman pascal.

Berikut contoh program sederhana pascal perhitungan bilangan pecahan

Program OperasiPecahan;

type pecahan = record

     pb,py : integer;

end;

var p1, p2, jumlah, kurang, kali, bagi : pecahan;

begin

     writeln('');

     writeln('');

     write('Masukan penyebut pecahan pertama : ');

     read(p1.py);

     write('Masukan pembilang pecahan pertama : ');

     read(p1.pb);

     write('Masukan penyebut pecahan kedua : ');

     read(p2.py);

     write('Masukan pembilang pecahan kedua : ');

     read(p2.pb);

     jumlah.pb := p1.pb*p2.pb;

     jumlah.py := (p1.py*p2.pb) + (p2.py*p1.pb);

     kurang.pb := jumlah.pb;

     kurang.py := (p1.py*p2.pb) - (p2.py*p1.pb);

     kali.pb := kurang.pb;

     kali.py := p1.py * p2.py;

     bagi.pb := p1.pb * p2.py;

     bagi.py := p1.py * p2.pb;

     writeln('Pecahan 1 : ', p1.py,'/',p1.pb);

     writeln('Pecahan 2 : ', p2.py,'/',p2.pb);

     writeln('Hasil jumlah : ',jumlah.py,'/',jumlah.pb);

     writeln('Hasil kurang : ',kurang.py,'/',kurang.pb);

     writeln('Hasil kali : ',kali.py,'/',kali.pb);

     writeln('Hasil bagi : ',bagi.py,'/',bagi.pb);

end.

Output
Di bagian output ini anda mengentrikan bilangan pembilang dan penyebut untuk di proses

Selamat mencoba mohon maaf jika ada salah tulis dalam blog saya
Terimakasih