Użycie pętli masz w niejednym przykładzie makr w eduCADzie.

Ale jest bardzo fajnie. Widziałem w innych skryptach, że później zacząłeś sobie radzić też z podwójnymi pętlami (dla X i Y jednocześnie). Jest także funkcja:

arraypolarselection(dx, dx, kąt);
albo
matrycakolowa(...)

Umozliwia to np, "dziurkowanie" po okręgu, tworzenie różnych dziwnych kształtów, typu zęby kół itd.

Uwaga moja do programowania jest taka:

nie musisz w pętlach zawsze używać polecenia "downto", bo ono zmniejsza licznik. Możesz licznik zwiększać poleceniem "to", czyli:

for x:=1 to 100 do
begin
...
end;

A jeśli licznik ma być wartością nie stałą, bądź ułamkową możesz używać:

repeat
...
x := x + 0.5;
...
until x = 100.5;

Moje gratulacje! Nadal podziwiam Cię kol. Mitek za inwencję. Bardzo fajnie sobie poradziłeś. Ponieważ nie jesteś programistą (co można poznać po kodzie )podaję Ci drugą, znacznie prostszą wersję powyższego kodu - wykonuje to samo: (!)

var x, y, z, k, r, ox, oy, oxx, oyy, i: integer;
begin
clear;
x:= 110; //polozenie pierwszego dolnego x
y:= 100; //polozenie pierwszego dolnego y
k:= 5; //ilosc kolumn
ox:= 120; //odleglosc miedzy okregami x
oy:= 100; //odleglosc miedzy okregami y
r:= 30; //promien

circle(x,y,r);
selectall;
arrayrectselection(ox,oy,k,k);
selectall;
refresh;
end.