нарисовать мишень при помощи циклов FOR-TO-DO в паскале не менее 500 букв в коде.
(напишите программу(код))​

Пример программы на PascalABC.NET с циклом for-to-do, которая рисует мишень из кругов:

program Mishen;
uses GraphABC;
var
i, r, x, y: integer;
begin
SetWindowSize(600, 600);
ClearWindow(clWhite);
x := 300;
y := 300;
for i := 0 to 24 do
begin
r := 250 - i * 10;
if i mod 5 = 0 then SetBrushColor(clRed);
if i mod 5 = 1 then SetBrushColor(clWhite);
if i mod 5 = 2 then SetBrushColor(clBlue);
if i mod 5 = 3 then SetBrushColor(clYellow);
if i mod 5 = 4 then SetBrushColor(clBlack);
SetPenColor(clBlack);
Circle(x, y, r);
FloodFill(x, y, GetBrushColor);
end;
SetBrushColor(clRed);
Circle(x, y, 12);
FloodFill(x, y, clRed);
end.

Цикл for i := 0 to 24 do много раз рисует круги разного радиуса. Самые большие круги рисуются сначала, а маленькие — поверх них, поэтому получается мишень.

0 0 Пожаловаться