Membuat Program Aritmetika Sederhana Pada Pascal

Setelah membuat program sederhana, posting kali ini akan membuat program aritmetika, tapi masih sederhana juga :-D. kali ini menggunakan operator aritmetika, jika belum tahu apa itu operator aritmetika baca artikel TipeData Pada Pascal. langsung saja berikut contohnya

program aritmetika;

uses wincrt;

var a,b,tambah,kurang,kali:integer;

    bagi:real;

begin

writeln('   +------------------------------+');

writeln('   | Program Aritmetika Sederhana |');

writeln('   +------------------------------+');

writeln;

write('Masukkan bilangan pertama: ');readln(a);

write('Masukkan bilangan kedua: ');readln(b);

tambah:=a+b;

kurang:=a-b;

kali:=a*b;

bagi:=a/b;

writeln('Hasil ',a,'+',b,' = ',tambah);

writeln('Hasil ',a,'-',b,' = ',kurang);

writeln('Hasil ',a,'*',b,' = ',kali);

writeln('Hasil ',a,'/',b,' = ',bagi:2:2);

writeln;

writeln;

writeln('   +------------------------------+');

writeln('   | http://hobi-it.blogspot.com  |');

writeln('   +------------------------------+');

end.

Selesai! Bahagianya ketika program kita itu bisa di Compile :-D

untuk yang pengen download programnya bisa didownload di bawah ini.

Catatan: Untuk yang menggunakan Turbo Pascal versi 7 keatas, untuk uses gunakan uses crt;