program kalkulator

seperti biasa
pertama tama buka program pascal
tulislah program di bawah ini:

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--> pengurangan');
writeln('4--> penjum;ahan');
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.
maka hasilnya muncul peperti di bawah ini
SELAMAT MENCOBA YACH

Posted in: program pascal