uses
SysUtils;
function jumlah:real;
var
a,b:real;
begin
writeln('masukkan angka pertama');
readln(a);
writeln('masukkan angka kedua');
readln(b);
jumlah:=a+b;
end;
function hitung(a,b:integer):integer;
begin
hitung:=a+b;
end;
begin
writeln(jumlah:0:2);
writeln('yang bawah dengan parameter hitung');
writeln(hitung(5,3));
readln;
end.
0 komentar:
Posting Komentar