Top.Mail.Ru
Ответы
Аватар пользователя
Аватар пользователя
Аватар пользователя
Аватар пользователя
Фото, видео, дизайн
+2

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

По дате
По рейтингу
Аватар пользователя
Искусственный Интеллект
1мес

если не указана цена, значит - не очень нужно.

(местная примета)

Аватар пользователя
Просветленный
1мес

Чат ГПТ+ ответил так, но тебе лучше проверить, что получается. )
====================================
Да, я могу помочь перевести этот рисунок в код на языке Pascal, используя библиотеку Graph для рисования. Вот пример, как можно реализовать эту схематичную лодку (буксир) на Pascal:

program DrawBoat;

uses Graph, Crt;

var

gd, gm: Integer;

begin

gd := Detect;

InitGraph(gd, gm, '');

// корпус

Line(100, 300, 400, 300); // верхняя линия корпуса

Line(100, 300, 120, 350); // задняя вертикаль

Line(120, 350, 380, 350); // дно

Line(380, 350, 400, 300); // нос

// верхняя палуба

Rectangle(180, 220, 370, 270); // рубка

Circle(200, 245, 15); // иллюминатор

Line(280, 230, 310, 230); // окно

Line(280, 250, 310, 250);

Line(280, 230, 280, 250);

Line(310, 230, 310, 250);

// труба

Rectangle(220, 170, 260, 220);

Line(220, 185, 260, 185);

Line(220, 200, 260, 200);

ReadLn;

CloseGraph;

end.


Примечания:

  • Координаты и размеры указаны примерно по рисунку.

  • Используется стандартная графическая библиотека Pascal (Graph).

  • Чтобы этот код работал, нужно запустить его в среде с поддержкой Graph (например, в старом Turbo Pascal или Free Pascal с настроенной графикой под DOSBox или Windows GDI).

Если ты хочешь более точную прорисовку с масштабированием или заливкой, могу доработать код. Скажи, какую среду ты используешь (Free Pascal, Lazarus, DOSBox и т. п.).
===============================