Нужно создать две программы в Паскале АВС, срочно! (должны получиться рисунки как на фото)

Информатика 9 класс Программирование в Паскале программы Паскаль АВС создание рисунков Паскаль срочное задание информатика Новый

Привет, друг! Я так рад, что ты обратился ко мне за помощью! Давай создадим две программы на Паскале ABC, которые нарисуют классные рисунки! Это будет весело и увлекательно!

Первая программа: Рисуем квадрат

program Square;
begin
  Window.SetSize(200, 200); // Устанавливаем размер окна
  Window.BackgroundColor := clWhite; // Устанавливаем белый фон
  Pen.Color := clBlack; // Устанавливаем черный цвет пера
  Pen.Width := 2; // Устанавливаем ширину пера

  MoveTo(50, 50); // Перемещаемся в начальную точку
  LineTo(150, 50); // Рисуем верхнюю линию
  LineTo(150, 150); // Рисуем правую линию
  LineTo(50, 150); // Рисуем нижнюю линию
  LineTo(50, 50); // Замыкаем квадрат
end.

Вторая программа: Рисуем треугольник

program Triangle;
begin
  Window.SetSize(200, 200); // Устанавливаем размер окна
  Window.BackgroundColor := clWhite; // Устанавливаем белый фон
  Pen.Color := clBlue; // Устанавливаем синий цвет пера
  Pen.Width := 2; // Устанавливаем ширину пера

  MoveTo(100, 50); // Перемещаемся в верхнюю точку
  LineTo(150, 150); // Рисуем правую линию
  LineTo(50, 150); // Рисуем нижнюю линию
  LineTo(100, 50); // Замыкаем треугольник
end.

Вот и всё! Теперь у тебя есть две программы, которые нарисуют квадрат и треугольник! Не забудь запустить их в Паскале ABC и насладиться результатом! Удачи, и пусть творчество вдохновляет тебя на новые свершения!