Program Kalkulator dengan pascal

Weh Weh Weh.... Lama ga nge-Post nih...
ya udah.... Kali ini saya mau nge-Post program sederhana memakai pascal...

Porgram Kalkulator (Mesin Hitung)

Langsung aja yah ini Source Code nya ^_^ :

uses crt;
var
     a,b,c : real;
     pilih : char;
begin
     clrscr;
     textcolor(green);
     writeln('=-=-=Avenged=-=Sevenfold=-=-=');
     textcolor(blue);
     write('masukan angka pertama : '); readln(a);
     write('pilihlah operasi hitung +,/,-,* : '); readln(pilih);
     write('masukan angka kedua : '); readln(b);
     if(pilih='+') then begin c:= a+b end;
     if(pilih='/') then begin c:= a/b end;
     if(pilih='-') then begin c:= a-b end;
     if(pilih='*') then begin c:= a*b end;
     writeln('Hasilnya : ',c:0:2);
     writeln();
     textcolor(green);
     writeln(-=-=-=-=-=-Mesin=-=Hitung-=-=-=-=-=-');
     textcolor(blue);
     writeln(' Angka Pertama : ',a:0:2);
     writeln(' Operasi Hitung : ',pilih);
     writeln(' Angka Kedua : ',b:0:2);
     writeln(' Hasilnya : ',c:0:2);
     readkey;
end.


Nah Source Code diatas bisa di pakai untuk media pembelajaran

besok saya akan mencoba membuat program pascal kayak program antrian gitu dech ^_^

Semoga bermanfaat yah ^_^

nieh di bawah ini Contoh ScreenShot nya ^_^

Program Kalkulator dengan pascal 2012-04-20T20:01:00+07:00 Rating: 4.5 Diposkan Oleh: Unknown