Question

НАПИШИТЕ ПРОГРАММУ рисунка в паскаль очень надо
рисунок смотреть ниже

Answer 1

Конечно, я могу сделать это! Чтобы создать программу рисунка на языке Паскаль, нам понадобятся следующие шаги:

1. Создание экрана для рисования
2. Написание кода для отображения нужного рисунка

Шаг 1: Создание экрана для рисования
В языке Паскаль для создания экрана для рисования мы будем использовать графическую библиотеку Graph. Ниже приведен пример кода, который создаст экран размером 800x600 пикселей:

```
uses
Graph;

var
gd, gm: smallint;

begin
gd := Detect;
InitGraph(gd, gm, 'C:\BGI'); // Указываем путь к папке BGI (графическая библиотека)
SetbkColor(White);
SetColor(Black);
ClearDevice;
// Здесь можно добавить код для расположения рисунка на экране
ReadLn;
CloseGraph;
end.
```

Шаг 2: Написание кода для отображения нужного рисунка
Теперь, когда мы создали экран для рисования, мы можем начать реализовывать наш рисунок. Ниже приведен пример кода для рисования треугольника:

```
uses
Graph;

var
gd, gm: smallint;

procedure DrawTriangle;
begin
Line(100, 300, 400, 300); // Рисуем основание треугольника
Line(100, 300, 250, 100); // Рисуем левую сторону треугольника
Line(400, 300, 250, 100); // Рисуем правую сторону треугольника
end;

begin
gd := Detect;
InitGraph(gd, gm, 'C:\BGI'); // Указываем путь к папке BGI (графическая библиотека)
SetbkColor(White);
SetColor(Black);
ClearDevice;
DrawTriangle; // Вызываем процедуру рисования треугольника
ReadLn;
CloseGraph;
end.
```

Этот код рисует треугольник с основанием длиной 300 пикселей и высотой 200 пикселей. Вы можете изменить эти значения, чтобы создать рисунок по своему вкусу.

Надеюсь, этот объяснительный ответ поможет вам разобраться в создании программы рисунка на языке Паскаль. Если у вас возникнут какие-либо вопросы, не стесняйтесь задавать.