Ветвление. 
Основные конструкции языка Паскаль

В языках программирования есть конструкторы, которые позволяют из линейных последовательностей утверждений группировать составные утверждения. Семантика конструкторов типовая — в зависимости от условия составному утверждению передается управление или нет при выполнении программы. Подчеркнем, что это не оператор языка программирования в том смысле, что он непосредственно оперирует с данными, это оператор над утверждениями. В любом языке программирования присутствует конструктор ветвлений. Его семантика не зависит от синтаксиса, так в Паскале — это:

IF условие.

THEN оператор

ELSE оператор — для полного конструктора ветвлений и.

IF условие.

THEN оператор — для неполного конструктора ветвлений.

Если ветви THEN и ELSE содержат более одного указания, то указания заключаются в скобки BEGIN и END. Если после ELSE нужно расположить группу операторов, выполняемых тогда и только тогда, когда условие ложно, то ее заключают в операторные скобки BEGIN и END.

Отсутствие скобок не считается синтаксической ошибкой, это — семантическая ошибка.

Пример:

Дано квадратное уравнение: требуется найти его корни.

Решение:

Programm examp1;

Var a, b, c, x1, x2,d:real;

Begin

Writln (`Введите a, b, c');

Readln (a, b, c);

If (a=0)and (b=0)and (c=0)then writln (`Любое решение')

Else

If (a=0)and (b=0)and (c0)then

Writeln (`нет решения')

Else.

If (a=0)and (b0)and (c=0)then

Writeln (`x1=0 ')

Else

If (a=0)and (b0)and (c0) then

Writeln (`x1=-c/b')

Else.

If (a=0) then

Begin

D:=b*b-4*a*c;

If d<0 then writeln (`Действительных корней нет')

Else

If d=0 then

Writeln (`x1=',-b/(2*a))

Else

Writeln (`x1=',(-b-sgrt (d))/(2*a),`x1=',(-b+sgrt (d))/(2*a));

End.

ВАРИАНТЫ:

• 1. Если сумма трех попарно различных действительных чисел x, y, z меньше 1, то наименьшее из этих трех чисел заменить полусуммой двух других; в противном случае заменить меньшее из x и y полусуммой двух оставшихся значений.
• 2. Даны действительные числа a, b, c, d. Если a? b?c?d, то каждое число заменить наибольшим из них, если a>b>c, то числа оставить без изменения; в противном случае все числа заменить их квадратами.
• 3. Даны действительные числа x, y. Если x и y отрицательны, то каждое значение заменить его модулем; если отрицательно только одно из них, то оба значения увеличить на 0.5; если оба значения неотрицательны и ни одно из них не принадлежит отрезку [0.5, 2.0] то оба значения уменьшить в 10 раз; в остальных случаях x и y оставить без изменения.
• 4. Дано действительное число h. Выяснить, имеет ли уравнение ax2+bx+c=0 действительные корни, если

a= b=1- c=ah2sin (bh)+bh3cos (ah).

Если нет корней, сообщите об этом.

• 5. Даны действительные числа x1, x2, x3, y1, y2, y3. Принадлежит ли начало координат треугольнику с вершинами (x1, y1), (x2, y2), (x3, y3)?
• 6. Даны действительные положительные числа a, b, c, x, y. Выяснить, пройдет ли кирпич в прямоугольное отверстие со сторонами x и y. Просовывать кирпич в отверстие разрешается только так, чтобы каждое из его ребер было параллельно или перпендикулярно каждой из сторон.
• 7. Даны действительные положительные числа a, b, c, d. Выяснить, можно ли прямоугольник со сторонами a, b уместить внутри прямоугольника со сторонами c, d так, чтобы каждая из сторон одного прямоугольника была параллельна или перпендикулярна каждой стороне второго прямоугольника.
• 8. Даны натуральные a1, …, an, n. Определить количество членов ak последовательности a1, …, an:
  • а) являющихся нечетными числами;
  • б) кратных трем и не кратные 5;
  • в) являющихся квадратами четных чисел;

• г) удовлетворяющих условию ;
• д)имеющие четные порядковые номера и являющихся нечетными числами.
• 9. Даны действительные положительные числа x, y, z:
  • а) выяснить, существует ли треугольник со сторонами x, y, z;
  • б)если треугольник существует, то ответить — является ли он остроугольным.
• 10. Даны действительные числа a1, b1, c1, a2, b2, c2. Выяснить, верно ли, что

¦ a1b2 — a2b1 ¦? 0.0001, и если верно, то найти решение системы линейных уравнений: a1 x + b1 y + c1 = 0.

a2x + b2 y + c2 = 0.

• (при выполнении выписанного неравенства система заведомо совместна и имеет единственное решение).
• 11. Даны действительные числа a, b, c (a?0). Полностью исследовать биквадратное уравнение ax4 + bx2 + c = 0, т. е. если действительных корней нет, то должно быть выдано сообщение об этом, иначе должны быть выданы два или четыре корня.
• 12. Даны действительные числа x, y, z. Вычислить:
  • а) max (x + y +z, xyz);
  • б) min2((x + y +z)/2, xyz) + 1.
• 13. Даны координаты четырех попарно различных точек плоскости. Найти ту из них, которая
• а) ближе других к началу координат;
• б) дальше других от начала координат.
• 14. Заданы целые a1, b1, c1, a2, b2, c2 отличные от нуля. Определить, существуют ли какие-нибудь вещественные x, y, для которых

a1 x + b1 y + c1? 0.

a2x + b2 y + c2? 0.