Оператор ветвления

[Power_95]

Давайте рассмотрим оператор ветвления и разберём пример.
Блок-схема

А вот даю вам код

if условие then блок 1 else блок 2

if - если
then - тогда
else - иначе
Важно! Если блок 1 или блок 2 состоит из нескольких операторов, то этот блок берётся в операторские скобки.

begin 
блок 1;
end;

Условие содержит логические операции (=,<>,<,>,<=,>=) и имеет вид:
переменная <логическая операция> выражение

Теперь рассмотрим пример:
"Если x<3, то вычислить x²+5x-sinx.
если x>=3, то вычислить (x+12)/(x²+1) + квадратный корень x"

pragma a5; {тут название программы я назвал "a5"}
var x,y:real; {объявим переменные x и y}
begin {начало, поехали и т.д.}
writeln ('Введите число x'); {выводим строку, чтобы человек понял, что нам от него нужно}
readln (x);{ожидаем ввода}
if x<3 then {а тут уже началось условие}
    begin
    y:=sqr(x)+5*x-sin(x); {вычисляем}
    end;
else
    begin
    y:=(x+12)/(x*x)+1)+sqrt(x); {вычисляем}
    end;{обрати внимание, тут я поставил точку с запятой}
writeln ('y=',y); {выводим ответ на экран}
end. {тут обязательно должна стоять точка}

Примечание: комментарием в Паскале считается любой текст, ограниченный фигурными скобками { ... } или символами (* ... *). Количество комментариев в программе никак не влияет на объем генерируемого машинного кода, они призваны, прежде всего, облегчить последующее чтение и модификацию исходного текста программы.
Урок на этом закончен, пример брал со свое тетради по информатике.