program nested_for;
USES
WINCRT;
var
BARIS,KOLOM:INTEGER;
PILIHAN:char;
BEGIN
PILIHAN:='y';
WHILE (PILIHAN= 'y')OR (PILIHAN= 'y') do
BEGIN
clrscr;
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.
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)
hanya klik saja anda dibayar
readbud (cara dapet duit hanya dengan membaca artikel dan memberi rank)
PELUANG USAHA LUAR BIASA! , KESEMPATAN EMAS MENUJU SUKSES ...!
Klik disini ====>
