1. 5. Пробный запуск программы на выполнение

Если компиляция программы завершена успешно, то можно выполнить пробный запуск выполняемой программы, используя первичный набор исходных данных, называемый контрольным примером.

Перед пробным запуском программы следует сохранить текст исходной программы в файле.

Чтобы запустить на выполнение программу, текст которой находится в окне редактирования, надо в пункте меню Run (Выполнить) выполнить команду Run. В результате запуска программы с экрана исчезает окно Turbo Pascal и появляется так называемое окно пользователя (user screen). В это окно программа выдает сообщения и результаты выполнения программы (результаты выполнения операторов write и writeln), и из этого окна она получает от пользователя необходимые исходные данные (операторы read и readln). По завершении работы запущенной программы вновь появляется главное окно Turbo Pascal. Просмотреть результаты работы программы можно, переключившись в окно пользователя. Для этого надо в пункте меню Debug (Отладка) выполнить команду User Screen или, удерживая нажатой клавишу <Alt>, нажать <F5>. Вернуться в главное окно из окна пользователя можно, нажав любую клавишу.

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

writeln('Программа завершила работу.');

writeln('Нажмите <Enter>');

readln;

Отсутствие в тексте программы синтаксических ошибок и генерация компилятором исполняемого файла программы не является гарантией отсутствия ошибок в программе. Ошибки в программе могут проявляться во время ее работы. Такие ошибки называются ошибками времени выполнения программы (runtime error). В этом случае на экран выводится сообщение типа: Runtime error N at..., где N – номер ошибки. Причиной ошибок времени выполнения, как правило, являются ошибки в логике алгоритма, положенного в основу программы, или неверные исходные данные.

С помощью команды Run пункта меню Run запускается программа, текст которой находится в окне редактора. Чтобы иметь возможность использовать созданную программу вне среды программирования (не запуская Turbo Pascal и не загружая текст программы в редактор), нужно создать исполняемый файл программы. Для этого требуется установить режим компиляции "на диск" и выполнить повторную компиляцию программы. В результате в каталоге, предназначенном для хранения файлов выполняемых программ, появится файл, имя которого будет совпадать с именем файла исходной программы и расширением .ехе. После этого созданная программа может быть запущена вне системы программирования, например из Norton Commander или DOS обычным образом.

1. 6. Завершение работы

Для завершения работы с системой программирования Turbo Pascal 7.0, нужно в пункте меню File (Файл) выполнить команду Exit (Выход) или ввести клавишную команду <Alt> - <X>.

1. 7 Программирование линейных вычислительных процессов

Линейным называется вычислительный процесс, все действия которого, начиная от ввода исходных данных и заканчивая получением результатов, выполняются последовательно, одно за другим.

П р и м е р. На плоскости координатами своих вершин x, y в декартовой системе координат задан треугольник ABC. Найти площадь этого треугольника.

Блок-схема алгоритма решения задачи приведена на рис. 9.

Рис. 9

Текст программы:

Program Treygolnik;

Var

x1, y1, x2, y2, x3, y3 : real; {координаты вершин треугольника}

ab, bc, ac : real; {длины сторон треугольника}

p, s : real; {полупериметр, площадь}

begin

writeln(‘Ввод исходных данных’);

writeln(‘Ввод координат вершины A’); readln(x1,y1);

writeln(‘Ввод координат вершины B’); readln(x2,y2);

writeln(‘Ввод координат вершины C’); readln(x3,y3);

ab:=sqrt(sqr(x1-x2) + sqr(y1-y2)); {длина стороны AB}

bc:=sqrt(sqr(x2-x3) + sqr(y2-y3)); {длина стороны BC}

ac:=sqrt(sqr(x1-x3) + sqr(y1-y3)); {длина стороны AC}

p:=(ab+bc+ac)/2; s:=sqrt(p*(p-ab)*(p-bc)*(p-ac)); {полупериметр и площадь}

write('Площадь =’, s:6:2)

end.