Program Hitung Dua Bilangan Pecahan dalam bahasa Pascal dan C++

Program dalam Bahasa Pascal
Program Hitung_Dua_Pecahan;
{Dibaca dua buah pecahan P1 dan P2, hitunglah junlah dua pecahan, pengurangan,
perkalian dan pembagian}

type Pecahan = record
                        pb, py:integer;
                        end;
var
        P1,P2,jml,krg,kali,bagi:pecahan;

begin
       write('pb : ');readln(P1.pb);
       write('py : ');readln(P1.py);
       write('pb : ');readln(P2.pb);
       write('py : ');readln(P2.py);
       jml.pb:=(P1.pb*P2.py)+(P1.py*P2.pb);
       jml.py:=(P1.py*P2.py);
       krg.pb:=(P1.pb*P2.py)-(P1.py*P2.pb);
       krg.py:=(P1.py*P2.py);
       kali.pb:=P1.pb*P2.pb;
       kali.py:=P1.py*P2.py;
       bagi.pb:=P1.pb*P2.py;
       bagi.py:=P1.py*P2.pb;
       writeln('jumlah : ',jml.pb,'/',jml.py);
       writeln('kurang : ',krg.pb,'/',krg.py);
       writeln('kali : ',kali.pb,'/',kali.py);
       writeln('bagi : ',bagi.pb,'/',bagi.py);
end.


Program dalam Bahasa C++
#include <iostream>
using namespace std;

int main() {
struct pecahan{
float Pb, Py;
}p1, p2, jml, krg, kali, bagi;

cout<<"Pb : "; cin>>p1.Pb;
cout<<"Py : "; cin>>p1.Py;
cout<<"Pb : "; cin>>p2.Pb;
cout<<"Py : "; cin>>p2.Py;
cout<<endl;
jml.Pb=(p1.Pb*p2.Py)+(p1.Py*p2.Pb);
jml.Py=p1.Py*p2.Py;

krg.Pb=(p1.Pb*p2.Py)-(p1.Py*p2.Pb);
krg.Py=p1.Py*p2.Py;

kali.Pb=(p1.Pb*p2.Pb);
kali.Py=(p1.Py*p2.Py);

bagi.Pb=(p1.Pb*p2.Py);
bagi.Py=(p1.Py*p2.Pb);
cout<<"jumlah = "<<jml.Pb<<"/"<<jml.Py<<endl;
cout<<"kurang = "<<krg.Pb<<"/"<<krg.Py<<endl;
cout<<"kali = "<<kali.Pb<<"/"<<kali.Py<<endl;
cout<<"bagi = "<<bagi.Pb<<"/"<<bagi.Py<<endl;
return 0;

}