Паскаль. Основы программирования


Оператор if then else - часть 2


В процедуре write (writeln) можно записывать выполнение арифметических операций.

Ещё одно существенное замечание. Вы уже заметили, что перед оператором else

точка с запятой не ставится.

Программа имеет один недостаток. В ней не учитывается то, когда введенные числа будут равны. В этом случае на экран надо выдать сообщение: "Числа равны".

Программа

Program

Problem2a; {Программа удвоения меньшего из двух чисел}

    uses WinCrt;

    var

       a, b, c : integer;

    begin

       write('Введите первое число '); readln(a);

       write('Введите второе число '); readln(b);

        if a = b then writeln('Числа равны')

                     else

                        begin

                            if a < b then c := 2*a

                                         else  c := 2*b;

                           writeln('Меньшее число ', c div 2);

                           writeln('Удвоенное меньшее число ', c)

                       end

    end.

В этой программе два условных оператора, первым проверяется условие равенства чисел и, в случае его выполнения, будет выдано сообщение о равенстве чисел, которое находится в операторе then.

В операторе else

записано несколько команд, поэтому в нём установлены операторные скобки:

begin

   ........

end;

Такие же операторные скобки в необходимых случаях могут быть использованы и в операторе then.

ВЫВОДЫ

В операторах then и else могут быть использованы операторные скобки:

begin ... end;,

где записывается еще одна группа операторов.

Перед оператором else точка с запятой не ставится.

Задание 2

1. Введите первую программу примера 2 и выполните ее. Измените программу так, как это было сделано во втором случае, т. е. с учетом равенства вводимых чисел.

2. Составьте программу определения большего из двух чисел.

3. Составить программу определения модуля числа.




Начало  Назад  Вперед