Программирование в среде Turbo Pascal / Pascal / 5_3

Turbo Pascal | Глава 5 a:link {TEXT-DECORATION: none} a:visited {TEXT-DECORATION: none} a:active {TEXT-DECORATION: none} a:hover {COLOR: #007EFF;} A.menu:link { Color:#FFFFFF; } A.menu:visited { Color:#EEEEEE; } A.menu:hover { Color:#CCDDFF; } .glow { FILTER: DropShadow(Color=#000000, OffX=1, OffY=1, Positive=1)FILTER: Glow(Strength=1, Color=#454545); } .logot { color:#FFFFFF; }  

В в е д е н и е  /  О г л а в л е н и е  /  О т   а в т о р а

М е н ю

1. Интегрированная среда разработки программ Turbo Pascal 7.0 2. Лексические основы языка Pascal 3. Программирование алгоритмов линейной структуры 4. Алгоритмы и программы ветвящейся структуры 5. Алгоритмы и программы циклической структуры 5.1 Понятие цикла. Разновидности циклов

5.2 Цикл с параметром в Pascal

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

5.4 Цикл с постусловием 6. Регулярные типы данных. Массивы 7. Подпрограммы в Turbo Pascal

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

      Оператор While предназначен для реализации цикла с предусловием. Синтаксис его выглядит следующим образом:

      While <условие> do <оператор>;

      где While, do - служебные слова;

       <условие> - логическое выражение, операция сравнения или переменная логического типа Boolean;

       <оператор> - оператор, входящий в тело цикла.

      Перед началом выполнения тела цикла осуществляется проверка значения условия. Тело цикла с предусловием выполняется, пока имеет истинное значение (True). Как только значение условия станет ложным (False), цикл прекращает работу и управление передаётся на оператор, следующий за циклом. Таким образом, если при первом вхождении в цикл значение условия ложно, то тело цикла не выполнится ни одного раза. Следует отметить, что в теле цикла необходимо предусмотреть операторы, выполнение которых может повлиять на изменение значения условия, иначе цикл будет выполняться бесконечно. Цикл While используется, как правило, в тех случаях, когда заранее неизвестно количество повторений тела цикла.

      Пример 5.2. Разложить целое число, вводимое с клавиатуры, на простые множители.

      Определим переменную X для ввода разлагаемого числа, m - переменная, используемая в качестве делителя.

      На рисунке 5.5 приведена блок-схема алгоритма решения задачи.

Рисунок 5.5 - Блок-схема алгоритма решения задачи

Program Example_5_2;

   var x,m: Integer;

Begin

   Write ('Введите целое число... '); ReadLn (x);

   WriteLn ('Разложение числа ',x,' на простые множители');

   m:=2;

   While m<=x do

      If (x mod m)=0

      then begin Write (' * ',m);

      x:=x DIV m

   end

      else m:=m+1

End.

Учебно-познавательный сайт по программированию в среде Turbo Pascal

Мирошниченко Марина, Краснодар, 2003