Вторник, 19.03.2024, 13:36
Приветствую Вас, Гость |
Меню сайта
Наш опрос
Нужен ли форум на этом сайте?
Всего ответов: 1296
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Цикл с предусловием

Формат:

   while <условие> do
   begin

     {
тело
цикла} 
  
end
;

Последовательность действий при выполнении цикла:

  1. Проверяется истинно ли <условие>.
  2. Если это так, то выполняется операторы, заданные в теле цикла.
  3. Пункты 1 и 2 выполняются до тех пор, пока <условие> не станет ложным.

Особенности:

   •         условие окончания цикла может быть выражено переменной, константой или выражением, имеющим логический тип.
   •        
можно использовать сложные условия:
  •        
если в теле цикла только один оператор, слова begin и end можно не писать:

Пример:
Определить количество цифр числа.
Задача:
Ввести целое число (<2000000) и определить число цифр в нем.
Идея решения:
Отсекаем последовательно последнюю цифру, увеличиваем счетчик.
Проблема:
Неизвестно, сколько шагов надо сделать.
Решение:
Надо остановиться, когда n = 0, т.е. надо делать «пока n <> 0». 

   program qq;
   var n, n1,count: integer;

   begin

      writeln('
Введите целое число');
      read(n);
     
n1:=n;

     
count := 0;

     
while n <> 0 do
      begin

         
count := count + 1;

         
n := n div 10;

     
end;

     
writeln('
В числе ', n1, ' нашли ',count, ' цифр');
    end.
Форма входа
Поиск
Мы в сети
Реклама
Для того чтобы не видеть рекламу в правом верхнем углу сайта пройдите простую процедуру регистрации
ФОРУМ
У нас наконецто появился форум! Добро пожаловать! Будьте первыми, задайте направление форуму! =)
--- Не стесняемся - заходим на форум! ---