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


Условия в программах с циклами - часть 3


      while n mod 2 = 0 do { Цикл для вывода делителей, равных 2 }

         begin

            write(2, ' ');

            n := n div 2

         end;

{----------------------------------------------------------------------------------------}

      i := 3;

      while i <= n do           { Цикл для нечетных делителей }

         if n mod

i = 0

             then

               begin                 

                  write(i, ' ');

                  n := n div i

               end

            else i := i + 2;

      writeln

    end.

 

Можно расширить область вводимых чисел, используя уже известный тип

longint:

Еще один пример, где используются цикл и условие.

Пример 4. Написать программу, в результате выполнения которой выяснится, входит ли цифра 2 в запись данного целого числа n.

Идея составления программы проста. Надо организовать цикл, в котором выделять цифры числа уже известным вам способом и каждую из них сравнивать с цифрой 2. Если

цифра числа оказывается равной двум, тогда надо счетчик, которым может быть некоторая числовая переменная, увеличивать на единицу, иначе,

цикл надо продолжать.

Когда цикл будет выполнен полностью, т. е. все цифры числа проверены и каждая из них будет сравнена с цифрой 2, надо снова использовать условный оператор и сравнить значение переменной - счетчика с нулем. Если значение переменной равно нулю, то это значит, что цифра 2 не входит в запись числа, иначе

- входит.

АЛГОРИТМ

1. Начало. Переменные целого типа n, p, k: n - для вводимого числа; p - для цифр этого числа; k - счетчик, подсчитывающий количество цифр в числе, равных 2.

2. Ввод целого числа.

Счетчику k устанавливается первоначальное значение 0.

3. Цикл, пока n <> 0. В цикле, переменной p присваивать значение цифры числа.

Если

p = 2, тогда увеличивать k на единицу.

Вычесть из числа n последнюю цифру и разделить его на 10.

Продолжить и закончить цикл.

4. Если

k = 0, тогда выдать сообщение: "Цифра 2 не входит в запись числа", иначе, выдать сообщение: "Цифра 2 входит в запись числа".




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



Книжный магазин