Membuat Calculator Menggunakan Pascal

Advertisement

            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 :



Membuat Calculator Menggunakan Pascal Rating: 4.5 Written By: Nur Hasan

No comments:

Post a Comment


Advertisement