Пожалуйста помогите нарисовать поезд с вагонами в PascalABC срочнооооооо!

Тематика Информатика
Уровень 5 - 9 классы
PascalABC нарисовать поезд программирование графика срочно помощь вагоны
0

пожалуйста помогите нарисовать поезд с вагонами в PascalABC

срочнооооооо!

avatar
задан месяц назад

2 Ответа

0

Для того чтобы нарисовать поезд с вагонами в PascalABC, можно воспользоваться графической библиотекой GraphABC. Для начала нужно создать новый проект в PascalABC и подключить библиотеку GraphABC.

Пример кода для рисования поезда с вагонами:

program TrainDrawing;
uses GraphABC;

const
  TrainColor = clBlack;
  WagonColor = clGray;
  WindowColor = clBlue;

procedure DrawTrain(x, y: Integer);
begin
  SetPenColor(TrainColor);
  Rectangle(x, y, x + 300, y + 100); // Поезд
  
  SetPenColor(WagonColor);
  Rectangle(x - 100, y, x, y + 100); // Вагон 1
  Rectangle(x + 300, y, x + 400, y + 100); // Вагон 2
  
  SetPenColor(WindowColor);
  Rectangle(x - 90, y + 10, x - 10, y + 40); // Окно вагона 1
  Rectangle(x + 10, y + 10, x + 90, y + 40); // Окно вагона 1
  Rectangle(x + 310, y + 10, x + 390, y + 40); // Окно вагона 2
  Rectangle(x + 210, y + 10, x + 290, y + 40); // Окно вагона 2
end;

begin
  SetWindowSize(500, 150);
  DrawTrain(50, 50);
end.

Этот код создаст окно размером 500x150 пикселей и нарисует поезд с двумя вагонами. Каждый вагон имеет окна разного цвета. Можно изменить размеры и цвета элементов по своему усмотрению.

avatar
ответил месяц назад
0

Конечно, я помогу вам с созданием простого рисунка поезда с вагонами на языке PascalABC. Для этого мы будем использовать стандартную библиотеку графики в PascalABC, которая позволяет рисовать основные геометрические фигуры. Давайте создадим простую программу, которая изображает поезд из локомотива и нескольких вагонов.

program SimpleTrain;

uses GraphABC;

procedure DrawTrain(x, y: Integer; cars: Integer);
var
  i, carWidth, carHeight, wheelRadius: Integer;
begin
  carWidth := 60;   // Ширина вагона
  carHeight := 30;  // Высота вагона
  wheelRadius := 5; // Радиус колеса

  // Рисуем локомотив
  Rectangle(x, y, x + carWidth, y + carHeight);
  Circle(x + carWidth div 2, y + carHeight + wheelRadius, wheelRadius); // Переднее колесо
  Circle(x + carWidth - wheelRadius, y + carHeight + wheelRadius, wheelRadius); // Заднее колесо

  // Рисуем трубу локомотива
  Rectangle(x + carWidth div 4, y - 15, x + carWidth div 4 + 10, y);

  // Рисуем вагоны
  for i := 1 to cars do
  begin
    x := x + carWidth + 10; // сдвиг на ширину вагона + промежуток
    Rectangle(x, y, x + carWidth, y + carHeight);
    Circle(x + wheelRadius, y + carHeight + wheelRadius, wheelRadius); // Левое колесо вагона
    Circle(x + carWidth - wheelRadius, y + carHeight + wheelRadius, wheelRadius); // Правое колесо вагона
  end;
end;

begin
  // Устанавливаем размер окна
  SetWindowSize(800, 200);
  SetWindowCaption('Train Drawing');

  // Устанавливаем цвет фона и очищаем окно
  ClearWindow(clWhite);

  // Рисуем поезд начиная с позиции (50, 100), с тремя вагонами
  DrawTrain(50, 100, 3);

  // Ждем закрытия окна
  ReadLn;
end.

Объяснение кода:

  • uses GraphABC; — подключение графической библиотеки.
  • procedure DrawTrain(x, y: Integer; cars: Integer); — процедура для рисования поезда. Она принимает стартовые координаты x и y, а также количество вагонов cars.
  • Rectangle и Circle — используются для рисования прямоугольников и кругов (колеса).
  • SetWindowSize(800, 200); — указывает размер окна.
  • ClearWindow(clWhite); — задает белый цвет фона и очищает окно.
  • DrawTrain(50, 100, 3); — вызов процедуры для рисования поезда с тремя вагонами.

Вы можете изменить количество вагонов, изменяя параметр в вызове процедуры DrawTrain. Программа создает простую графическую иллюстрацию поезда с использованием базовых графических примитивов.

avatar
ответил месяц назад

Ваш ответ

Вопросы по теме