Разберем более подробно применение программных скобок begin-end.
Вспомним пример из прошлого занятия
if X>Y
then begin
Max:=X;
writeln (‘Первое число больше’);
end
else begin
Max:=Y;
writeln (‘Второе число больше’);
end;
Мы знаем, что после служебных слов then else допускается указывать только одну команду. Что же делать, есле нужно выполнить несколько команд? В этом случае команды заключают в скобки - составной оператор begin-end. То, что находится между служебными словами begin-end считаетс одной командой.
Задание на урок
1. Набрать программу, котрая вычисляет площадь прямоугольника или его периметр.
Code
Program PrimerIf;
Var
a,b,c : byte;
S,Р : word;
BEGIN
writeln (‘Vvedite znachenia storon priamougolnika’);
readln (a,b);
writeln (‘1 – ploshad, 2 - perimetr’);
readln (c);
if c=1
then
begin
S:=a*b;
writeln (‘Ploshad=’ ,S);
end
else
begin
P:=(a+b)*2;
writeln (‘Perimetr=’ ,p);
end;
END.
2. Переработать программу
Найти радиус круга или длину его окружности
3. Добавить в программу окна (подробности - смотреть в прикрепленном файле)
4. Составить программу, которая в зависимости от заказа пользователя создает окно или в правом нижнем углу экрана, или в левом нижнем углу экрана