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

Содержание

• 
  Слайд 1
  

  Проверочная работа «Цикл с предусловием»

• 
  Слайд 2
  

  1. Запишите конструкцию цикла с предусловием. В каких случаях применяется цикл с предусловием?

• 
  Слайд 3
  

  2. Запишите правильную структуру последовательности операторов. а:=2; b:=l; whilea+b

• 
  Слайд 4
  

  3. Запишите правильную структуру последовательности операторов. Какими будут значения переменных а и b после выполнения операторов? а:=1; b:=l; while а

• 
  Слайд 5
  

  4. Дана последовательность операторов, вычисляющих факториал fчисла я, которая содержит пять ошибок. Найдите эти ошибки, предварительно записав операторы в правильном виде. k:=l;f:=0; while k

• 
  Слайд 6
  

  5. Найдите и исправьте ошибки в следующем фрагменте программы, определяющей для заданного натурального числа n число, записанное цифрами числа n в обратном порядке. р:=n; while р>=0 do begin а:=а+р mod 10; р:=р div 10 end;

• 
  Слайд 7

  Ответы:

  while dobegin группа операторов end; Когда до выполнения цикла количество повторов неиз­вестно.

• 
  Слайд 8
  

  2. а:=2; b:=1; while a+b

• 
  Слайд 9
  

  3. a:=2; b:=3; while a

• 
  Слайд 10
  

  5. read(n); p:=n; a:=0; while p>=0 do begin a:=a*10+p mod 10; p:=p div 10 end;

• 
  Слайд 11
  

  Вы уже умеете организовать цикл при помощи оператора while. Напомним, что при выполнении этого оператора компьютер вычисляет значение условия.

• 
  Слайд 12
  

  Если условие истинно, то исполнительная часть оператора while будет выполняться до тех пор, пока это условие не примет значение false. Если значение условия есть false в самом начале, то исполнительная часть оператора while вообще не будет выполняться.

• 
  Слайд 13
  

  Иногда при решении задач возникает необходимость выполнить тело цикла хотя бы один раз, а потом исследовать условие, повторять ли его еще раз. Эту задачу выполнит другой вид цикла Repeat.

• 
  Слайд 14
  

  repeatповторяй операторы until; до тех пор, пока условие не будет верным Есть небольшое отличие в организации цикла repeat по сравнению с while: для выполнения в цикле repeat нескольких операторов не следует помещать эти операторы в операторные скобки begin... end. Зарезервированные слова repeat и until действуют как операторные скобки.

• 
  Слайд 15
  

  Конструкция repeat... until работает аналогично циклу while. Различие заключается в том, что цикл while проверяет условие до выполнения действий, в то время как repeatпроверяет условие после выполнения действий, это гарантирует хотя бы одно выполнение действий до завершения цикла.

• 
  Слайд 16

  Например:

  repeat read (Number); Sum:=Sum+Number; until Number=- 1 repeat i:= i+1; writeln (Sqr(i)) until Number=-1

• 
  Слайд 17
  

  Практическая работа

• 
  Слайд 18

  Задание 1.

  Определите, является ли данное число простым. Примечание. Простым называется число, которое не имеет делителей, кроме 1 и самого себя.

• 
  Слайд 19

  Решение:

  Vari, Number : integer; {возможный делитель и исследуемое число} Begin writeln ('Какое число должно быть проверено?'); read (Number); i:=l; repeat i:=i+l; until Number mod i=0; if Number=i then writeln(Number,'является простым') else writeln(Number,'делится на',i); End.

• 
  Слайд 20

  Задание 2. Выведите на экран строку из звездочек

  Решение: Vari, n: integer; begin write('Количество знаков:'); readln(n); i:=l; repeat write(' (*)'); i:=i+l until i>n; end.

• 
  Слайд 21

  Задание 3. Выведите квадраты натуральных чисел, не превосходящих 50.

  Решение: varх, n: integer; begin write('Enter n:'); readln(n); x:=l; repeat у:=х*х; if yn; end.

• 
  Слайд 22

  Задание 4. Найдите НОД двух чисел

  Решение: Varх, у: integer; Begin Writeln('Введите два числа'); readln(x, у); Repeat Ifх>у then х:=х modуelse у:=у modх; Until (х=0) Or (у=0); Writeln ('НОД=',х+у)); End.

• 
  Слайд 23

  Вывод

  Как программируется цикл с постусловием на языке Паскаль? Для каких целей лучше его использовать?

• 
  Слайд 24

  Домашнее задание

  Составить программу нахождения НОД трех чисел. НОД(а,b,с)=НОД(НОД(а,b,с). Составить программу нахождения НОК двух чисел, используя формулу А хB = НОД (A, В) х НОД (A, В).

• 
  Слайд 25
  

  program dz1; VarА, В, С, nod: integer; Begin Readln(A,B,C); Repeat If A>B then A:=A mod B else B:=B mod A; Until (A=0) or (B=0); Writeln('HOД=’ ,A+B); nod:=A+B; Repeat If nod>C then nod:=nod mod С else C:=C mod nod; Until (nod=0) or (C=0); Writeln ('НОД=’,nod+C); End.

• 
  Слайд 26
  

  program dz2; var n, m, i, nok: integer; Begin write('введите два числа'); readln(n, m); if(m0) and (n0) then begin nok:=n*m; i:=nok; while i>0 do begin if (i mod n=0) and (i mod m=0) then nok:=i; i:=i-1; end; writeln('NOK',m,'i',n,'raven',nok) end else writeln ('Na noldelitnelzya'); end.