Membuat Program Kalkulator Standard dengan Turbo Pascal

Ya, kali ini saya akan berbagi ilmu tentang Turbo Pascal , Turbo Pascal merupakan salah satu software yang dapat digunakan untuk membuat macam-macam program, seperti Program Kalkulator Standard , yang saya share di sini, berikut coding nya ^.^ :


program kalkulator_Standard;
uses wincrt;
var n1,n2,p,h:real;
begin
writeln('program kalkulator');
writeln('=====================');
write('masukan nilai pertama= ');
readln(n1);
write('masukan nilai kedua= ');
readln(n2);

writeln('pilihan operasi: ');
writeln('1 ---> perkalian');
writeln('2 ---> pembagian');
writeln('3 ---> penjumlahan');
writeln('4 ---> pengurangan');
write('pilihan anda = ');
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.