kurniawanapli: 2012

Berbagi ilmu ,,,,,,,,,????????????????????bagi anda pengen program .,,,, disini lah tempat nya..,,,,,,,//???????????????

program prosedur;
uses wincrt;

writeln('====================');var
i:integer;

procedure garis;
begin
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.

brooooooooo,,,,,,,,,,,,,,,,,,??????????????????

jangan slah semen pdang jjuga seperti ini loooooo,,,,,??????????????????????

mowwwwww taw ceritanyaaaaa,,,,,!!!!!!!!!!!!!!!!!!!!!