Page 30 - 6370
P. 30
begin
k:=100;
a:=40;
l:=30;
t:=30;
for j:= 1 to 3 do begin
for I:= 1 to 5 do begin
r.Left:=l;
r.Top:=t;
r.Right:=l+a;
r.Bottom:=t+a;
canvas.Brush.Color:=clred;
canvas.Rectangle(r);
end;
g[i]:=l+k;
l:=g[i];
v[j]:=t+k;
t:=v[j];
end;
end;
17. Запускають прикладну програму і зауважують дещо не
те, що планувалося (рисунок 21) після клацання по кнопці
Button3.
32
