jak napisac program z podwojna pentla "for" aby wynikiem tego programu byl pojawiajacy sie prostokat zlozony ze znakow "x" ??

2006-12-17 16:53:42, krzysiek

2006-12-22 14:10:24, absoluteb
Jestem początkującym Pascalowcem, ale udało mi się zrobić taki program:

program prostokat;
uses crt;
var
x,y:byte;
a,b:byte;
begin
clrsr;
write('Podaj dlugosci bokow prostokata: ');
readln(a,b);
gotoxy(10,10);
for x:=10 to a+9 do
for y:=10 to b+9 do
begin
gotoxy(x,y);
write('x');
end;
readln;
end;

2006-12-22 14:17:55, absoluteb
albo prościej:

var
a,b,x,y:byte;
begin
clrscr;
write('Podaj dł. bokow prostokata: ');
readln(a,b);
clrscr;
for x:=1 to a do
for y:=1 to b do
begin
gotoxy(x,y);
write('x');
end;
readln;
end.

PS sorry w poprzedniej odp napisalem end; zamiast end. na koncu.

2007-01-01 16:21:18, dprog
Var
w,k:word;
s:string;

BEGIN
s:='';
Writeln('ile wierszy: ');
readln(w);
Writeln('ile kolumn: ');
readln(k);
FOR k:=k DOWNTO 1 DO
s:=s+'x';
FOR w:=w DOWNTO 1 DO WriteLn(s);
readln;
END.

Te powyzsze programy cos mi nie smigaja ale ten napisany przezemnie chyba pasuje mozna go oczywiscie troche zmienic ;)

Udziel odpowiedzi na powyższe pytanie...

::: działy ::::