kalakulator

Tutorial Pascal Membuat Kalkulator Sederhana

by admin on Oct.14, 2011, under Pascal

Pascal Calculator

Tutorial Pascal untuk membuat kalkulator sederhana berguna untuk anda yang sedang mendapatkan tugas dari sekolah. Berikut adalah source code nya ..
[sourcecode language="pascal"]
program kalkulator;
uses crt;
var nil1,nil2,hasil : real;
a : char;
begin
clrscr;
write(‘angka pertama = ‘);
readln(nil1);
write(‘parameter + – * / = ‘);
readln(a);
write(‘angka kedua = ‘);
readln(nil2);
case a of
‘+’: hasil := nil1+nil2;
‘-’: hasil := nil1-nil2;
‘*’: hasil := nil1*nil2;
‘/’: hasil := nil1/nil2;
end;
write(‘hasil = ‘,hasil :12:2);
readkey;
end.
[/sourcecode]