Презентация "Операторы цикла.Цикл с предусловием."

3/10/18 09:24:33 PM

Операторы цикла. Цикл с предусловием.

© Корпорация Майкрософт (Microsoft Corporation), 2007. Все права защищены. Microsoft, Windows, Windows Vista и другие названия продуктов являются или могут являться зарегистрированными товарными знаками и/или товарными знаками в США и/или других странах.

Информация приведена в этом документе только в демонстрационных целях и не отражает точку зрения представителей корпорации Майкрософт на момент составления данной презентации. Поскольку корпорация Майкрософт вынуждена учитывать меняющиеся рыночные условия, она не гарантирует точность информации, указанной после составления этой презентации, а также не берет на себя подобной обязанности. КОРПОРАЦИЯ МАЙКРОСОФТ НЕ ДАЕТ НИКАКИХ ЯВНЫХ, ПОДРАЗУМЕВАЕМЫХ ИЛИ ЗАКРЕПЛЕННЫХ ЗАКОНОДАТЕЛЬСТВОМ ГАРАНТИЙ В ОТНОШЕНИИ СВЕДЕНИЙ ИЗ ЭТОЙ ПРЕЗЕНТАЦИИ.

Цикл (в программировании) – многократно выполняемая в составе некоторой программы группа команд.

Цикл с предусловием – цикл, в котором условие его выполнения проверяется перед выполнением тела цикла.

Цикл с предусловием вообще может ни разу не выполниться, если условие его выпол-нения изначально не соблюдается.

Оператор цикла в Паскале

While do

Операция выполняется до тех пор, пока истинно условие, указанное в операторе while

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

Пример:

while do

begin

;

;

;

… .

end ;

Блок-схема

определить и вывести на экран по отдельности цифры целого числа n.

Математическое решение.

Найдём последнюю цифру числа 4538 (т.е. количество единиц)

4538 mod 10 =8

Тогда можно вывести на экран сообщение:

«1-я цифра справа равна 8».

Затем выполним целочисленное деление заданного числа 4538 на 10 (остаток отбрасывается):

4538 div 10 = 453 и т.д.

Процесс нужно продолжить, пока число n не равно 0. А как только оно станет равно 0, цикл нужно завершить.

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

Программа для решения задачи.

Program problem5_1;

var n,p,i:integer;

begin

writeln( 'Введите натуральное число n

readln(n);

i:=0;

while n 0 do

begin

p:=n mod 10;

i:=i+1;

writeln(i, '-я цифра справа равна' ,p);

n:=n div 10

end;

end.

Задание (самостоятельно)

Составьте алгоритм вычисления суммы всех натуральных чисел, не превышающих заданного натурального числа N.

Решение задачи

program summa_n_2;

Var i,n,sum: integer;

begin

Write ('n= ');

readln(n);

sum:=0;

i:=0;

while ido

begin

i:=i+1;

sum:=sum+i;

end;

writeln('Sum= ',sum);

end.

n = 10

Sum = 55

Вывод