11 Mei 2012

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 :)