Program Membuat Kalkulator Di Pascal

Hay guys, kembali lagi dengan saya yang akan memberikan script program membuat kalkulator sederhana.
Langsung saja to the point tanpa basa-basi cek it do :

Program Kalkulator Sederhana

uses crt;

var

a,c,d : integer;

operator, z:char;

begin

repeat

clrscr;

Writeln('PETUNJUK:');

Writeln('1. Masukkan angka pertama');

Writeln('2. Masukkan operator (+, -, /, *)');

Writeln('3. Masukkan Angka kedua');

Writeln (‘-------------------------------‘);

Writeln('PERHITUNGAN: ');

Writeln (‘------------------------------‘);

Write('Masukkan angka: '); readln(a);

write('Operator: '); readln(Operator);

write('Angka ke dua: '); readln(c);

case operator of

'+': d:=a + c;

'-': d:=a - c;

'/': d:=a div c;

'*': d:=a * c;

end;

writeln('Hasil: ',d);

writeln;

writeln (‘by: Teman Kita MI 1db01’);

writeln (‘A.Amjad Mujaddid Al.a’);

writeln (‘Ahmad Hidayat’);

writeln (‘Nency Susilowati’);

writeln (‘Rudi Setiawan’);

writeln (‘Sefri’);

writeln;

Write('Hitung lagi? (y/n) '); readln(z);

until Upcase(z) <> 'Y';

  end.

Itu diatas merupakan program kalkulator sederhana.

Sekian dari post ini terimakasih atas kunjungan anda.

Jangan lupa... Comment dan saran, agar saya bisa lebih baik lagi :)