membuat kalkulator pascal

uses crt;
var
a,b,c,d:integer;
e,f,g:real;
begin
clrscr;
repeat
textcolor(11);
writeln('************');
writeln;
writeln('program kalkulator');
writeln;
writeln('macam-macam program kalkulator:');
writeln('1.tambah');
writeln('2.kurang');
writeln('3.kali');
writeln('4.bagi');
writeln('5.keluar');
writeln('************');
writeln;
writeln('silahkan anda memilih apa yang anda inginkan');
readln(a);
clrscr;
case a of

1:begin
writeln('masukan angka :');readln(b);
writeln('masukan angka :');readln(c);
d:=b+c;
writeln('hasil:',d);readln;
end;
2:begin
writeln('masukan angka :');readln(b);
writeln('masukan angka :');readln(c);
d:=b-c;
writeln('hasil :',d);readln;
end;
3:begin
writeln('masukan angka:');readln(b);
writeln('masukan angka:');readln(c);
d:=b*c;
writeln('hasil:',d);readln;
end;
4:begin
writeln('masukan angka:');readln(e);
writeln('masukan angka:');readln(f);
g:=e/f;
writeln('hasil:',g);readln;
end;
end;
writeln('************');
writeln;
writeln('terima kasih telah mencoba program pascal ini');
writeln;
writeln('************');
readln;
until a=5
end.

Posted by rachmat at 12:30 PM