1.Buatlah
sebuah
kalkulator
sederhana,
untuk
operasi
tambah,
kurang,
kali, bagi, kuadrat dan
pangkat
dengan
menggunakan
prosedur.
1.Kuadrat
1 parameter (x) =
(5) =
25.
2.Pangkat 2 parameter (x,y) =
(2,3) = 8.
uses crt;
var a, b, c, pang, pil : integer; yes : string; procedure tambah(var x,y,z:integer); begin z := x+y; end; procedure kurang(var x,y,z:integer); begin z := x-y; end; procedure kali(var x,y,z:integer); begin ...