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, 08 Desember 2009

contoh program while_do(turbo pascal)

program while_do;
uses wincrt;
var
i,n,jum:integer;                                      
rata:real;

begin
write('input banyak perulangan:  ');readln(n);
i:=1;
while i<=n do
begin
writeln(i,  'batam');
i:=i+1;
end;
i:=1;
jum:=0;
rata:=0;
while i<=n do
begin
jum:=jum+i;
rata:=jum/n;
i:=i+1;
end;
writeln('hasil penjumlahan deret perulangan    :  ',jum);
writeln('hasil rata-rata deret perulangan     :  ',rata:0:2);
readln;              
donewincrt;
end.