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
