Uses GraphABC; var tnk:array of Point; begin Window.Title := 'Танк атакует'; var y := 200; Brush.Color := clGreen; LockDrawing; tnk:=new Point[4]; for var x := 70 to 500 do begin Window.Clear(clWhite); Rectangle(x,y,x+100,y+50); Rectangle(x-25,y+50,x+125,y+75); tnk[0].X:=x-45; tnk[0].Y:=y+75; tnk[1].X:=x-30; tnk[1].Y:=y+120; tnk[2].X:=x+100; tnk[2].Y:=y+120; tnk[3].X:=x+145; tnk[3].Y:=y+75; Rectangle(x+100,y+10,x+225,y+25); FillPolygon(tnk); Redraw; Sleep(3); end; end.
Когда мы копируем рисунок в буфер, то он определенного размера. Создадим второго слона. Для этого надо выполнить все 4 команды: 1,2,3,4. Второй слон стал на 80% меньше первого. Создадим третьего слона. Если мы сейчас снова вставим слона из буфера (команда 3), то вставится первый слон, и команду 4 придется делать 2 раза, чтобы он стал на 80% меньше, чем второй слон. Поэтому для третьего слона нужно выделить второго и опять проделать все 4 команды: 1,2,3,4. Чтобы получить еще 6 слонов, нужно эти команды повторить 6 раз. ответ: В) повторить (1,2,3,4; 6)
