Rabu, 13 Juni 2012

Pascal "Kalkulator Sederhana"

program kalkulator;
uses wincrt;
var op1,op2:integer;
oprt:char;
begin

writeln;
writeln('--------------KALKULATOR SEDERHANA--------------');
writeln;

write('masukkan angka pertama           :');readln(op1);
write('tulis salah satu (+)(-)(*)(/)    :');readln(oprt);
write('masukkan angka kedua             :');readln(op2);
case oprt of
'+':write('hasil penambahan             :',op1+op2);
'-':write('hasil pengurangan            :',op1-op2);
'*':write('hasil perkalian              :',op1*op2);
'/':write('hasil pembagian              :',op1/op2);
else
write('data salah');
end;
end.




hasil :


1 komentar:

  1. Gambling house in Phoenix gets new casino
    The gaming floor 부산광역 출장안마 at the Phoenix Sky Casino was packed with 광주광역 출장샵 new 광주 출장마사지 games, slots and live dealer games on Monday, June 21. 동해 출장마사지 Casino officials Jun 11, 2020 · Uploaded by Phoenix 충주 출장안마 Sky Casino

    BalasHapus