Kalkulator

Oktober 1, 2009 at 4:22 pm (Uncategorized)

program itung-itungan;
uses wincrt;
var
a,p,z,l:integer;
r,s,c: real;

begin
repeat
writeln(’==========’);
writeln;
writeln(’Pemrograman Kalkulator’);
writeln;
writeln(’Beberapa Contoh Pemrograman Kalkuator:’);
writeln(’1.Penjumlahan’);
writeln(’2.Pengurangan’);
writeln(’3.Perkalian’);
writeln(’4.Pembagian’);
writeln(’5.Keluar’);
writeln(’==========’);
writeln;
writeln(’Silahkan Pilih Yang Anda Inginkan’);
readln(a);
clrscr;
case a of
1:Begin
write(’masukan bilangan:’);readln(p);
write(’masukan bilangan:’);readln(l);
z:=p+l;
writeln(’hasil penjumalahan:’,z);readln;
end;
2:Begin
write(’masukan bilangan:’);readln(p);
write(’masukan bilangan:’);readln(l);
z:=p-l;
writeln(’hasil pengurangan:’,z);readln;
end;
3:Begin
write(’masukan bilangan:’);readln(p);
write(’masukan bilangan:’);readln(l);
z:=p*l;

writeln(’hasil perkalian:’,z);readln;
end;
4:Begin
write(’masukan bilangan:’);readln(r);
write(’masukan bilangan:’);readln(s);
c:=r/s;
writeln(’hasil pembagian:’,c);readln;
end;
end.
}

Permalink Tinggalkan sebuah Komentar