Jawabanmu

2014-04-16T09:58:12+07:00
Uses crt;

var
cc, A, B, C, D, E : byte;

procedure hitung1(A, B, C, D, E:byte);
var hasil:integer;
begin
  hasil:= -A+B*C*D-E;
  writeln(hasil);
end;

procedure hitung 2(A, B, C, D, E:byte);
var hasil:integer;
begin
  hasil:= -A+(B-C)*D^E;
  writeln(hasil);
end;

procedure hitung3(A,B,C,D,E:byte);
var hasil:integer;
begin
  hasil:= -A^B+C^D*E;
  writeln(hasil);
end;

begin
clrscr;
write('masukan nilai A, B, C, D, dan E pisahkan dengan enter');
read(A, B, C, D, E);
writeln('pilih cara penghitungan (1 - 3)');
read(cc);
chase cc of 1..3:byte;
  1: hitung1(A,B,C,D,E); 
  2: hitung2(A,B,C,D,E);
  3: hitung3(A,B,C,D,E);
end;

end.



//CMIIW