Program Kalkulator =>
Program Kalkulator ;
uses wincrt;
var
a,c,d : integer;
operator, z:char;
begin
repeat
clrscr;
writeln('------------------------------------');
Writeln('Petunjuk:');
writeln('------------------------------------');
Writeln('1. Masukkan Bilangan 1');
Writeln('2. Masukkan operator (+),(-),(*),(/)');
Writeln('3. Masukkan Bilangan 2');
writeln('------------------------------------');
Writeln('Perhitungan: ');
writeln('------------------------------------');
Write('Masukkan Bilangan Pertama : '); readln(a);
write('Operator: '); readln(Operator);
write('Masukkan Bilangan Kedua : '); readln(c);
case operator of
'+': d:=a + c;
'-': d:=a - c;
'/': d:=a div c;
'*': d:=a * c;
end;
writeln('------------------------------------');
writeln('Hasil: ',d);
writeln('------------------------------------');
writeln;
Write('Hitung lagi? (y/n) '); readln(z);
until Upcase(z) <> 'Y';
end.
(Semoga bermanfaat)
0 Response to "Program Kalkulator sederhana Tpw 1.5"
Posting Komentar