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 ====>

Sabtu, 12 Desember 2009

contoh 6, program nested_for (turbo pascal)

program nested_for;
USES
WINCRT;
var
BARIS,KOLOM:INTEGER;
PILIHAN:char;
BEGIN
PILIHAN:='y';
WHILE (PILIHAN= 'y')OR (PILIHAN= 'y') do
BEGIN
WRITE('INPUT JUMLAH BARIS: ');READLN(BARIS);
WRITE('INPUT JUMLAH KOLOM: ');READLN(KOLOM);
FOR BARIS:=1 TO BARIS DO
   BEGIN
   FOR KOLOM:= 1TO BARIS DO
WRITE(KOLOM, '  ');
WRITELN;
WRITELN;
END;
write('apakah anda mau mengulang (ya/no): ');readln(pilihan);
end;
READLN;
DONEWINCRT;
END.