Question

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

Answer 1

Ответ:

uses GraphABC;

var i:byte;

begin

SetWindowHeight(500);

SetWindowWidth(500);

for i:=10 downto 1 do

 if i=1 then  

   begin

     SetBrushColor(clRed);

     circle(250,250,25*i);

   end

   else

     circle(250,250,25*i);

end.

Answer 2

Для рисования мишени при помощи циклов FOR-DO в Pascal, можно использовать символы '*' и '.' для отображения различных зон мишени. Ниже приведен пример кода, который генерирует мишень с диаметром 15 символов:

pascalCopy code
program Target;

uses
  crt;

const
  TargetSize = 15;

var
  i, j, distance: integer;

begin
  clrscr;

  for i := 1 to TargetSize do
  begin
    for j := 1 to TargetSize do
    begin
      distance := abs(TargetSize div 2 - i) + abs(TargetSize div 2 - j);
      if distance = 0 then
        write('*') // центр мишени
      else if distance <= TargetSize div 6 then
        write('#') // внутренний круг
      else if distance <= TargetSize div 3 then
        write('@') // второй круг
      else if distance <= TargetSize div 2 then
        write('.') // третий круг
      else
        write(' '); // фон вокруг мишени
    end;
    writeln;
  end;

  readln;
end.

Обратите внимание, что символы '*' представляют центр мишени, '#' - внутренний круг, '@' - второй круг, '.' - третий круг и пробел - фон вокруг мишени.

Код может быть оптимизирован или модифицирован для создания мишеней различных размеров и стилей, но этот пример обеспечивает мишень диаметром 15 символов.