PROGRAM KALKULATOR SEDERHANA PADA PASCAL

            Pada kesempatan kali ini saya membuat program kalkulator sederhana pada bahasa pemrograman Pascal. Progam ini berfungsi untuk menghitung operasi matematika sederhana seperti penjumlahan, pengurangan, perkalian dan pembagian. Langsung saja berikut adalah codingan dari program yang saya buat :

uses crt;

var

a,b,c,d:integer;

e,f,g:real;

begin

clrscr;

repeat

textcolor(11);

writeln('Program Kalkulator');

writeln('******************************');

writeln;

writeln('Macam-macam program Kalkulator');

writeln('______________________________');

writeln('1.Tambah');

writeln('2.Kurang');

writeln('3.Kali');

writeln('4.Bagi');

writeln('5.Keluar');

writeln('______________________________');

writeln;

write('Silakan memilih yang anda inginkan : ');

readln(a);

case a of

1:begin

write('Masukkan angka pertama: ');readln(b);

write('Masukkan angka kedua: ');readln(c);

d:=b+c;

writeln('Hasil : ',d);readln;

end;

2:begin

write('Masukkan angka pertama: ');readln(b);

write('Masukkan angka kedua: ');readln(c);

d:=b-c;

writeln('Hasil : ',d);readln;

end;

3:begin

write('Masukkan angka pertama: ');readln(b);

write('Masukkan angka kedua: ');readln(c);

d:=b*c;

writeln('Hasil : ',d);readln;

end;

4:begin

write('Masukkan angka pertama: ');readln(e);

write('Masukkan angka kedua: ');readln(f);

g:=e/f;

writeln('Hasil : ',g);readln;

end;

end;

writeln('*****************');

writeln;

writeln('Thanks for trying :)');

writeln;

writeln('*****************');

readln;

clrscr;

until a=5

end.

Berikut adalah contoh output programnya :

                                                                                                                                         

Demikian cara membuat programnya, semoga bermanfaat :)