Вылетает паскаль в графическом режиме - Помощь студентам - Страница 2

__STDC__ · 04.05.2009, 20:52

покажи теперь свой код

ai\ekcah^p · 04.05.2009, 21:00

uses graph;
var gd,gm:integer;
begin
gd:=detect;
initgraph(gd,gm,'d:\tp7\bgi');
if graphresult<>0 then
begin
write('owibka grafiki:',grapherrormsg(graphresult ));
halt;
end;

circle(100,80,50);
readln;
closegraph;

end.

__STDC__ · 04.05.2009, 21:28

очень странно, ибо у меня все работает.. используй FPC..

OCTAGRAM · 05.05.2009, 03:56

В School Pak в InitGraph нужно 'X:\BP' писать

ai\ekcah^p · 05.05.2009, 10:09

OCTAGRAM ! Я поменял путь на 'x:\bp' в School Pak - все заработало! В паскале так и вылетает. Подскажи , где файлы которые я сохраняю с расширением .pas , в какой папке искать?

ai\ekcah^p · 05.05.2009, 10:10

в School Pak !

OCTAGRAM · 05.05.2009, 10:18

В Моих документах

ai\ekcah^p · 05.05.2009, 10:26

Супер! Нашел! Спасибо OCTAGRAM!!! Наконец-то))

__STDC__ · 05.05.2009, 15:57

еще как вариант можно попробовать заменить gd:=detect; на detectgraph(gd,gm);

ai\ekcah^p · 05.05.2009, 16:04

не
тоже вылетает (
А School Pak чем от паскаля отличается?

04.05.2009, 20:52	#11
__STDC__ Участник клуба Регистрация: 16.03.2009 Сообщений: 1,013	покажи теперь свой код Uguu~

04.05.2009, 21:00	#12
ai\ekcah^p Форумчанин $Аватар для ai\ekcah^p$ Регистрация: 03.05.2009 Сообщений: 112	uses graph; var gd,gm:integer; begin gd:=detect; initgraph(gd,gm,'d:\tp7\bgi'); if graphresult<>0 then begin write('owibka grafiki:',grapherrormsg(graphresult )); halt; end; circle(100,80,50); readln; closegraph; end.
$ai\ekcah^p вне форума$

04.05.2009, 21:28	#13
__STDC__ Участник клуба Регистрация: 16.03.2009 Сообщений: 1,013	очень странно, ибо у меня все работает.. используй FPC.. Uguu~

05.05.2009, 03:56	#14
OCTAGRAM Oldschool geek Форумчанин Регистрация: 09.03.2009 Сообщений: 611	В School Pak в InitGraph нужно 'X:\BP' писать If you want to get to the top, you have to start at the bottom http://pascal.net.ru/

05.05.2009, 10:09	#15
ai\ekcah^p Форумчанин $Аватар для ai\ekcah^p$ Регистрация: 03.05.2009 Сообщений: 112	OCTAGRAM ! Я поменял путь на 'x:\bp' в School Pak - все заработало! В паскале так и вылетает. Подскажи , где файлы которые я сохраняю с расширением .pas , в какой папке искать?
$ai\ekcah^p вне форума$

05.05.2009, 10:10	#16
ai\ekcah^p Форумчанин $Аватар для ai\ekcah^p$ Регистрация: 03.05.2009 Сообщений: 112	в School Pak !
$ai\ekcah^p вне форума$

05.05.2009, 10:18	#17
OCTAGRAM Oldschool geek Форумчанин Регистрация: 09.03.2009 Сообщений: 611	В Моих документах If you want to get to the top, you have to start at the bottom http://pascal.net.ru/

05.05.2009, 10:26	#18
ai\ekcah^p Форумчанин $Аватар для ai\ekcah^p$ Регистрация: 03.05.2009 Сообщений: 112	Супер! Нашел! Спасибо OCTAGRAM!!! Наконец-то))
$ai\ekcah^p вне форума$

05.05.2009, 15:57	#19
__STDC__ Участник клуба Регистрация: 16.03.2009 Сообщений: 1,013	еще как вариант можно попробовать заменить gd:=detect; на detectgraph(gd,gm); Uguu~

05.05.2009, 16:04	#20
ai\ekcah^p Форумчанин $Аватар для ai\ekcah^p$ Регистрация: 03.05.2009 Сообщений: 112	не тоже вылетает ( А School Pak чем от паскаля отличается?
$ai\ekcah^p вне форума$

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Работа с файлами. Вывод в Граф режиме. Паскаль.	HITMAN 09	Помощь студентам	8	23.04.2009 20:36
Вопрос с подключением мыши в графическом режиме	Unconnected	Паскаль, Turbo Pascal, PascalABC.NET	1	01.07.2008 10:26
Как сделать снимок экрана в графическом режиме?	Борис2	Паскаль, Turbo Pascal, PascalABC.NET	9	08.12.2007 21:07
graph - Как в графическом режиме вывести переменную?	nikleb	Паскаль, Turbo Pascal, PascalABC.NET	4	12.04.2007 21:44