Применение операторных скобок. Вложенное и последовательное ветвление (команда выбора)

3. 12. 20

Применение операторных скобок. Вложенное и последовательное ветвление (команда выбора)

ДЗ на 10_12. 20:

Задачи № 4, 5, 9

Если в качестве оператора1 в ветке then или оператора2 в ветке else должна выполниться серия операторов, то они объединяются в операторные скобки begin-end например:

Задача 1 Найти частное от деления двух чисел.

program delenie; { Версия 1}

var x, y, z: real;
begin
writeln('x= y= '); readln(x, y);
if y=o then

Операторные скобки

writeln( ' нет решения');

      else

      begin

z: =x/y;

writeln( ' z=', z );

end;

end.

program delenie;                                        {Версия 2}

var

x, y, z: real;

begin

writeln('x= y= ');

readln(x, y);
if y< > 0 then

              begin

              z: =x/y;

              writeln('z= ', z);

              end

        else writeln('нет решения ');

end.

Задача 2 Если первое число меньше второго, увеличить каждое на 1, иначе – найти их сумму.

var

Операторные скобки

x, y, z: real;
begin
writeln('x= y= ');
readln(x, y);
if (y< x) then

begin

                   y: =y+1;   x: =x+1;

       writeln('x= y=’, x, y);

end

else

begin

z: =x+y; writeln( ' z=', z);

end

end.

Задача 3 Найти Y=

Задача 4

Дано: два числа. Если первое больше второго, то найти произведение и сумму этих чисел иначе найти их среднее арифметическое.

Задача 5 Найти Y =

II Вложенное и последовательное ветвление (команда выбора)

В любую из ветвей (then или else) условного оператора можно вложить другой условный оператор.

Задача 6.

12 Следующая ⇒