|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
05.08.2009, 19:00 | #1 |
Пользователь
Регистрация: 05.08.2009
Сообщений: 17
|
Паскаль не рисует!
Привет всем!
У меня проблема: я создал графическую прогу, но она не работает! Вроде все как надо: путь к файлу egavga указал, файл graph.tpu поставил куда надо, и при компиляции тут же к этой граф. проге создается EXE-шник, но как только я прогу запускаю, неважно из редактора или exe-шником, она вылетает и ничего не рисует! Помогите разобраться! |
05.08.2009, 19:04 | #2 |
Пользователь
Регистрация: 18.11.2008
Сообщений: 94
|
Ну может стоит поставить в конце программы пару ReadLn'ов или ReadKey, если CRT подключен ?
|
05.08.2009, 19:07 | #3 |
Пользователь
Регистрация: 05.08.2009
Сообщений: 17
|
|
05.08.2009, 19:19 | #4 |
Форумчанин
Регистрация: 24.04.2008
Сообщений: 300
|
исходный код,будь добр,выложи
|
05.08.2009, 19:20 | #5 |
Пользователь
Регистрация: 03.12.2008
Сообщений: 76
|
код в студию!
При установке Линукс не пострадало ни одного пингвина... Зато пострадало много дятлов..
|
05.08.2009, 19:25 | #6 |
Пользователь
Регистрация: 05.08.2009
Сообщений: 17
|
Uses graph;
Var gd, gm:integer; x,y,r, style, color:integer; begin writeln ('радиус'); readln (r); writeln ('стиль и цвет?'); readln (style, color); gd:=detect; initgraph (gd,gm,'c:\Program Files\BP\bgi'); x:=getmaxx div 2; y:=getmaxy div 2; setcolor (color); circle (x,y,r); setfillstyle (style, color); floodfill (x,y,color); readln; readln; closegraph; end. |
05.08.2009, 19:41 | #7 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Попробуйте модули Grapf и Egavga положить в папку с программой, а путь просто написать ''. Мне кажется папка Program Files просто недоступна. Вообще рабочие программы и модули не надо держать во всякого рода служебных директориях.
Программа нормально работает, проверил. |
05.08.2009, 20:19 | #8 |
Форумчанин
Регистрация: 26.04.2009
Сообщений: 270
|
и не пользуйся процедурами WriteLn в графическом режиме...привыкай к гафическим процедурам
|
05.08.2009, 20:21 | #9 | |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Цитата:
|
|
05.08.2009, 20:25 | #10 |
Форумчанин
Регистрация: 26.04.2009
Сообщений: 270
|
puporev
________ видел..... |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Паскаль, Борланд Паскаль-в чем разница??? | Vremya-Dengy | Паскаль, Turbo Pascal, PascalABC.NET | 13 | 31.05.2011 18:23 |
Паскаль | Alfis | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 07.12.2008 15:28 |
Паскаль | Jenny104 | Помощь студентам | 3 | 19.09.2008 07:06 |
TListView; не рисует цветом TCanvas | JetAPI | Компоненты Delphi | 9 | 24.08.2007 22:22 |