Kod: Zaznacz cały
var x, y, z, k, w, r, ox, oy, oxx, oyy, i, j, yz: integer;
begin
clear;
x:= 10; //polozenie pierwszego dolnegio x
y:= 10; //polozenie pierwszego dolnegio y
k:= 20; //ilosc kolumn
w:= 14; //ilosc wierszy
ox:= 2; //odleglosc miedzy kwadratami x
oy:= 2; //odleglosc miedzy kwadratami y
r:= 30; //dlugosc boku kwadratu
oxx:= x;
yz:=0;
ox:=ox+r;
oy:=oy+r;
for j:=w downto 1 do begin
for i:=k downto 1 do begin
prostokat (oxx, y+yz, oxx+r, y+r+yz);
oxx:= ox+oxx;
end;
oxx:= x;
yz:= yz+oy;
end;
refresh;
selectall
end.
