KALKULATOR SEDERHANA MENGGUNAKAN PASCAL

Ini Program Kalkulatornya :

program kalkulator; uses crt;
var n1,n2,p,h:real;
begin
writeln('Program Kalkulator');
writeln('==================');
write('Masukkan Nilai Pertama= ');
readln(n1);
write('Masukkan Nilai Kedua= ');
readln(n2);
writeln('Pilih Operasi:');
writeln('1 --> Perkalian');
writeln('2 --> Pembagian');
writeln('3 --> Penjumlahan');
writeln('4 --> Pengurangan');
write('Pilihan anda [1..4]= ');readln(p);
if p=1 then h:=n1*n2;
if p=2 then h:=n1/n2;
if p=3 then h:=n1+n2;
if p=4 then h:=n1-n2;
writeln('Hasil Operasinya Adalah= ',h:0:2);
readln;
end.

Gambar 1

Outputnya :

Flowchartnya seperti ini :