Latihan Prokom

Kalkulator sederhana 1

program kalkulator1;
uses wincrt;
var a,b,penjumlahan,pengurangan,perkalian:integer;
pembagian:real;
begin
writeln('kalkulator sederhana');
writeln('********************');
writeln('masukan nilai a: ');
readln(a);
writeln('masukan nilai b: ');
readln(b);
penjumlahan:=a+b;
pengurangan:=a-b;
perkalian:=a*b;
pembagian:=a/b;
writeln('hasil penjumlahan',penjumlahan);
writeln('hasil pengurangan',pengurangan);
writeln('hasil perkalian',perkalian);
writeln('hasil pembagian',pembagian:0:4);
end.


Kalkulator sederhana 2

program kalkulator2;
uses wincrt;
var x,y,hasil_penjumlahan,hasil_pengurangan,hasil_perkalian:integer;
jenis,c:char;
hasil_pembagian:real;
begin
writeln('kalkulator2');
writeln('***********');
repeat
writeln('jenis:');
readln(jenis);
writeln('masukan nilai x');readln(x);
writeln('masukan nilai y');readln(y);
hasil_penjumlahan:= x+y;
hasil_pengurangan:= x-y;
hasil_perkalian:= x*y;
hasil_pembagian:= x/y;
if jenis='+' then
begin
writeln('hasil_penjumlahan= ',hasil_penjumlahan);
end;
if jenis='-' then
begin
writeln('hasil_pengurangan= ',hasil_pengurangan);
end;
if jenis='*' then
begin
writeln('hasil_perkalian= ',hasil_perkalian);
end;
if jenis='/' then
begin
writeln('hasil_pembagian= ',hasil_pembagian:0:5);
end;
write('hitung lagi? (y/t)=');readln(c);
clrscr;
until (c='T') or (c='t');
end.