Contoh Salah Satu Program Turbo Pascal

Hi para pengunjung, gimna nih kabarnya ?

disini saya akan memberitahukan salah satu contoh program pascal yaitu cara membuat program kalkulator dengan turbo pascal.

cekidot!!!

program kalkulator;

uses wincrt;

var

a,b,d : integer;

operator, z:char;

begin

repeat

clrscr;

Writeln('PETUNJUK PENGGUNAAN PROGRAM KALKULATOR:');

Writeln('1. Masukkanangkapertama');

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

Writeln('3. MasukkanAngkakedua');

Writeln ('-------------------------------');

writeln('SemogaBerhasil');

writeln ('-------------------------------');

Writeln('SILAHKAN MENCOBA PROGRAM KALUKATOR SAYA: ');

Writeln ('-------------------------------');

Write('Masukkanangka: '); readln(a);

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

write('Angkakedua: '); readln(b);

case operator of

'+': d:=a + b;

'-': d:=a - b;

'/': d:=a div b;

'*': d:=a * b;

end;

writeln('Hasil: ',d);

writeln;

writeln ('Suherman');

writeln ('TeknikInformatika');

writeln;

Write('Hitunglagi? (y/n) '); readln(z);

untilUpcase(z) <> 'Y';

end.

Hasil running

Gimna brooooo, berhasil kagak ?

Kalo gak mungkin ada yang kurang, dan bisa jadi dari saya yg kurang....

hahahahaha,.......

Sekian dan Terima Kasih....