Contoh codingan program procedure free pascal

program contoh_procedure;
var
x,y,maksi:integer;
procedure luas_segitiga;
var
alas, tinggi, luas:real;
begin
write(‘masukan alas segitiga:’);
readln(alas);
write(‘masukan tinggi segitiga:’);
readln(tinggi);
luas:=(alas*tinggi)/2;
write(‘luas segitiga:’, luas);
end;
procedure tukar1 (var a, b:integer);
var
temp:integer;
begin
temp:= a;
a:=b;
b:=temp;
end;
procedure maksimum(a,b:integer;var maks:integer);
begin
if a>b then
maks:=a
else
maks:=b
end;
procedure tukar2 ( a,b:integer);
var
temp:integer;
begin
temp:=a;
a:=b;
b:=temp;
end;
begin
luas_segitiga;
write (‘Masukan angka ke-1:’);
readln(X);
write (‘Masukan angka ke-2:’);
readln(Y);
maksimum(X,Y,maksi);
writeln(‘Angka ke-1:’,x,’ ‘,’Angka ke-2:’,Y,’ ‘,’Nilai maksimum: ‘,maksi);
tukar1(x,y);
writeln(‘Angka ke-1 sekarang nilainya:’,X);
writeln(‘Angka ke-2 sekarang nilainya:’,Y);
tukar2(x,y);
writeln(‘Angka ke-1 sekarang nilainya:’,X);
writeln(‘Angka ke-2 sekarang nilainya:’,Y);
end.

Leave a Reply

Your email address will not be published.