Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > Не получается запустить программу

Автор: Ксенон 8.3.2009, 19:02

Помогите пожалуйста новичку
Установил 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

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

Код


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

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

Код

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.

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

Автор: volvo877 9.3.2009, 09:32

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

)

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

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

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

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