Monday, March 28, 2011

Pascal Syntax/Program Calculator

syntax/program pascal untuk anak-anak sekolah dasar yang ingin berhitung dengan kalkulator sederhana di komputer. berikut ini adalah program/syntax untuk kalkulator menggunakan software turbo pascal :

program calculator;
uses wincrt;
var x,y,hasil:real;
jawab:char;
begin
write ('masukan angka ke-1:');
readln (x);
write ('pilih operator: +_-_*_/');
readln (jawab);
write ('masukan angka ke-2:');
readln (y);
if ( jawab= '+') then
begin
hasil:= x+y
end;
if ( jawab = '-') then
begin
hasil:= x-y
end;
if ( jawab = '*') then
begin
hasil:= x*y
end;
if (jawab='/') then
begin
hasil:= x/y
end;
write ('hasilnya: ',(hasil):5:2);
end.

No comments:

Post a Comment