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 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
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

 





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