Презентация на тему "Программирование циклов в Паскале"

• 1 слайд

  Программирование циклов. Программирование циклических алгоритмов.
  
  

• 2 слайд

  Условие
  Действие
  да
  нет
  Алгоритм, при котором повторяются одни и те же действия, называется циклом
  Количество повторов зависит от условия
  конечный
  бесконечный
  нулевой
  

• 3 слайд

  Условие
  да
  нет
  Ввод данных
  Расчет
  Вывод ответов
  Условие
  Действие
  да
  нет
  Действие
  Действие
  Тело цикла
  

• 4 слайд

  Цикл с предусловием
  Условие
  Тело цикла
  да
  нет
  Структура цикла
  While <условие> do
  begin
  <тело цикла>
  end;
  
  

• 5 слайд

  Задача 1. Вычислить сумму чисел натурального ряда
  от 1 до N.
  a<=N
  S:=S+a
  a:=a+1
  да
  нет
  S:= 0
  a:= 1
  N
  начало
  S
  конец
  Program summa;
  Var a, S , N: integer;
  Begin
  write (‘N=‘);
  readln (N);
  a:=1; S:=0;
  While a<=N do
  begin
  S:=S+a;
  a:=a+1;
  end;
  Writeln(‘Сумма ’,N,’ чисел равна ’,S);
  end.
  
  

• 6 слайд

  Задача 2. Вычислить сумму чисел 1+1,5+2+2,5+…+30.
  Задача 3. Подсчитать целое количество отрезков длиной 1,5м получающиеся из бруска длиной 20м.
  Задача 4. Вычислить N! (N факториал).
  
  

• 7 слайд

  Цикл с постусловием
  Условие
  Тело цикла
  да
  нет
  Структура цикла
  Repeat
  <тело цикла>
  Until <условие>
  
  Repeat (повторять тело цикла)
  Until ( до условия)
  

• 8 слайд

  Задача. Вычислить сумму натурального ряда чисел от 1 до N
  Program summa;
  Var a, S , N: integer;
  Begin
  write (‘N=‘);
  readln (N);
  a:=1; S:=0;
  Repeat
  S:=S+a;
  a:=a+1
  Until a>N;
  Writeln(‘Сумма равна’,S);
  end.
  
  a>N
  S:=S+а
  a:=a+1
  да
  нет
  S:= 0
  a:= 1
  N
  начало
  S
  конец
  

• 9 слайд

  Цикл «c параметром»
  Параметр (i)– это простая переменная задающая количество повторов от начального(a) до конечного(b),
  
  Структура цикла
  For i:=a to b do
  begin
  <тело цикла>
  end;
  
  i:=1 to N
  Тело цикла
  да
  нет
  i:= а to b
  

• 10 слайд

  Задача. Вычислить сумму натурального ряда чисел от 1 до N
  S:= 0
  N
  начало
  S:= S + i
  да
  нет
  i:= 1 to N
  S
  конец
  Program summa;
  Var i, S , N: integer;
  Begin
  write (‘N=‘);
  readln (N);
  S:=0;
  for i:=1 to N do
  S:= S + i;
  Writeln(‘Сумма равна’,S);
  end.