Membuat Calculator Menggunakan Pascal

07:59:00

            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 :



0 komentar