Membuat Kalkulator Sederhana dengan Turbo PASCAL

Selamat datang di blog saya :)

Berikut adalah cara bagaimana membuat program kalkulator sederhana, langsung saja berikut langkah-langkahnya :

1. Siapkan program turbo pascal, dan pastikan prorgam tersebut sudah terinstal
2. buka turbo pascalnya :)
3. jika sudah masukkan coding program berikut :

------------------------------------------------------------------------------------------------------------------------
program kalkulator;

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 (‘Oleh: M. Fadli’);

writeln;

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

until Upcase(z) <> ‘Y’;

 end.

-------------------------------------------------------------------------------------------------------------------------

Berikut adalah hasilnya :