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

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

Enter two numbers:

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

The ratio is

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

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

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

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

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

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

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

Если Вы вышли из Turbo Pascal (выбрав Exit из меню File), Вы можете просмотреть справочный листинг исходного файла (Паскаль), который Вы создали. Чтобы выйти, нажмите D (для DOS Shell) в меню 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)