Membuat Kalkulator Pecahan dengan Pascal

Berikut ini adalah Source Code nya :

program kalkulator_pecahan;
type
pecahan=record
bil1,bil2:integer;
end;
var
p1,p2,tambah,kali,bagi,kurang:pecahan;
begin
writeln('masukan pecahan pertama');
readln(p1.bil1);
writeln('---');
readln(p1.bil2);
writeln('masukan pecahan keduax');
readln(p2.bil1);
writeln('---');
readln(p2.bil2);
tambah.bil1:=(p1.bil1*p2.bil2)+(p1.bil1*p2.bil2);
tambah.bil2:=(p1.bil2*p2.bil2);
kali.bil1:=(p1.bil1*p2.bil1);
kali.bil2:=(p1.bil2*p2.bil2);
bagi.bil1:=(p1.bil1*p2.bil2);
bagi.bil2:=(p1.bil2*p2.bil1);
kurang.bil1:=(p1.bil1*p2.bil2)-(p1.bil1*p2.bil2);
kurang.bil2:=(p1.bil2*p2.bil2);
writeln('Hasil penjumlahan : ');
writeln(tambah.bil1);
writeln('---');
writeln(tambah.bil2);
writeln('Hasil Perkalian : ');
writeln(kali.bil1);
writeln('---');
writeln(kali.bil2);
writeln('Hasil Pembagian : ');
writeln(bagi.bil1);
writeln('---');
writeln(bagi.bil2);
writeln('Hasil Pengurangan : ');
writeln(kurang.bil1);
writeln('---');
writeln(kurang.bil2);
end.

Keterangan Penjelasan:
  tipe data pada variabel pecahan adalah record ,karena tipe data record pada pascal hampir sama dengan Array, cuman yang bikin beda  keduanya adalah kalau Array semua komponennya bertipe data yang sama sedangkan di tipe data Record setiap komponennya bisa bertipe data yang beda-beda.

tipe data pada variabel bil1 dan bil2 adalah integer karena digunakan untuk memasukan bilangan dan disini variabel  bil1 sebagai pembilang pada bilangan pecahan dan variabel bil2 sebagai penyebut

pada bagian pengetikan variabel di bawah var,saya membuat variabel p1 sebagai pecahan pertama,p2 sebagai pecahan kedua ,dan kali,bagi,kurang,tambah untuk hasil dari operator tersebut, untuk p1,p2,kali,tambah,kurang,bagi tipe data di buat sama seperti yang sudah di deklarasikan pada variabel pecahan karena hanya untuk menampung hasil sementara.

penjelasan code tambah.bil1 adalah tambah sebagai variabel record  dan bil 1 sebagai integer
jadi intinya adalah record yang menampung hasil tipe data integer pada bilangan pecahan pertama.
begitu juga pada tambah.bil2, kali.bil1 .....dst.



Berikut ini adalah hasil ketika di jalankan :

Description: Membuat Kalkulator Pecahan dengan Pascal Rating: 4.5 Reviewer: Unknown ItemReviewed: Membuat Kalkulator Pecahan dengan Pascal