IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> UNIT expected
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 21
Пол: Мужской
Реальное имя: Александр

Репутация: -  0  +


Установлена операционная система Windows XP PRO.
При проверке программы на Borland Pascal 7.0 выдаёт ошибку UNIT expected. Курсор мигает в начале программы. Программа взята с
Построение любого графика
Думаю, это как то связано с Graph. программы с использованием Crt работают нормально.
 
program grafik;
{$N+}
{$E+}
Uses Graph,crt;
const
{ OPTIONS }
shag=0.0001;
lgr = -50;
pgr = 50;
zcrtX=320;
zcrty=240;
mtrX=10;
mtrY=10;
colorG=15;
colorOXY=4;
OXYminX=-200;
OXYmaxX=200;
OXYminY=-200;
oxymaxY=200;
Var grDriver : Integer;
grMode : Integer;
x,y:real;{extended;}
i:integer;
Begin
grDriver:=Detect;
InitGraph(grDriver, grMode, '');
for i:=OXYminX to OXYmaxX do putpixel(zcrtX+i,zcrty,colorOXY);
for i:=OXYminY to OXYmaxY do putpixel(zcrtX,zcrty-i,colorOXY);
x:=lgr;
while x<=pgr do
begin
{ readln(x);}
{***} if x<>2 then begin y:=abs(x/(x-2))-1; {***}
{ writeln(y:1:8);}
putpixel(zcrtx+trunc(x*mtrX),zcrty-trunc(y*mtrY),colorg) end;
x:=x+shag;
end;
readkey;
closegraph;
end.



Помогите исправить ошибку.

Сообщение отредактировано: Mr. Anderson -


--------------------
Каждое начало имеет свой конец
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Гость






Цитата
нужно ли остальные файлы BGI скопировать в BIN
Вообще-то я бы крайне не рекомендовал сбрасывать все свои программы в папку \BIN... Это все-таки папка для средства разработки... Создал бы свою папку для программ, и работал бы с ней...

Это первое... Второе - зачем тебе другие BGI? Ты что, собрался делать программу, которая будет работать с любыми драйверами? Сомневаюсь...

Ну, и третье: лучше всего (если ты уже занялся разработкой графических программ), написать вот такой модуль:
Unit BGI;

interface

Procedure EgaVgaDriverProc;
{ Сюда можешь добавить также другие драйверы }

Procedure SmallFontProc;
{ Можно добавить любые другие шрифты }

implementation

{$L EGAVGA.obj}
Procedure EgaVgaDriverProc; External;
{ Не забудь добавить все OBJ файлы и описания внешних процедур сюда }


{$L LITT.obj}
Procedure SmallFontProc; External;
{ Не забудь добавить все OBJ файлы и описания внешних процедур сюда }

begin
If RegisterBGIDriver(@EgaVgaDriverProc) < 0 then Halt(100);
{ Здесь надо зарегистрировать ВСЕ описанные выше драйверы }

If RegisterBGIFont(@smallFontProc) < 0 then Halt(200);
{ Здесь надо зарегистрировать ВСЕ описанные выше шрифты }
end.

, откомпилировать его один раз, а потом просто использовать в программе, не заботясь о присутствии BGI и CHR файлов в текущей папке...

(о том, как преобразовать BGI/CHR в OBJ - читай здесь: Директивы компилятора - про директиву $L )
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Mr. Anderson   UNIT expected   6.03.2007 3:18
volvo   Во-первых, почему здесь? Есть же раздел "Зада…   6.03.2007 3:27
volvo   Стоп... Вопрос на засыпку: Как называется файл, в …   6.03.2007 4:01
Mr. Anderson   файл называется grafik.pas . Находится C:\B…   8.03.2007 16:17
volvo   Mr. Anderson, ты опять даешь противоречивую информ…   8.03.2007 16:57
Mr. Anderson   Да, выяснилось :blink: ... сохранил как graph.pa…   8.03.2007 19:04
compiler   по моему эта программа для FP...   8.03.2007 19:33
Mr. Anderson   Пока мы сейчас проходим Паскаль 7.0 ( с сентября п…   8.03.2007 19:36
volvo   Один ответ на 2 предыдущих поста: "Ничего под…   8.03.2007 19:38
compiler   Для compiler: эта программа - для любого компилят…   8.03.2007 19:43
compiler   да тут я ошибся... дело в том что у меня вместо …   8.03.2007 20:54
Mr. Anderson   :good: Спасибо. Осталось ещё немного: После исп…   8.03.2007 20:11
volvo   ReadLn надо ставить НЕ перед End. , а перед CloseG…   8.03.2007 20:18
Mr. Anderson   EVANGA.BGI присутствует ( C:\BP\BGI ). …   8.03.2007 21:22
volvo   Добавить: Var grDriver : Integer; grMode : In…   8.03.2007 21:42
Mr. Anderson   BGI Error: Graphics not initialized (use InitGraph…   8.03.2007 22:29
volvo   Неправильный вывод... ЭТОТ файл должен быть рядом …   8.03.2007 22:47
Mr. Anderson   теперь файл EGAVGA.BGI в папке BIN. компилируется …   8.03.2007 23:17
volvo   Вообще-то я бы крайне не рекомендовал сбрасывать в…   8.03.2007 23:51
Mr. Anderson   Спасибо, попробую. А как поставить стрелки и обозн…   8.03.2007 23:58
compiler   так какая разница между smallint и integer (ссылку…   9.03.2007 3:16
volvo   А как поставить стрелки и обозначения? for i:=OXYm…   9.03.2007 1:07
Mr. Anderson   volvo, огромное спасибо :good: Всё получилось   9.03.2007 1:33
volvo   Да нет никакой разницы, просто smallint гарантиров…   9.03.2007 3:28
compiler   Да нет никакой разницы... благодарю..   9.03.2007 16:04


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 22:18
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name