Презентация на тему: "Цикл с пред условием"

• 1 слайд

  Цикл
  с пред-условием
  Программирование циклов с заданным условием продолжения работы
  
  Автор презентации - Стрельникова Людмила Васильевна
  1
  

• 2 слайд

  Виды циклов
  С
  параметром
  For i:=N1 to N2 do
  Begin
  тело цикла
  End;
  С пред-
  условием
  While условие do
  begin
  оператор;
  . . .
  end;
  С пост-
  условием
  Repeat
  оператор;
  . . .
  оператор
  Until условие;
  Автор сайта - Стрельникова Людмила Васильевна
  2
  

• 3 слайд

  Оператор один
  while условие do оператор
  
  
  Операторов больше одного
  While условие do
  begin
  оператор;
  оператор;
  . . .
  end;
  <условие> - логическое выражение;
  пока оно истинно, выполняется тело цикла;
  <оператор> - простой или составной оператор, с помощью которого записано тело цикла.
  
  Автор сайта - Стрельникова Людмила Васильевна
  3
  

• 4 слайд

  Особенности цикла While
  Число проходов цикла заранее неизвестно, минимальное количество – 0.
  Выход из цикла, если условие ложно.
  Условие может быть простым или сложным.
  Тело цикла состоит из одного оператора. Если по логике решения задачи нужно в цикле выполнить несколько операторов, то они заключаются в операторные скобки.
  В теле цикла обязательно должно содержаться изменение переменной, проверяемой в условии
  Автор сайта - Стрельникова Людмила Васильевна
  4
  

• 5 слайд

  алг сумма10
  нач
  цел s, k
  s:=0 ; k:=1
  нц пока k<=10
  s:=s+k
  k:=k+1
  кц
  вывод s
  кон
  
  5
  Задача №1. Суммировать целые числа от 1 до 10, используя цикл ПОКА Результат положить в ячейку S
  Program summa_while;
  Var x, k: integer;
  Begin
  x=1; k:=1;
  While k <= 10 do
  begin
  s := s + k;
  k:=k+1
  end;
  writeln (‘s = ’, s);
  End.
  
  решение
  Автор сайта - Стрельникова Людмила Васильевна
  

• 6 слайд

  ЗАДАЧА №2. Ввести с клавиатуры ряд чисел, признак окончания ввода – число 0. Найти сумму чисел
  алг сумма
  нач
  цел x, s
  s:=0 ; x:=1
  нц пока x<>0
  ввод x
  s:=s+x
  кц
  вывод s
  кон
  Program summa_while;
  Var x, s: integer;
  Begin
  x=1;
  While x <> 0 do
  begin
  Write (‘x=’); Readln (x);
  s := s + x;
  end;
  writeln (‘s = ’, s);
  End.
  
  решение
  Автор сайта - Стрельникова Людмила Васильевна
  6
  

• 7 слайд

  Самостоятельная работа
  1вариант
  Организуем ввод целых чисел и подсчёт количества введённых положительных чисел.
  Ввод должен осуществляться до тех пор, пока не будет введён ноль.
  
  2вариант
  Организуем ввод целых чисел и подсчёт количества введённых отрицательных чисел.
  Ввод должен осуществляться до тех пор, пока не будет введён ноль.
  
  Автор сайта - Стрельникова Людмила Васильевна
  7