Написать текст программы N3 в окне редактора Turbo Pascal:
Var x, y, z : real;
Begin
Write(’ x = ’);
Readln(x);
Write(’ y = ’);
Readln(y);
z:= x + y;
Writeln(’ z = ’, z:10:2)
End.
Сохранить текст в своем каталоге в файле с именем Progr3.pas, выполнить компиляцию и пошаговое прохождение программы, для чего воспользоваться командой Trace intoраздела меню Run(выполнение программы построчно с заходом во все процедуры пользователя). При многократном использовании этой команды следует пользоваться горячей клавишей – F7. Проследить в окне пользователя порядок выполнения строк программы.
В программе можно использовать комментарии – пояснительный текст, ограниченный символами { } или (* *). Комментарии игнорируются компилятором и поэтому не оказывают влияния на выполнение программы. Обычно комментарии используют для пояснений смысла идентификаторов, операторов или частей программы.
Задание 4
Дополнить текст программы N3 операторами очистки экрана и задания цветов фона и текста, после чего выполнить программу:
Uses Crt;{Использовать модуль CRT}
Var x, y, z : real;
Begin
TextColor(Yellow); {Цвет символов - желтый}
TextBackground(Red);
ClrScr;{Очистить экран красным цветом}
Write(’ x = ’);
Readln(x);
Write(’ y = ’);
Readln(y);
z:= x + y;
Writeln(’ z = ’, z:10:2)
End.
Лабораторная работа №2
