Конечно, я помогу вам с созданием простого рисунка поезда с вагонами на языке 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
. Программа создает простую графическую иллюстрацию поезда с использованием базовых графических примитивов.