Презентация, доклад по теме Циклы

многократное повторение последовательности действий.

Протабулировать функцию у=х*х на [a;b] с шагом h.

Вложенные циклы

x:=a;
While x<=b do
begin y:=x*x;
writeln(x,’ ‘,y);
x:=x+h;
end;
End.

Ввод а,b,h

начало

Присваиваем начальное значение переменной

Проверка условия выполнения цикла

Тело цикла:
Вычисления,
Вывод результатов,
Изменение значений переменных

Протабулировать функцию у=х*х на [a;b] с шагом h.

будет выполняться цикл,
Выполняются команды, которые находятся в теле цикла
Обязательно необходимо изменить значения переменных, которые проверяются в условии выполнения цикла, иначе произойдет зацикливание -(цикл будет работать всегда , т.к. условие выполнения цикла будет всегда верным).
Происходит возврат на проверку условия.
Цикл- пока может ни разу не выполнится, если условие выполнения цикла не верно с самого начала.
Внутри тела цикла условие выполнения цикла не проверяется, поэтому необходимо заранее продумать как изменять значения переменных.

:real;
Begin s:=0; a:=5;
while a<=100 do
begin s:=s+a;
a:=a+0.5;
end;
writeln(s);
End.

c:=97;
while b>=62 do
begin s:=s+a*b/c;
a:=a+0.5;
b=b*x;
c=c-7;
end;
writeln(s);
End.

день он увеличивал дневную норму на 10% от нормы предыдущего дня. Какой суммарный путь пробежит спортсмен за 7 дней?
2. Одноклеточная амеба каждые 3 часа делится на 2 клетки. Определить сколько амеб будет через 3,6,9,…,24 часа.
3. Вычислить s=Cosx+Cosx2+Cosx3+…+Cosxn
4. Дано натуральное число n , вычислить p=(3-1/2)(3-1/4)(3-1/6)*…*(3-1/2n)
5. Вычислить

Даны натуральные числа n, k. Вычислить
Дано действительное число Х. Вычислить:

x:=a;
repeat y:=x*x;
writeln(x,’ ‘,y);
x:=x+h;
until x>b;
End.

Протабулировать функцию у=х*х на [a;b] с шагом h.

Repeat -повторять
Until - до

поэтому хотя бы один раз выполнится всегда.
При каких значениях цикл выполнится 1 раз?

Может произойти зацикливание , если условие выполнения цикла не выполнится никогда, поэтому внутри тела цикла обязательно должна быть команда которая изменяет значения переменных.
При каком значении h произойдет зацикливание?

a :real;
Begin s:=0; a:=5;
repeat
s:=s+a;
a:=a+0.5;
until a>100;
writeln(s);
End.

c:=97;
repeat
s:=s+a*b/c;
a:=a+0.5;
b=b*x;
c=c-7;
until b<62;
writeln(s);
End.

Вычислить

Н

S=17,4;
a=12,3; b=x^2;
c=97

s=s+a*b/c

a=a+0,5; b=b*x;
c=c-7

К

Да

Нет

b<62

s

день он увеличивал дневную норму на 10% от нормы предыдущего дня. Какой суммарный путь пробежит спортсмен за 7 дней?
2. Одноклеточная амеба каждые 3 часа делится на 2 клетки. Определить сколько амеб будет через 3,6,9,…,24 часа.
3. Вычислить s=Cosx+Cosx2+Cosx3+…+Cosxn
4. Дано натуральное число n , вычислить p=(3-1/2)(3-1/4)(3-1/6)*…*(3-1/2n)
5. Вычислить

Даны натуральные числа n, k. Вычислить
Дано действительное число Х. Вычислить:

for x:=a to b do
begin y:=x*x;
writeln(x,’ ‘,y);
end;
End.

В цикле с параметром параметр может изменять свое значение только на +1 или -1 (H=1 или H=-1)

for x:=a to b do значение х увеличивается на 1 от а до b включительно (a<=b)
for x:=a downto b do значение х изменяется на -1 (уменьшается) от а до b (a>=b) включительно
X- параметр цикла – простая переменная порядкового типа
А- выражение со значением порядкового типа- начальное значение параметра
B- выражение со значением порядкового типа- конечное значение параметра

For x:=a to b do
Для х от а до b выполнять

будет равняться значение p

P:=3;
For i:=9 downto 5 do p:=p+2;

Как Вы думаете, сколько раз выполнятся эти циклы?
For i:=4 to 4 do

For i:=8 to 5 do

For a:=15 downto 6 do

For y:=9 downto 9 do

For k:=3 downto 7 do

for x:=1 to 17 do
begin p:=p*x;
end;
writeln(p:0:0);
End.

Вычислить p=1*3*5*7*9*11*13*15*17

через 18 месяцев, если ежемесячный прирост 0,5%.

Var s:real; x: integer;
Begin read(s);
for x:=1 to 18 do
begin p:=s/100*0.5;
s:=s+p;
end;
writeln(s:0:2);
End.

буквы от «А» до «Я»
2. Найти сумму ряда с точностью 0.001, общий член которого задан формулой:
a) an=2n-1 / 2n b) an=10n / n! с) an=2n*n! / nn d) an=1/ (3n-2)(3n+1)
3. Найти наименьший номер последовательности, для которого выполняется условие |an-an-1|an=arctg an-1 +1, где a1=0; b) an=2+1/ an-1, где a1=2;
c) an=1/2 Cos an-1 , где a1=0,5; d) , где a1=x;

5 до 99.

Var a,b:integer;
Begin
For a:=1 to 9 do

For b:=1 to 9 do

write(a,’*’,b,’=‘,a*b,’ ‘)
End.

a,b,c∈[2;17]

Var a,b,c: integer;
Begin
For a:=2 to 17 do

For b:=2 to 17 do

For c:=2 to 17 do

If a*a+b*b=c*c
then writeln(a,’ ‘,b,’ ‘,c);
End.

и гусей (указать все сочетания , которые возможны).
Имеется 100руб. Необходимо купить 100 голов скота. Сколько можно купить быков, коров и телят, если бык стоит 10 руб., корова 5 руб., а теленок 0,5 руб.