Wednesday, 21 January 2015

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 :



Posted By: brema bastanta

Membuat Calculator Menggunakan Pascal

Share:

Post a Comment

Facebook
Blogger

Follow Us

About Us

Advertisment

Like Us

© OFFICIAL BLOG SEDERHANA BREMA | BREMA NOTE BLOG All rights reserved | Theme Designed by Seo Blogger Templates Published.. Blogger Templates