VPF::Не получается запустить программу

Ксенон

Дата 8.3.2009, 19:02 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 8.3.2009

Репутация: нет
Всего: нет

Помогите пожалуйста новичку
Установил Turbo Pascal 7.1, написал програмку, которая рисует прямую линию:
program line;
uses Graph;
var
i:integer;
D,
M: integer;
begin
InitGraph(D, M, '');
line(0, 0, GetMaxX div 2, GetMaxY div 2);
Readln;
CloseGraph;
end.
Пытаюсь запустить, выдает: Error 14: Invalid Filename (C:\Program\LINE.EXE). Может ошибка в коде?

hot_man

Дата 8.3.2009, 20:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 31
Регистрация: 5.12.2007
Где: Россия, Тольятти

Репутация: нет
Всего: нет

Ксенон, у меня рисует вот так...

Код


program line;
uses Graph;
var
 i:integer;
 D,M: integer;
begin
 InitGraph(D, M, '');
 lineto(GetMaxX div 2, GetMaxY div 2);
 Readln;
 CloseGraph;
end.

Добавлено через 2 минуты и 11 секунд

Цитата(Ксенон @ 8.3.2009, 19:02)

C:\Program\LINE.EXE). Может ошибка в коде?

подобной ошибки не было (

Metalex

Дата 8.3.2009, 20:19 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 635
Регистрация: 22.10.2008
Где: Украина-ZPсity

Репутация: нет
Всего: нет

Вот программка с линиями, поинтересней будет обычной прямой:

Код

Program Lynes;
uses crt, graph;
Const Pause=500;
Var driver, mode:integer;
Begin
driver:=detect;
initgraph (driver,mode,'D:\BP\BGI');
Randomize;
while not Keypressed do
begin
Setcolor (random(15));
Line (random(639),random(479),random(639),random(479));
Delay(Pause);
end;
readln;
closegraph;
end.

Измени путь только.

--------------------

Don't let the system get you down.

volvo877

Дата 9.3.2009, 09:32 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Цитата(Metalex @ 8.3.2009, 19:19

)

Вот программка с линиями, поинтересней будет обычной прямой:

Вопрос был не в том, что будет интереснее (поверь мне, есть огромное количество тем, которые ГОРАЗДО интереснее твоей программы с линиями), а в том, почему программа не работает. Так?

Так вот не сработает она потому, что Паскаль видит в вызове процедуры Line попытку обращения к глобальной переменной (название программы не должно совпадать ни с одним из используемых в ней идентификаторов). Меняем название программы и запускаем.

+ к этому не мешало бы проверить, правильно ли настроены пути: меню Options -> Directories, проверить, что все пути записаны в виде 8.3 (максимум 8 символов - имя + 3 символа - расширение), Турбо Паскаль не признает длинных путей. А судя по сообщению об ошибке у автора там написано что-то вроде C:\Program Files\...

Это сообщение отредактировал(а) volvo877 - 9.3.2009, 09:37

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »