latihan prosedu

program prosedur;

uses wincrt;

var

i:integer;

procedure garis;

begin

writeln('====================');

end;

procedure data;

var

nm:string;

npm:integer;

almt:string;

begin

write('Nama:');readln (nm);

write('NPM:');readln (npm);

write('Alamat:');readln(almt);

end;

begin

for i:=1 to 5 do

begin

writeln('Data-data Mahasiswa');

garis;

data;

end;

end.

program latihan_prosedur;

uses wincrt;

var

i:integer;

k:byte;

procedure garis;

begin

writeln('=====================');

end;

procedure luas_persegi_panjang;

var

p:integer;

l:integer;

hasil:integer;

begin

write('Panjang:');readln(p);

write('Lebar');readln(l);

hasil:=p*l;

writeln ('luas persegi panjang:',hasil);

end;

    procedure luas_segitiga;

    var

    A:real;

    T:integer;

    luas:real;

    begin

    write('Alas:');readln(A);

    write('Tinggi:');readln(T);

    luas:=(A*T)/2;

    writeln('Hasil:',luas:0:2);

    end;

procedure keliling_lingkaran;

var

r,kel:real;

const

phi=3.14;

begin

write('R:');readln(r);

kel:=2 * r * phi;

writeln('Keliling_lingkaran:',kel:0:2);

end;

begin

for i:= 1 to 5 do

begin

writeln;

writeln ('pilih rumus yang dininginkan');

writeln ('1.luas_persegi_panjang');

writeln ('2.luas_segitiga');

writeln ('3.Keliling_lingkaran');

write ('masukkan no pilihan (1,2,3) pilih salah satu:');readln(k);

case k of

1:luas_persegi_panjang;

2:luas_segitiga;

3:keliling_lingkaran;

end;

end;

end.