X

Скопируйте код и вставьте его на свой сайт.

Ширина px

Вы можете уменьшить размер презентации, указав свой размер!

Цикл с предусловием

Проверочная работа «Цикл с предусловием»
1. Запишите конструкцию цикла с предусловием. В каких случаях применяется цик...
2. Запишите правильную структуру последовательности операторов. а:=2; b:=l; w...
3. Запишите правильную структуру последовательности операторов. Какими будут ...
4. Дана последовательность операторов, вычисляющих факториал f числа я, котор...
5. Найдите и исправьте ошибки в следующем фрагменте программы, определяющей д...
Ответы: while do begin группа операторов end; Когда до выполнения цикла колич...
2. а:=2; b:=1; while a+b
3. a:=2; b:=3; while a
5. read(n); p:=n; a:=0; while p>=0 do begin a:=a*10+p mod 10; p:=p div 10 end;
Вы уже умеете организовать цикл при помощи оператора while. Напомним, что при...
Если условие истинно, то исполнительная часть оператора while будет выполнять...
Иногда при решении задач возникает необходимость выполнить тело цикла хотя бы...
repeat повторяй операторы until ; до тех пор, пока условие не будет верным Ес...
Конструкция repeat... until работает аналогично циклу while. Различие заключа...
Например: repeat read (Number); Sum:=Sum+Number; until Number=- 1 repeat i:= ...
Практическая работа
Задание 1. Определите, является ли данное число простым. Примечание. Простым ...
Решение: Var i, Number : integer; {возможный делитель и исследуемое число} Be...
Задание 2. Выведите на экран строку из звездочек Решение: Var i, n: integer; ...
Задание 3. Выведите квадраты натуральных чисел, не превосходящих 50. Решение:...
Задание 4. Найдите НОД двух чисел Решение: Var х, у: integer; Begin Writeln (...
Вывод Как программируется цикл с постусловием на языке Паскаль? Для каких цел...
Домашнее задание Составить программу нахождения НОД трех чисел. НОД(а,b,с)=НО...
program dz1; Var А, В, С, nod: integer; Begin Readln(A,B,C); Repeat If A>B th...
program dz2; var n, m, i, nok: integer; Begin write('введите два числа'); rea...
Класс
Автор

Цикл с предусловием

Описание презентации по отдельным слайдам:

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.