Юрий Моисеев
Оракул
(83938)
6 лет назад
uses graphABC;
procedure qwadr(x,y:integer);
begin
moveto(x,y);
lineto(x+50,y);
lineto(x+50,y+50);
lineto(x,y+50);
lineto(x,y)
end;
var i,j:integer;
begin
for i:=0 to 3 do
for j:=0 to 3 do
qwadr(i*50+10,j*50+10);
end.
Андванс Чесс
Просветленный
(31877)
6 лет назад
цикл от 0 до 4, в теле которого чертишь одну горизонтальную и одну вертикальную линию в координатах, которые зависят от текущего значения счётчика, и здесь неважно как именно ты чертишь - используя crt и graph, на сцене OpenGL или ещё каким-то образом
помогите