4.4. Выполнение Вашей первой программы

После исправления ошибок идите в основное меню и выберите Run/Run(или нажмитеCtrl-F9). Вы находитесь на экране пользователя, и на этом экране появится сообщение:

Enter two numbers:

Наберите два любых целых числа с пробелом между ними и нажмите Enter. Появится следующее сообщение:

Theratiois

а за ним – отношение первого числа ко второму. В следующей строке появится сообщение “Press<Enter>…”, а программа будет ждать нажатия клавишиEnter. Чтобы посмотреть вывод своей программы, выберитеWindow/UserScreen(или нажмитеAlt-F5).

Если во время выполнения программы произошла ошибка, то на экране появится сообщение, которое выглядит следующим образом:

Run-time error <errnum> at <segment>:<offset>

где <errnum> - это соответствующий номер ошибки, а <segment>:<offset> - это адрес в памяти, где произошла ошибка. Вы окажетесь в точке расположения ошибки в своей программе с описательным сообщением об ошибке, показанным в строке статуса редактора. Пока сообщение находится в строке статуса редактора, можно нажатьF1 для получения справочной информации по конкретной ошибке. Нажатие любой другой клавиши приводит к исчезновению сообщения об ошибке. Если Вам нужно будет найти местоположение ошибки снова, выберитеSearch/FindError.

Когда Ваша программа закончит выполнение, Вы вернетесь в то место программы, с которого начинали. Теперь Вы можете модифицировать программу, если хотите, Если Вы выберете команду Run/Runперед внесением изменений в свою программу,Turbo Pascalнемедленно выполнит ее снова без перекомпиляции.

Как только Вы вернетесь в окно редактора после выполнения своей программы, Вы можете просмотреть вывод своей программы посредством выбора команды Run/UserScreen(или нажатияAlt-F5). Выберите ее снова для возврата в средуTurbo Pascal.

4.5. Проверка файлов, которые Вы создали

Если Вы вышли из Turbo Pascal(выбравExitиз менюFile), Вы можете просмотреть справочный листинг исходного файла (Паскаль), который Вы создали. Чтобы выйти, нажмитеD(дляDOSShell) в менюFile, или нажмите Х (дляExit) и наберите следующую команду в ответ на подсказкуDOS:

DIR MYFIRST.*

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

MYFIRST PAS 217 8-10-88 11:07a

Файл MYFIRST.PASсодержит программу на Паскале, которую Вы только что написали. Если Вы сохраняли программу во время ее написания, Вы также увидите файлMYFIRST.BAK, который был автоматически создан редактором.

Вы увидите выполнимый файл только в том случае, если Вы изменили установку по умолчанию Destination в меню Compile на Disk. Вы можете затем создать файл, названныйMYFIRST.EXE, который будет содержать машинный код, сгенерированныйTurbo Pascalиз Вашей программы. Затем Вы сможете выполнить эту программу, набравMYFIRST, а затем нажавEnterв ответ на системную подсказкуDOS.

5. Ваша вторая программа

Теперь Вы будете писать вторую программу, которая построена на основе первой. Если Вы вышли из Turbo Pascal, используя команду DOS Shell из меню File, Вы можете вернуться в среду Turbo Pascal, набрав Exit в ответ на подсказку DOS. Если Вы вышли, используя Exit из меню File, Вы можете набрать:

TURBO MYFIRST.PAS

для того, чтобы вернуться в Turbo Pascal. Это перенесет Вас прямо в редактор. Теперь измените программу MYFIRST.PAS следующим образом:

program MySecond;

var

A, B: Integer;

Ratio: Real;

Begin

Repeat

Write(‘Enter two numbers: ‘);

ReadLn(A, B);

Ratio := A/B;

Writeln(‘The ratio is ‘, Ratio:8:2);

Write(‘Press <Enter>…’);

ReadLn;

Until B = 0;

End.

Вы хотите сохранить это как отдельную программу, поэтому войдите в меню File, выберите Save As и наберите MYSECOND.PAS, затем нажмите Enter.

Компилируйте и запускайте свою программу, используя Ctrl-F9. Turbo Pascal выполнит Вашу обновленную программу. Поскольку Вы делали изменения в программе, Turbo Pascal автоматически откомпилирует программу перед ее запуском.

В программе были сделаны большие изменения. Утверждения были заключены в цикл Repeat .. Until. Это приведет к тому, что все утверждения между Repeat и Until будут выполняться до тех пор, пока выражение, следующее за Until, не станет True (истинно). Это выражение проверяет, равно ли значение В нулю или нет. Если В имеет значение 0, цикл должен завершиться.

Запустите свою программу, проверьте некоторые значения, а затем введите 1 0 и нажмите Enter. Ваша программа прекратит работу, но не совсем так, как Вы предполагали: она завершится с ошибкой выполнения. Вы вернетесь обратно в редактор, а курсор будет стоять на строке:

Ratio := A/B;

а вверху окна редактора появится сообщение:

Error 200: Division by zero

(ошибка 200: деление на 0)