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

• 1 слайд

  Программирование
  Цикл
  

• 2 слайд

  Цикл с предусловием–
  Цикл -пока
  Цикл с постусловием–
  Цикл - До
  Цикл с параметром
  Н
  А,B,H
  X=A
  X<=B
  Y=X*X
  X=X+H
  К
  X, Y
  Да
  Нет
  Н
  А,B,H
  X=A
  X>B
  Y=X*X
  X=X+H
  К
  X, Y
  Да
  нет
  Н
  А,B,H
  X=A
  Y=X*X
  К
  X, Y
  Да
  Нет
  X=A;B;H
  Цикл- многократное повторение последовательности действий.
  Протабулировать функцию у=х*х на [a;b] с шагом h.
  Вложенные циклы
  

• 3 слайд

  Цикл с предусловием–
  Цикл -пока
  Var a,b,h,x,y : real;
  Begin read(a,b,h);
  x:=a;
  While x<=b do
  begin y:=x*x;
  writeln(x,’ ‘,y);
  x:=x+h;
  end;
  End.
  Н
  А,B,H
  X=A
  X<=B
  Y=X*X
  X=X+H
  К
  X, Y
  Да
  Нет
  Ввод а,b,h
  начало
  Присваиваем начальное значение переменной
  Проверка условия выполнения цикла
  Тело цикла:
  Вычисления,
  Вывод результатов,
  Изменение значений переменных
  Протабулировать функцию у=х*х на [a;b] с шагом h.
  

• 4 слайд

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

• 5 слайд

  Вычислить сумму чисел от 5 до 100 с шагом 0,5.
  (s=5+5,5+6+6,5+7+…+100)
  Var s,a :real;
  Begin s:=0; a:=5;
  while a<=100 do
  begin s:=s+a;
  a:=a+0.5;
  end;
  writeln(s);
  End.
  Н
  S=0;a=5
  a<=100
  s=s+a
  a=a+0,5
  К
  Да
  Нет
  s
  

• 6 слайд

  Вычислить
  Var s,a,b,c :real;
  Begin s:=17.4;
  a:=12.3;b:=x*x;
  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.
  Н
  S=17,4;
  a=12,3; b=x^2;
  c=97
  b>=62
  s=s+a*b/c
  a=a+0,5;
  b=b*x;
  c=c-7
  К
  Да
  Нет
  s
  

• 7 слайд

  1. Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый день он увеличивал дневную норму на 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. Вычислить
  Дано действительное число Х. Вычислить:
  
  

• 8 слайд

  Н
  А,B,H
  X=A
  X>B
  Y=X*X
  X=X+H
  К
  X, Y
  Да
  нет
  Цикл с постусловием–Цикл - До
  Var a,b,h,x,y : real;
  Begin read(a,b,h);
  x:=a;
  repeat y:=x*x;
  writeln(x,’ ‘,y);
  x:=x+h;
  until x>b;
  End.
  Протабулировать функцию у=х*х на [a;b] с шагом h.
  Repeat -повторять
  Until - до
  

• 9 слайд

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

• 10 слайд

  Вычислить сумму чисел от 5 до 100 с шагом 0,5.
  (s=5+5,5+6+6,5+7+…+100)
  Var s, a :real;
  Begin s:=0; a:=5;
  repeat
  s:=s+a;
  a:=a+0.5;
  until a>100;
  writeln(s);
  End.
  Н
  S=0;a=5
  s=s+a
  a=a+0,5
  К
  Да
  Нет
  a>100
  s
  

• 11 слайд

  Var s,a,b,c :real;
  Begin s:=17.4;
  a:=12.3;b:=x*x;
  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
  

• 12 слайд

  1. Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый день он увеличивал дневную норму на 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. Вычислить
  Дано действительное число Х. Вычислить:
  
  

• 13 слайд

  Н
  А,B,H
  X=A
  Y=X*X
  К
  X, Y
  Да
  Нет
  X=A;B;1
  Цикл с параметром
  Var a,b,h,x,y : real;
  Begin read(a,b);
  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 выполнять
  

• 14 слайд

  P:=5;
  For i:=3 to 18 do p:=p+2;
  P:=3;
  For i:=9 to 5 do p:=p+2;
  Чему будет равняться значение 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
  

• 15 слайд

  Вычислить p=17! (p=1*2*3*4*5*6*7*8*9*10*11*12*13*14*15*16*17)
  Н
  p=p*x
  К
  Да
  Нет
  X=1;17;1
  p=1
  p
  Var p:real; x: integer;
  Begin p:=1;
  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
  

• 16 слайд

  В банк положили сумму денег S. Сколько денег будет на счету через 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.
  Н
  s
  p=s/100*0,5
  К
  Да
  Нет
  X=1;18;1
  s=s+ p
  s
  

• 17 слайд

  1. Распечатать: а) целые числа от -7 до 23; б) буквы от «А» до «Я»
  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|<e. Вывести на экран этот номер и все элементы ai , где i=1,2,…,n, если е=10-3.
  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;
  
  

• 18 слайд

  Вложенные циклы
  Напечатать таблицу умножения натуральных чисел от 1 до 9 (от 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.
  н
  а=1;9;1
  b=1;9;1
  a,’*’,b,’=‘,a*b
  k
  да
  да
  нет
  нет
  

• 19 слайд

  Вложенные циклы
  Распечатать длины сторон треугольников, которые являются прямоугольными, если длины сторон a,b,c[2;17]
  н
  a=2;17;1
  b=2;17;1
  c=2;17;1
  нет
  да
  да
  a2+b2=c2
  нет
  да
  a,b,c
  да
  нет
  k
  нет
  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.
  

• 20 слайд

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