Вложенные условные операторы

Рассмотрим задачу если х>0 то у вычислить по формуле у=х-12 иначе если х=0 то у вычислить по формуле у=5 иначе у вычислить по формуле у=sqr(x); if х>0 then у := х-12 else if х=0 then у := 5 else у := sqr(x);

Пример решения задачи Даны целые числа a, b, c. Если a b c, то все числа заменить их квадратами, если a>b>c, то каждое число заменить наибольшим из них, в противном случае сменить знак каждого числа. Условие в «паскалевском» варианте: a:=sqr(a), b:=sqr(b), c:=sqr©, если a b c b:=a, c:=a, если a>b>c a:=-a, b:=-b, c:=-c, в остальных случаях

Решение [часть первая] Program Example3; Var a, b, c : integer; Begin writeln(Введите числа a, b, c); readln(a,b,c); if (a<=b) and (b<=c) then begin a:=sqr(a); b:=sqr(b); c:=sqr(c); end

Решение [часть вторая] else if (a>b) and (b>c) then begin b:=a; c:=a; end else begin a:=-a; b:=-b; c:=-c; end writeln(a,b,c); readln; End.

Решение задач Найти наибольшее из трех данных чисел. Вывести на экран номер четверти, которой принадлежит точка с координатами (x,y), при условии, что (x<>0) и (y<>0). Даны три различных числа, найти среднее из них. Средним назовем число, которое больше наименьшего из данных чисел, но меньше наибольшего. Запросить стороны треугольника и определить, является ли он разносторонним, равнобедренным или равносторонним. Учесть условие : третья сторона не должна превышать сумму двух других, иначе треугольник не существует.

Решение задач Запрограммируйте шуточный тест "Проверь свои возможности". Пользователю предлагается ответить на 7 вопросов: 1) Профессор лёг спать в 8 часов, а встал в 9 часов. Сколько часов проспал профессор? (1) 2) На двух руках 10 пальцев. Сколько пальцев на 10 руках?(50) 3) Сколько цифр в дюжине?(2) 4) Сколько нужно сделать запилов, чтобы распилить бревно на 12 частей? (11) 5) Врач сделал три укола в интервале 30 минут. Сколько времени он затратил? (30) 6) Сколько цифр 9 в интервале (1;100)? (1) 7) У пастуха было 30 овец. Все кроме одной разбежались. Сколько овец осталось? (1) Оценка ответов пользователя: - если 7 правильных, то печатается "Гений"; - если 6 правильных, то печатается "Эрудит"; - если 5 правильных, то печатается "Нормальный"; - если 4 правильных, то печатается "Способности средние"; - если 3 правильных, то печатается "Способности ниже среднего"; - если <2 правильных, то печатается "Вам надо отдохнуть!".