Основы программирования на

Pascal ABC

• Главная страница
• Введение
• Ветвления
• Сложные условия
• Циклы
• Циклы с условием
• Оператор выбора
• Графика
• Процедуры
• Рекурсия

 Циклы с условием

Циклы с условием используются тогда когда неизвестно точное число повторений цикла.

Первый цикл который мы рассмотрим:

Цикл с предусловием - цикл в котором условие проверяется в начале цикла.

while <условие> do
begin
<тело цикла>
end;

Это цикл выполняется пока условие истинно(т.е while можно перевести как пока, а do как делай);

Особенности:
 - можно использовать сложные условия:
 - если в теле цикла только один оператор, слова begin и end можно не писать

 - если условие на входе в цикл ложно, цикл не выполняется ни разу
 - если условие никогда не станет ложным, программа зацикливается.

Цикл с постусловием - цикл в котором условие проверяется в конце цикла.

Repeat

<тело цикла>

Until <условие>

Это цикл будет выполняться до тех пор пока условие не станет истинно(т.е repeat будет переводиться как повторяй, а until до тех пор пока не станет).

Особенности:
тело цикла всегда выполняется хотя бы один раз
 

Задача: ввести число и подсчитать сколько цифр в нём.

Идея решения задачи: мы будет убирать из числа по одной цифре и увеличивать счетчик.

Решать задачу я буду с помощью цикла с предусловием. С другим циклом вы можете попробовать решить её самостоятельно.

Блок схема:

Сама программа

Program Fifth;

Uses Crt;

Var a,count:longint;

Begin

Writeln ('Введите натуральное число');

Readln (a);

While a<>0 do begin

a:=a div 10;

count:=count+1;

End;

Writeln ('Кол-во цифр в числе:',count);

End.

А на экране вы увидите следующее:

Для закрепления полученных знаний по теме циклы по можете пройти Тест

А для перехода к следующей теме нажмите тут.