Kalkulator pascal DOS

  hallo  sahabat blogger yang setia sama blog saya, hehehe

berharap banget saya ada yang langganan di sakera blogger, :D dah lama saya tidak posting, dah beberapa bulan pa hampir setahun ya?, :( saya lama tidak posting karena ada masalah sama laptop. dan internetnya jg di putus, :(

tapi jangan khawatir kalau ada sahabat blogger yang menunggu postingan dari sakera blogger, sekarang saya mau posting script garapan, yang baru-baru ini selesai.

mau tau gak script apa?

langsung ja ke TKP:

script membuat kalkulator berbasis DOS, dengan bahasa pemrograman PASCAL,

uses crt;

label awal;

var a,b,d:real; k,p,m,l,c:char;
begin
clrscr;
writeln('K = KALI ++ P = TAMBAH ++ M = KURANG ++ L = BAGI');
writeln('================================================');
awal : write('masukkan tanda operasional - '); readln(c);


if  (c ='k') then begin
write('# masukkan angka pertama - '); readln(a);
write('# masukkan angka kedua - '); readln(b);
d:=a*b;
write('| hasil kali = ',d:0:2)
end else
if c='p' then begin  write('# masukkan angka pertama - '); readln(a);
write('# masukkan angka kedua - '); readln(b);
d:=a+b;
write('| hasil tambah = ',d:0:2)
end     else
if c='m' then begin   write('# masukkan angka pertama - '); readln(a);
write('# masukkan angka kedua - '); readln(b);
d:=a-b;
write('| hasil kurang = ',d:0:2)
 end else
if c='l' then begin   write('# masukkan angka pertama - '); readln(a);
write('# masukkan angka kedua - '); readln(b);
d:=a/b;
write('| hasil bagi = ',d:0:2)
end
else begin write('** Huruf yang anda masukkan salah, tekan enter untuk kembali **');
end;
readln; goto awal;

end.

 copas script di atas ke dalam notepad, lalu ganti extensinya dengan (.pas) tanpa tanda kurung, lalu kalian open dengan program pascal dan di compile (alt+f9).

script di atas bisa kalian modifikasi sendiri, apabila ada yang mau di tanyakan dari script di atas, kalian bisa tanya lewat  kolom komentar.

selamat menikmati :D :D :D