Ada yang tau Calculator tidak, pasti semua nya tau calculator kan, Kali ini saya ingin membagi turorial cara membuat calculator sederhana dari program pascal. Mari check it out :
Ini Script dan Tampilan running program calculator dari Turbo Pascal :
program mini_calculator_brema; uses wincrt; var j : char; a,b:integer; hasil1:longint; hasil2:real; label d; begin d: writeln(' Mini Kalkulator '); writeln(' Created By : Brema '); Writeln('*********************************************** '); write('masukkan bilangan bulat a= ');readln(a); write('masukkan bilangan bulat b= ');readln(b); hasil1:=a+b; writeln('hasil ',a,' + ',b,' = ',hasil1); hasil1:=a-b; writeln('hasil ',b,' - ',a,' = ',hasil1); hasil1:=a*b; writeln('hasil ',a,' * ',b,'= ',hasil1); hasil2:=a/b; writeln('hasil ',a,'/ ',b,' = ',hasil2:4:2); hasil2:=b/a; writeln('hasil ',b,'/ ',a,' = ',hasil2:4:2); hasil2:=sqrt(a); writeln('hasil akar a= ',hasil2:4:2); hasil2:=sqrt(b); writeln('hasil akar b= ',hasil2:4:2); hasil2:=sqr(a); writeln('hasil pangkat a= ',hasil2:4:2); hasil2:=sqr(b); writeln('hasil pangkat b= ',hasil2:4:2); Writeln('************************************************* '); writeln; write('Ingin ulang lagi?');readln(j); clrscr; if j = 'y' then goto d else writeln('Terima Kasih Telah Menggunakan Program Saya'); Readln; end. |
Hasil Running Dari Script di atas :
