| Исправьте ошибку: замените
Triangle(A, B, C, R, S); на
Triangle(A, B, C, S, R);. |
| Откомпилируйте программу, убедитесь,
что она не содержит синтаксических
ошибок. Выполните программу. При вводе
данных разделяйте их пробелами.
Просмотрите результат выполнения. Что
происходит, если в качестве длин сторон
треугольника вводятся данные, не
подчиняющиеся соотношению "сумма
длин двух любых сторон треугольника
должна быть больше длины третьей
стороны"? Сохраните файл. |
Создайте файл
project6.lpr,
<текст в
угловых скобках>
замените на соответствующие личные
данные.
| Откомпилируйте программу, убедитесь,
что она не содержит синтаксических
ошибок. Выполните программу, убедитесь,
что имеет место ошибка времени
выполнения File not found (Файл не найден). |
| Исправьте ошибку: замените
MyFile='project15.dpr'; на
MyFile='project1.dpr';. |
| Выполните программу и просмотрите
результат выполнения. Сохраните файл. |
Выполните программу
project5.lpr.
Вместо ввода исходных данных нажмите Ctrl+C
(нажмите клавишу Ctrl и, удерживая ее,
нажмите клавишу C). Убедитесь, что
произошло аварийное прерывание
выполнения программы и возврат в турбо-оболочку.
Создайте файлы
p.lpr,
u1.pas,
u2.pas
(меню "Файл" -> "Создать модуль").
Сделайте окно файла
p.pas
активным. В меню "Запуск" выполните
команду "Собрать все".
Внесите изменения в программу
u2.pas:
текст процедуры Proc2
должен иметь вид
procedure Proc2;
begin
WriteLn('Это процедура P2 из
модуля unit U2.');
end;
Сохраните файл. Сделайте окно файла
p.lpr
активным. В меню "Запуск" выполните команду "Собрать все".Создайте файл
project7.lpr,
<текст в
угловых скобках>
замените на соответствующие личные
данные.
| Откомпилируйте программу, убедитесь,
что она не содержит синтаксических
ошибок. Выполните программу, убедитесь,
что имеет место алгоритмическая ошибка:
переменные A
и B не
меняются местами. |
| Добавьте в окно "Окно наблюдений" переменные
A,
B,
X,
Y.
Измените размеры окон так, чтобы окна PROJECT7.LPR
и "Окно наблюдений"
не перекрывались. Меню "Вид" -> "Окна
отладки" -> "Окно наблюдений" |
| Выполните программу по шагам.
Убедитесь, что во время выполнения
переменные X
и Y в окне
просмотра имели значения Unknown identifier,
а переменные A
и B
принимают неверные (по смыслу задачи)
значения.
Меню "Запуск" -> "Шаг в обход" (F8) |
| Выполните трассировку программы (Trace
into, выполнение по шагам с заходом в
подпрограммы). Убедитесь, что во время
выполнения переменные A,
B, X,
Y
принимают неверные (по смыслу задачи)
значения.
Меню "Запуск" -> "Шаг со входом" (F7) |
| Исправьте алгоритмическую ошибку:
После спецификации процедуры Exchange
добавьте текст:
var Tmp: Real;
Измените тело процедуры Exchange
следующим образом:
Tmp := X;
X := Y;
Y := Tmp;
|
| Добавьте в окно просмотра переменную Tmp.
Выполните трассировку программы.
Посмотрите, как во время выполнения
меняются значения переменных A,
B, X,
Y, Tmp.
Убедитесь, что программа выдает верные
результаты. Сохраните файл. |
| * Как исправить ошибку
в алгоритме, не используя временную
переменную Tmp? |
В программе
project4.lpr
установите точку останова на оператор RDiv
:= A/B;.
Меню "Запуск" -> "Добавить точки останова" (F5)
| Поместите в окно просмотра переменные
A, B,
RMul, RDiv. |
| Выполните программу до точки останова. |
| Выполните программу до конца. Удалите
точку останова. Завершите отладку
программы.
Меню "Запуск" -> "Останов" (Ctrl+F2) |
Создайте файл
project8.lpr,
<текст в
угловых скобках>
замените на соответствующие личные
данные.
| Расставьте точки останова на
операторы
F := F*i;
Sum := Sum + 1/i;
Fact := Factorial(N1);
|
| Выполните программу для значений 4
и 4.
Завершите отладку программы. |