Краткая справка по языку программирования Turbo Pascal


         

HALT



HALT

Процедура HALT, или более полно HALT(n),   завершает работу программы с кодом завершения n. Этот код впоследствии может быть проанализирован, в частности командой IF ERRORLEVEL в среде MS-DOS. Значение ERRORLEVEL после остановки программы будет равно значению n. Вызов процедуры HALT без параметра эквивалентен вызову HALT(0).

На основе процедуры HALT можно легко построить программу, например ASK.PAS, для организации диалога в BAT-файлах MS-DOS.

Например:

PROGRAM

ASK;

VAR i : Word;

BEGIN

  ReadLn(i);

  HALT(i)

END.

После компиляции получаем файл – AKS.EXE

Пример BAT-файла:

@ECHO OFF

CLS

ECHO Сейчас вы можете:

ECHO 0 - Завершить работу

ECHO 1 – Запустить Norton Commander

ECHO 2 – Отформатировать жесткий диск

ECHO Ваш выбор ?

ask.exe

IF ERRORLEVEL 0 GOTO end

IF ERRORLEVEL 1 GOTO startNC

IF ERRORLEVEL 2 GOTO formatHDD

GOTO end

:startNC

   c:\nc\nc

:formatHDD

   format C: /s

:end




Содержание  Назад