sahabatfhadly78

Membuat Kalkulator Sederhana dengan Turbo PASCAL

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. jika belum silahkan download di link2 berikut :
3. link 1 : turbo pascal for win 7 & 8
4. link 2 : turbo pascal for win 7 & 8
5. jika sudah masukkan coding program berikut :

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 hasilnya jika dijalankan :

Sekian dan terima kasih !!!