5.2 Установка точек останова

1. Набрать и сохранить следующую программу:

program Lab_2;

var

X, Y, A, B, Sum, Sub: Integer;

begin

WriteLn('Введите значения переменныx А и В');

Write('А = ');

ReadLn(A);

Write('В = ');

ReadLn(B);

if A>B then

Sub:=A-B

else

Sub:=B-A;

X:=2*A;

Y:=3*B;

while (Y<>0) and (X<>0) do

begin

X:=X-1;

Y:=Y-1;

Sum:=X+Y;

end;

Sum:=Sub+Sum;

179

WriteLn('X = ',X);

WriteLn('Y = ',Y);

WriteLn('Sum = ',Sum);

end.

2. Оттрассировать программу, наблюдая вывод в специальном окне вывода Output.

3. Установить точку останова на операторе if. Выполнить программу до этой точки. Продолжать пошаговое выполнение.

4. После вычисления разности переменных А и В просмотреть результат (Sub), используя окно Evaluate and Modify.

5. Добавить в окно Watches переменные X,Y,Sum для наблюдения изменения их значений. Продолжать пошаговое выполнение.

6. Дойдя до оператора цикла while задать условную точку останова по числу проходов или по логическому условию. Выполнить программу до этой точки.

7. Продолжать пошаговое выполнение до конца программы, наблюдая изменение значений X,Y,Sum в окне Watches.

8. Просмотреть результат работы программы, используя экран пользователя.

6 Содержание отчета

1 Название, цель, содержание работы

2 Задание.

3 Результаты выполнения работы.

5 Письменные ответы на контрольные вопросы.

6 Выводы по работе

180