Question

Составьте программу (Паскаль), которая рисует 3 окружности, радиусом 100, расположенные по вертикали. ПОМОГИТЕ

Answer 1

Ответ:

uses GraphABC;

var i,y:integer;

begin

SetWindowSize(300,700);

y:=150;

for i:=1 to 3 do

begin

Circle(150,y,100);

y:=y+200

end

end.

Объяснение:

картинка

Answer 2

Конечно, вот пример программы на языке Pascal, которая рисует три окружности с радиусом 100, расположенные вертикально:

pascalCopy code
program DrawThreeCircles;
uses
  Graph;

var
  gd, gm: Integer;

begin
  // Инициализация графической библиотеки
  gd := Detect;
  InitGraph(gd, gm, '');

  // Проверка на наличие ошибок при инициализации
  if GraphResult <> 0 then
  begin
    WriteLn('Ошибка при инициализации графической библиотеки: ', GraphErrorMsg(GraphResult));
    Halt(1);
  end;

  // Рисование трех окружностей
  SetColor(Yellow);  // Цвет окружности
  Circle(GetMaxX div 2, 150, 100); // Первая окружность
  Circle(GetMaxX div 2, 300, 100); // Вторая окружность
  Circle(GetMaxX div 2, 450, 100); // Третья окружность

  // Задержка для отображения окончательного результата
  Delay(5000);

  // Закрытие графического окна
  CloseGraph;
end.

Обратите внимание, что для запуска этой программы вам потребуется компилятор Pascal и библиотека Graph. Убедитесь, что вы правильно настроили свою среду разработки для работы с графической библиотекой Graph, прежде чем запустить эту программу.