Решение задач с помощью циклов

• 1 слайд

  
  Федеральное государственное казенное общеобразовательное учреждение «средняя общеобразовательная школа № 16»
  с. Ботлих
  Паскаль. Циклы.
  Решение задач с помощью циклов.
  Учитель информатики и ИКТ
  Кутасова О.В.
  2013 г.
  

• 2 слайд

  ЦИКЛЫ
  
  В Паскале три вида циклов:
  
  Цикл For (со счетчиком);
  Цикл While (с предусловием);
  Цикл Repeat (с постусловием).
  

• 3 слайд

  Цикл FOR
  For позволяет выполнить серию действий заданное число раз.
  Общий формат :
  for i:=nz to kz do шаг 1
  тело цикла
  или
  for i:=nz downto kz do шаг -1
  тело цикла
  
  где i-переменная цикла или счетчик и должна быть только целого типа, nz- начальное значение переменной, kz – конечное значение переменной программы.
  

• 4 слайд

  Цикл While
  Общий формат:
  while условие do
  begin
  тело цикла
  end;
  
  где условие- некоторое выражение, результат может "истина" или "ложь".
  
  Если в теле цикла несколько операторов, то их нужно объединить програмными скобками begin – end.
  
  

• 5 слайд

  Как работает While? Сначала проверяется условие.
  
  Если оно истинно, то тело цикла выполняется, затем условие проверяется снова, и процесс повторяется. Тело цикла выполняется каждый раз, когда проверка условия дает "истину".
  Если условие ложно, то цикл завершается, входа в тело цикла не происходит, и следующим выполняется предложение, стоящее непосредственно после цикла.
  
  
  После while ставится условие работы цикла. Проверка условия производится до выполнения цикла.
  
  
  

• 6 слайд

  Цикл Repeat
  Общий формат:
  repeat
  тело цикла
  until условие
  Сначала выполняется тело цикла.
  По достижению пункта until проверяется условие.
  Если оно не выполняется, тело цикла выполняется снова, с новой проверкой условия.
  Если же условие выполнено, то тело цикла больше не повторяется, цикл завершается, а программа переходит к выполнению оператора, следующего за until.
  В этом цикле не используются програмные скобки begin-end.
  После until ставится условие выхода из цикла.
  
  

• 7 слайд

  Задача
  Даны равносторонние треугольники. Значение сторон меняются от 10 до 24 с шагом 1. Вывести периметры всех треугольников.
  

• 8 слайд

  Цикл FOR
  for i:=10 to 24 do
  Begin
  P:=i*3;
  writeln(‘i= ‘,i,’P= ‘,P);
  end;
  end.
  

• 9 слайд

  Цикл WHILE
  i:=10;
  while i<=24 do
  begin
  P:=i*3;
  writeln(‘i= ‘,i,’P= ‘,P);
  i:=i+1;
  end;
  end.
  

• 10 слайд

  Цикл Repeat
  var i,P: integer;
  begin
  i:=10;
  repeat
  P:=i*3;
  writeln(‘i= ‘,i,’P= ‘,P);
  i:=i+1;
  until i=25;
  end.