program coba_procedure;
uses wincrt;
var a:integer;
procedure luas;
var sisi:integer;
begin
write ('Masukan Panjang Sisi :'); readln (sisi);
Write ('Luas Persegi :', sisi*sisi); readln;
Write ('Keliling Persegi :',sisi * 4 ); readln;
end;
begin
luas;
end.
uses wincrt;
var a:integer;
procedure luas;
var sisi:integer;
begin
write ('Masukan Panjang Sisi :'); readln (sisi);
Write ('Luas Persegi :', sisi*sisi); readln;
Write ('Keliling Persegi :',sisi * 4 ); readln;
end;
begin
luas;
end.
Kemudian di compile dan di run hasilnya seperti gambar diatas....
1 komentar:
Blognya bagus...
tapi tolong ditambahkan kata - kata pengantarnya y, supaya maksud dari gbr yang diposting jelas maksdnya,
SEMANGAT....!!
إرسال تعليق