Contoh Program Kalkulator Dengan Turbo Pascal 1.5

Huft, susah lho bljr pascal . . . .
Kalo uda mahir mah gampang . . .
ni aku punya contoh program kalkulator dengan TPW 1.5
uses wincrt;

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('PERHITUNGAN: ');

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;
Write('Hitung lagi? (y/n) '); readln(z);

until Upcase(z) <> 'Y';

end.
silahkan copy ja tu di TPW 1.5