Membuat Calculator Menggunakan Pascal

            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 :