daftar paypal segera dan dapatkan dolar dari internet

PayPal adalah sebagai alat terima pembayaran buat anda lewat internet (rekening di internet), dan bisa anda transfer ke Rekening Bank anda, segera buka Account Paypal gratis, klik dibawah ini (Logo Paypal) Daftar di PayPal, lalu mulai terima pembayaran menggunakan kartu kredit secara instan.

hanya klik saja anda dibayar

LinkGrand.com LinkGrand.com LinkGrand.com LinkGrand.com

readbud (cara dapet duit hanya dengan membaca artikel dan memberi rank)

readbud - get paid to read and rate articles

PELUANG USAHA LUAR BIASA! , KESEMPATAN EMAS MENUJU SUKSES ...!

Klik disini ====>

Selasa, 15 Desember 2009

contoh 2, program prosedur (turbo pascal)

program prosedur;


uses

wincrt;

var

pilihan:integer;

ulang:string;

procedure judul;

begin

writeln('program anak putera batam 2009/2010');

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

end;



procedure menupilihan;

begin

writeln('-----menu pilihan-----');

writeln(' 1. persegi panjang ');

writeln(' 2. segitiga ');

writeln(' 3. lingkaran ');

end;

procedure p_panjang;

var

pa,le,lu:integer;

begin

writeln('prosedur I');

writeln('program persegi panjang');

write('input panjang : ');readln(pa);

write('input lebar : ');readln(le);

lu:=pa*le;

writeln('luas persegi panjang = ',lu);

end;



procedure segitiga;

var

a,ti,lu:real;

begin

writeln('prosedur II');

writeln('program luas segitiga');

write('input alas: ');readln(a);

write('input tinggi : ');readln(ti);

lu:=a*ti/2;

writeln('luas segitiga = ',lu:0:2);

end;



procedure lingkaran;

var

jari,lu,ke:real;

begin

writeln('prosedur III');

writeln('program luas dan keliling lingkaran');

write('input jari-jari : ');readln(jari);

lu:=3.14*jari*jari;

ke:=2*3.14*jari;

writeln('luas lingkaran = ',lu:0:2);

writeln('keliling lingkaran = ',ke:0:2);



end;

begin

ulang:= 'YA';

while (ulang= 'YA') or (ulang= 'ya') do

begin

judul;

menupilihan;

write('silahkan anda pilih (1/2/3) dimenu pilihan: ');readln(pilihan);

case pilihan of

1:p_panjang;

2:segitiga;

3:lingkaran;

end;

write('mau mengulang lagi tekan YA: ');readln(ulang);

end;



readln;

donewincrt;

end.