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

Презентация по слайдам
Слайд №1

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


Слайд №2

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


Слайд №3

Текст слайда: 2. Запишите правильную структуру последовательности операторов. а:=2; b:=l; while a+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 do begin группа операторов 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

Текст слайда: Решение: Var i, 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. Выведите на экран строку из звездочек Решение: Var i, 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 nol delit nelzya'); end.