Arya's Blog

Function Menghitung Nilai Maksimum 2 inputan

function nilai_maksimum(a,b:real):real;
begin
if a> b then
nilai_maksimum :=a
else
nilai_maksimum :=b;
end;
var
x,y:real;
begin
write('Nilai pertama :');readln(x);
write('Nilai kedua :');readln(y);
writeln('Nilai terbesar adalah',nilai_maksimum(x,y):6:2);readln;
end.