PASCAL
program Vyrazh;
var x, y : real;
Begin
write ('Введите х:'); readln(x);
if x= 3 then
write ('При х=3 значение функции не определено')
Else
Begin
y :=(x*x+5*х+2)/(x–3);
write ('y=', y)
End
end.
Если после ключевых слов Then или Else нужно выполнить более одного оператора, то эти операторы должны быть заключены в операторные скобки – ключевые слова Begin и End;
Группа операторов (команд), заключенная в операторные скобки Begin и End, называется составным оператором.
Задача (неполное ветвление).
1. Составить программу, удваивающую значение целой переменной а, если а>5.
ProgramPrimer;
Var а : Integer;
Begin
Write (‘Введите число a= ’);
Read (а);
If а >5 Then а:= а*2;
WriteLn (‘а =', а);
End.
2. Составить программу, определяющую наибольшее значение среди переменных X,Y,Z, значения которых вводятся с клавиатуры.
