cnc.info.pl - FORUM CNC

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.