модуль graph, есть программа, но система не поддерживает

@Sashoock · Регистрация: 27.10.2011

Author24 — интернет-сервис помощи студентам

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
program lab11;
uses graph;
procedure Osi(x,y,d:integer);
begin
setcolor(1);
line(x-d,y,x+d,y);
outtextXY(x+d-10,y-15,'X');
line(x,y-d,x,y+d);
outtextXY(x+5,y-d,'Y');
end;
procedure Fig(x,y,w,kx1,ky1,kx2,ky2,kx3,ky3,kx4,ky4,f1,f2:integer);
begin
setcolor(8);
line(x-kx1*w,y-ky1*w,x-kx2*w,y-ky2*w);
line(x-kx2*w,y-ky2*w,x+kx3*w,y+ky3*w);
line(x+kx3*w,y+ky3*w,x+kx4*w,y+ky4*w);
line(x+kx4*w,y+ky4*w,x-kx1*w,y-ky1*w);
setfillstyle(3,8);
floodfill(f1,f2,8);
end;
var x,y,i,d,w:integer;
begin
initgraph(x,y,'');
x:=getmaxX div 4;
y:=getmaxY div 2;
d:=x div 2-10;
w:=d-15;
setbkcolor(15);
Fig(x,y,w,0,0,0,1,1,-1,1,0,x+2,y-2);
Fig(2*x,y,w,0,0,1,0,-1,1,0,1,2*x-2,y+2);
Fig(3*x,y,w,1,0, 0,1, 1,0, 0,1,3*x,y);
for i:=1 to 3 do
Osi(x*i,y,d);
readln
end.

@Puporev · 08.12.2011, 20:51

Сообщение от Sashoock

но система не поддерживает

Устанавливайте DosBox или качайте ShoolPack, или FreePascal.

Новые блоги и статьи Все статьи Все блоги /
Компиляция C++ с Clang API NullReferenced 24.03.2025 Компиляторы обычно воспринимаются как черные ящики, которые превращают исходный код в исполняемые файлы. Мы запускаем компилятор командой в терминале, и вуаля — получаем бинарник. Но что если нужно. . .	Многопоточное программирование в C#: Класс Thread UnmanagedCoder 24.03.2025 Когда запускается приложение на компьютере, операционная система создаёт для него процесс - виртуальное адресное пространство. В C# этот процесс изначально получает один поток выполнения — главный. . .	SwiftUI Data Flow: Передача данных между представлениями mobDevWorks 23.03.2025 При первом знакомстве со SwiftUI кажется, что фреймворк предлагает избыточное количество механизмов для передачи данных: @State, @Binding, @StateObject, @ObservedObject, @EnvironmentObject и другие. . . .	Моки в Java: Сравниваем Mockito, EasyMock, JMockit Javaican 23.03.2025 Как протестировать класс, который зависит от других сложных компонентов, таких как базы данных, веб-сервисы или другие классы, с которыми и так непросто работать в тестовом окружении? Для этого и. . .	Архитектурные паттерны микросервисов: ТОП-10 шаблонов ArchitectMsa 22.03.2025 Популярность микросервисной архитектуры объясняется множеством важных преимуществ. К примеру, она позволяет командам разработчиков работать независимо друг от друга, используя различные технологии и. . .
Оптимизация рендеринга в Unity: Сортировка миллиона спрайтов GameUnited 22.03.2025 Помните, когда наличие сотни спрайтов в игре приводило к существенному падению производительности? Время таких ограничений уходит в прошлое. Сегодня геймдев сталкивается с задачами совершенно иного. . .	Образование и практика Igor3D 21.03.2025 Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .	Lazarus. Таблица с объединением ячеек. Massaraksh7 21.03.2025 Понадобилась представление на экране таблицы с объединёнными ячейками. И не одной, а штук триста, и все разные. На Delphi я использовал для этих целей TStringGrid, и то, кривовато получалось. А в. . .	Async/await в Swift: Асинхронное программирование в iOS mobDevWorks 20.03.2025 Асинхронное программирование долго было одной из самых сложных задач для разработчиков iOS. В течение многих лет мы сражались с замыканиями, диспетчеризацией очередей и обратными вызовами, чтобы. . .	Колмогоровская сложность: Приёмы упрощения кода ArchitectMsa 20.03.2025 Наверное, каждый программист хотя бы раз сталкивался с кодом, который напоминает запутанный лабиринт — чем дальше в него погружаешься, тем сложнее найти выход. И когда мы говорим о сложности кода, мы. . .

@Puporev Почетный модератор 64308 / 47605 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	08.12.2011, 20:51
	Сообщение от Sashoock но система не поддерживает Устанавливайте DosBox или качайте ShoolPack, или FreePascal. 0

Опции темы