Turbo Pascal

[dreamer]

Ответ: Turbo Pascal

Вобщем такая проблемка , у меня есть процедуры title и info которые используют модуль graph и описаны в написаным мною модулем. Так вот возника проблемка в главной программе.
begin
GrDriver:=detect;
initgraphmode(GrDriver,GrMode,'');
title;
info;
closegraph;
mainmenu;
end.

mainmenu - процедура использующая модуль црт , и вся проблема в том , что после процедуры info вместо процедуры mainmenu просто чёрный экран и прога зависает. Пробывал место closegraph писать restorecrtmode не помогает. В процедурах title и info пунктов инциализации граф режима нету , просто обычные процедуры модуля граф. В чём может быть проблема и как её решить ?

Тестируй активнее: работает ли mainmenu просто без всего предыдущего? Работает ли все предыдущее без mainmenu и т.д.
На какой инструкции зависает в mainmenu? Используй дебаг. Учись находить причины ошибки самостоятельно.

 

[Romualdo]

Ответ: Turbo Pascal

В initgraphmode в качестве последнего параметра, по-моему, необходимо прописать путь к папке с графическими режимами (в С обычно это папка BGI)

 

[dreamer]

Ответ: Turbo Pascal

В initgraphmode в качестве последнего параметра, по-моему, необходимо прописать путь к папке с графическими режимами (в С обычно это папка BGI)

Если передана пустая строка драйвер ищется в текущей директории.

 

[[Spider]]

Ответ: Turbo Pascal

Точнее в директории с программой

 

[Пух]

Ответ: Turbo Pascal

You must be registered for see links

может у автора тоже так?

 

[dreamer]

Ответ: Turbo Pascal

Точнее в директории с программой

PathToDriver specifies the directory path
where the graphics drivers can be found. If
PathToDriver is null, the driver files must be
in the current directory.

 

[[Spider]]

Ответ: Turbo Pascal

А что понимается под текущей директорией?

 

[dreamer]

Ответ: Turbo Pascal

А что понимается под текущей директорией?

Это такая директория, с которой производятся файловые операции когда задан относительный путь. При запуске программы обычно она устанавливается в директорию, откуда была запущена программа (это не обязательно там, где лежит исполняемый файл), потом ее можно менять с помощью процедуры ChDir и узнать с помощью процедуры GetDir.

 

[ImMortal]

Ответ: Turbo Pascal

Тестируй активнее: работает ли mainmenu просто без всего предыдущего? Работает ли все предыдущее без mainmenu и т.д.
На какой инструкции зависает в mainmenu? Используй дебаг. Учись находить причины ошибки самостоятельно.

Без понятия где была ошибка, просто все процедуры (включая мейнменю) перенёс в модуль, а процедуры тайтл и т.д(в графике) перенёс в основную программу,+ в мейнменю добавил текстколор и всё заработало.

 

[PLaTiNuM]

Ответ: Turbo Pascal

помогите решить задачки :

1.Реализовать циклическую перестановку элементов массива на заданое число шагов.

2.В Двухмерном массиве реализовать перестановку заданых строк или столбцов.