Презентация на тему Циклы на языке Паскаль

Оператор цикла с постусловием
Обобщение работы операторов цикла

многократно, каждый раз при новых значениях параметров.
Последовательность действий, выполняемых

многократно называется – телом цикла.
Если заранее известно количество необходимых повторений, то цикл называется арифметическим.
Если количество повторений заранее неизвестно, то говорят об итерационном цикле.

do оператор

for переменная := значение-1 downto значение-2 do

оператор

Пример 1. Квадраты чисел от 2-х до 10-и.
for x:=2 to 10 do WriteLn(x*x);
Пример 2. Латинский алфавит.
for ch:='A' to 'Z' do Writeln(ch);
Пример 3. Использование цикла с downto.
for i:=10 downto 1 do WriteLn(i);
Пример 4. Использование составного оператора.
for x:=1 to 10 do
begin
y:=2*x+3;
WriteLn('f(',x,')=',y);
end;

14




Program SumPoz;
Var Sum, a, i: integer;
begin
Sum:=0;

For i:=1 to 3 do
begin
write(‘Ввод числа’);
readln(a);
Sum:=Sum + a;
end;
writeln(‘Sum = ’, Sum);
end.

Начало

i:=1;

i>3

Нет

Sum:=Sum + a;

Ввод а

Вывод Sum

Конец

Да

Блок-схема

Программный код

Экран программы

Содержимое памяти

a =

Sum =

неизвестно

неизвестно

4
10
0

4

0

4

10

14

0

Sum:=0;

i:=i + 1;

i =

неизвестно

1

2

3

4

Цикл For

и End?
for i:=j to j+1 do
Begin

…
End;

k:=0;
for i:=2 downto k do
Begin
…
End;

Ответ: 2

Ответ: 3

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

чисел
Дана последовательность Y=n*x+(x-n)
Х – изменяется от 2 до 10 с шагом 1, n –ввести с клавиатуры.
Напечатать X и Y
3. Вывести таблицу умножения на 5 от 9 до 4 (1вар)
4.С клавиатуры ввести 10 чисел. Вычислить и напечатать среднее арифметическое этих чисел.(2 вар)
5.Найти площади прямоугольников со сторонами а и в=4,5,6,7,8(3вар)

while x > eps do
x:=x/2;

14




Program SumPoz;
Var Sum, a: integer;
begin
write(‘Ввод числа ’);

readln(a);
Sum:=0;
while a<>0 do
begin
Sum:=Sum + a;
write(‘Ввод числа’);
readln(a);
end;
writeln(‘Sum = ’, Sum);
end.

Начало

Ввод а

Sum:=0;

a<>0

Да

Sum:=Sum + a;

Ввод а

Вывод Sum

Конец

Нет

Блок-схема

Программный код

Экран программы

Содержимое памяти

a =

Sum =

неизвестно

неизвестно

4
10
0

4

0

4

10

14

0

Цикл While

выполнения инструкций?
n:=0;
While n

и напечатать таблицу значений функции Y=cosX(X+1)(X-1)

X изменяется от -2 до +2 с шагом 0,1

2 Вычислить произведение элементов последовательности четных чисел от 2 до 10

3 Вывести элементы последовательности нечетных чисел от 1 до 9 в обратном порядке.

Возвести число А в степень n

5 Написать программу подсчета N!

...
оператор;
until выражение;
Пример.
repeat
WriteLn('Введите

положительное число');
ReadLn(x);
until x>0;

14




Program SumPoz;
Var Sum, a: integer;
begin
Sum:=0;
Repeat

write(‘Ввод числа’);
readln(a);
Sum:=Sum + a;
Until a=0;
writeln(‘Sum = ’, Sum);
end.

Цикл Repeat

Начало

Sum:=0;

a=0

Нет

Sum:=Sum + a;

Ввод а

Вывод Sum

Конец

Да

Блок-схема

Программный код

Экран программы

Содержимое памяти

a =

Sum =

неизвестно

неизвестно

4
10
0

4

0

4

10

14

0

n:=n+1;
Until n

одну звездочку

Что нужно изменить в условии окончания цикла
для предыдущего примера, чтобы было выведено
5 звездочек?

Ответ: n=5

равно Pr. Сколько сомножителей взято.

2. Числа Фибоначчи

f(n) определяются формулами: f0=f1=1; fn=fn-1=fn-2 при n=2,3,…
Составить программу:
Определения f– 20- число Фибоначчи;
Поиска - первого числа Фибоначчи, большего m(m>1)
Вычисления S-суммы всех чисел Фибоначчи, которые не превосходят 10000
3. Ввести с клавиатуры n чисел. Вычислить сумму положительных чисел, порядковые номера которых четные.

оператор

for переменная := значение-1 downto значение-2 do оператор

Цикл While

while выражение do оператор

Цикл Repeat

repeat
оператор;
оператор;
...
оператор;
until выражение;

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

Цикл с постусловием REPEAT
До начала цикла должны быть сделаны начальные установки переменных, управляющих условием цикла, для корректного входа в цикл.
В теле цикла должны присутствовать операторы, изменяющие переменные условия так, чтобы цикл через некоторое число итераций завершился.