Программирование "Циклы с условиями"
учебно-методический материал по информатике и икт (9 класс)

Цикл «пока» (с предусловием)

Цикл «после» (с постусловием)

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

Цикл будет повторяться до тех пор пока проверка условия будет давать результат «истина» (true), т.е. пока условие выполняется.

В цикле с постусловием условие проверяется после выполнения тела цикла, поэтому это условие можно назвать условием окончания цикла.

Цикл будет повторяться до тех пор, пока проверка условия будет давать результат «ложь» (false), т.е. пока условие не выполнено.

While условие

do оператор_тела_цикла;

если в теле цикла нужно выполнить несколько операторов, оно оформляется как блок begin….end;

While условие

do begin 

операторы тела цикла; end;

Repeat

операторы тела цикла

until условие;

Попробуйте объяснить: почему блок операторных скобок (begin …. end;) не требуется?

Сформулируйте различия между этими циклами?

(это необходимо при решении задач, для определения какой цикл из этих двух выбрать)

Пример: в банк положена сумма денег S под процент P (процент начисляется ежегодно). Определить, через сколько лет T сумма денег на счету:

1. превысит 1 000 000?

2. увеличится в два раза?

Чтобы сумма на счету начала увеличиваться на них должны начислить проценты, т.е. должен пройти год, но и в первой и во второй задаче неизвестно сколько раз надо начислить проценты, т.е. сколько раз должны повториться действия – неизвестно. Но…

если изначально сумма равна или больше 1 000 000, тогда вообще не надо ничего начислять, можно сразу выводить ответ, поэтому перед начислением процентов надо проверить условие S <= 1000000.

Var S, P : real; T : integer;

Begin

Write ( ‘ Укажите изначальную сумму ‘ );

Readln ( S ) ;

Write ( ‘ Укажите ежегодный процент ‘ );

Readln ( P ) ;

T := 0;

While S < 1000000 do begin

S := S + S * P / 100;

T := T + 1;

End;

Writeln ( ‘ Сумма на счету превысит 1000000 через ‘ , T , ‘ лет ‘);

End.

Внесите исправления в вывод ответа, чтобы он получался более грамотным с точки зрения русского языка, если сумму не надо увеличивать: «сумма уже превышает 1000000».

чтобы сумма на счету удвоилась, на неё должны быть начислены проценты, хотя бы один раз.

n – удвоенное значение изначальной суммы на счету (n = 2 * S).

Var S , P , n : real; T : integer;

Begin

Write ( ‘ Укажите изначальную сумму ‘ );

Readln ( S ) ;

n := 2 * S;

Write ( ‘ Укажите ежегодный процент ‘ );

Readln ( P ) ;

T := 0;

Repeat

S := S + S * P / 100;

T := T + 1;

Until S > n ;

Writeln ( ‘ Сумма на счету увеличится в 2 раза через ‘ , T , ‘ лет ‘);

End.

4. Определите значения переменных x и y после выполнения фрагмента алгоритма:

Запишите по этим блок-схемам фрагменты программ.

5. Определите значения переменных x и y после выполнения фрагмента алгоритма:

а)

б)

Запишите по этим блок-схемам фрагменты программ.