![]() |
Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | |
|
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;
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) Просмотреть результат работы программы, используя экран пользователя.
Содержание отчета
1 Название, цель, содержание работы
2 Задание.
3 Результаты выполнения работы.
5 Письменные ответы на контрольные вопросы.
6 Выводы по работе
Дата публикования: 2014-12-11; Прочитано: 151 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!