Оцените презентацию от 1 до 5 баллов!
Тип файла:
ppt / pptx (powerpoint)
Всего слайдов:
28 слайдов
Для класса:
1,2,3,4,5,6,7,8,9,10,11
Размер файла:
103.82 kB
Просмотров:
85
Скачиваний:
0
Автор:
неизвестен
Слайды и текст к этой презентации:
№1 слайд![ПРОГРАММИРОВАНИЕ ЦИКЛОВ УРОК](/documents_6/007542779bb57b743d7155d2387d911d/img0.jpg)
Содержание слайда: ПРОГРАММИРОВАНИЕ ЦИКЛОВ
УРОК 34
№2 слайд![Цель освоить программирование](/documents_6/007542779bb57b743d7155d2387d911d/img1.jpg)
Содержание слайда: Цель:
освоить программирование циклов с постусловием
№3 слайд![Проверочная работа Цикл с](/documents_6/007542779bb57b743d7155d2387d911d/img2.jpg)
Содержание слайда: Проверочная работа «Цикл с предусловием»
№4 слайд![. Запишите конструкцию цикла](/documents_6/007542779bb57b743d7155d2387d911d/img3.jpg)
Содержание слайда: 1. Запишите конструкцию цикла с предусловием.
В каких случаях применяется цикл с предусловием?
№5 слайд![. Запишите правильную](/documents_6/007542779bb57b743d7155d2387d911d/img4.jpg)
Содержание слайда: 2. Запишите правильную структуру последовательности операторов.
а:=2; b:=l; while a+b<8 do begin a:=a+l; b:=b+l end; s:=a+b.
Сколько раз будет повторен цикл и какими будут значения переменных a, b, s после его завершения?
№6 слайд![. Запишите правильную](/documents_6/007542779bb57b743d7155d2387d911d/img5.jpg)
Содержание слайда: 3. Запишите правильную структуру последовательности операторов. Какими будут значения переменных а и b после выполнения операторов?
а:=1; b:=l; while а<=8 do а:=а+1; b:=b+l.
№7 слайд![. Дана последовательность](/documents_6/007542779bb57b743d7155d2387d911d/img6.jpg)
Содержание слайда: 4. Дана последовательность операторов, вычисляющих факториал f числа я, которая содержит пять ошибок. Найдите эти ошибки, предварительно записав операторы в правильном виде.
k:=l;f:=0;
while k<n do f=f*k
k:=k+l,
Примечание. Факториалом натурального числа называется произведение всех натуральных чисел от 1 до этого числа, т. е. n!=1*2*3*...*(n—2)*(n—1)*n.
№8 слайд![. Найдите и исправьте ошибки](/documents_6/007542779bb57b743d7155d2387d911d/img7.jpg)
Содержание слайда: 5. Найдите и исправьте ошибки в следующем фрагменте программы, определяющей для заданного натурального числа n число, записанное цифрами числа n в обратном порядке.
р:=n;
while р>=0 do begin
а:=а+р mod 10;
р:=р div 10
end;
№9 слайд![Ответы while lt логическое](/documents_6/007542779bb57b743d7155d2387d911d/img8.jpg)
Содержание слайда: Ответы:
while <логическое выражение> do begin группа операторов end;
Когда до выполнения цикла количество повторов неизвестно.
№10 слайд![. а b while a b lt do begin a](/documents_6/007542779bb57b743d7155d2387d911d/img9.jpg)
Содержание слайда: 2.
а:=2;
b:=1;
while a+b<8 do
begin
a:=a+l;
b:=b+l
end;
s:=a+b.
2 раза;
a = 5, b = 3, s = 8.
№11 слайд![. a b while a lt do а а b b l](/documents_6/007542779bb57b743d7155d2387d911d/img10.jpg)
Содержание слайда: 3. a:=2; b:=3;
while a<=7 do
а:=а+1;
b:=b+l;
а = 8, b = 4.
4. k:=1; f:=l;
while k<=n do f=f*k;
k:=k+l;
end;
№12 слайд![. read n p n a while p gt do](/documents_6/007542779bb57b743d7155d2387d911d/img11.jpg)
Содержание слайда: 5. read(n);
p:=n; a:=0;
while p>=0 do
begin
a:=a*10+p mod 10;
p:=p div 10
end;
№13 слайд![Вы уже умеете организовать](/documents_6/007542779bb57b743d7155d2387d911d/img12.jpg)
Содержание слайда: Вы уже умеете организовать цикл при помощи оператора while.
Напомним, что при выполнении этого оператора компьютер вычисляет значение условия.
№14 слайд![Если условие истинно, то](/documents_6/007542779bb57b743d7155d2387d911d/img13.jpg)
Содержание слайда: Если условие истинно, то исполнительная часть оператора while будет выполняться до тех пор, пока это условие не примет значение false.
Если значение условия есть false в самом начале, то исполнительная часть оператора while вообще не будет выполняться.
№15 слайд![Иногда при решении задач](/documents_6/007542779bb57b743d7155d2387d911d/img14.jpg)
Содержание слайда: Иногда при решении задач возникает необходимость выполнить тело цикла хотя бы один раз, а потом исследовать условие, повторять ли его еще раз. Эту задачу выполнит другой вид цикла Repeat.
№16 слайд![repeat повторяй операторы](/documents_6/007542779bb57b743d7155d2387d911d/img15.jpg)
Содержание слайда: repeat повторяй операторы
until <условие>; до тех пор, пока условие не будет верным
Есть небольшое отличие в организации цикла repeat по сравнению с while: для выполнения в цикле repeat нескольких операторов не следует помещать эти операторы в операторные скобки begin... end. Зарезервированные слова repeat и until действуют как операторные скобки.
№17 слайд![Конструкция repeat... until](/documents_6/007542779bb57b743d7155d2387d911d/img16.jpg)
Содержание слайда: Конструкция repeat... until работает аналогично циклу while. Различие заключается в том, что цикл while проверяет условие до выполнения действий, в то время как repeat проверяет условие после выполнения действий, это гарантирует хотя бы одно выполнение действий до завершения цикла.
№18 слайд![Например repeat read Number](/documents_6/007542779bb57b743d7155d2387d911d/img17.jpg)
Содержание слайда: Например:
repeat
read (Number);
Sum:=Sum+Number;
until Number=- 1
repeat
i:= i+1;
writeln (Sqr(i))
until Number=-1
№19 слайд![Практическая работа](/documents_6/007542779bb57b743d7155d2387d911d/img18.jpg)
Содержание слайда: Практическая работа
№20 слайд![Задание . Определите,](/documents_6/007542779bb57b743d7155d2387d911d/img19.jpg)
Содержание слайда: Задание 1.
Определите, является ли данное число простым. Примечание. Простым называется число, которое не имеет делителей, кроме 1 и самого себя.
№21 слайд![Решение Var i, Number integer](/documents_6/007542779bb57b743d7155d2387d911d/img20.jpg)
Содержание слайда: Решение:
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.
№22 слайд![Задание . Выведите на экран](/documents_6/007542779bb57b743d7155d2387d911d/img21.jpg)
Содержание слайда: Задание 2. Выведите на экран строку из звездочек
Решение:
Var i, n: integer;
begin
write('Количество знаков:'); readln(n);
i:=l;
repeat
write(' (*)');
i:=i+l
until i>n;
end.
№23 слайд![Задание . Выведите квадраты](/documents_6/007542779bb57b743d7155d2387d911d/img22.jpg)
Содержание слайда: Задание 3. Выведите квадраты натуральных чисел, не превосходящих 50.
Решение:
var х, n: integer;
begin
write('Enter n:'); readln(n);
x:=l;
repeat
у:=х*х;
if y<n then write(y,' ');
x:=x+1;
until y>n;
end.
№24 слайд![Задание . Найдите НОД двух](/documents_6/007542779bb57b743d7155d2387d911d/img23.jpg)
Содержание слайда: Задание 4. Найдите НОД двух чисел
Решение:
Var х, у: integer;
Begin
Writeln ('Введите два числа'); readln(x, у);
Repeat
If х>у then х:=х mod у else у:=у mod х;
Until (х=0) Or (у=0);
Writeln ('НОД=',х+у));
End.
№25 слайд![Вывод Как программируется](/documents_6/007542779bb57b743d7155d2387d911d/img24.jpg)
Содержание слайда: Вывод
Как программируется цикл с постусловием на языке Паскаль?
Для каких целей лучше его использовать?
№26 слайд![Домашнее задание Составить](/documents_6/007542779bb57b743d7155d2387d911d/img25.jpg)
Содержание слайда: Домашнее задание
Составить программу нахождения НОД трех чисел. НОД(а,b,с)=НОД(НОД(а,b,с).
Составить программу нахождения НОК двух чисел, используя формулу А х B = НОД (A, В) х НОД (A, В).
№27 слайд![program dz program dz Var А,](/documents_6/007542779bb57b743d7155d2387d911d/img26.jpg)
Содержание слайда: program dz1;
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.
№28 слайд![program dz program dz var n,](/documents_6/007542779bb57b743d7155d2387d911d/img27.jpg)
Содержание слайда: program dz2;
program dz2;
var n, m, i, nok: integer;
Begin
write('введите два числа');
readln(n, m);
if(m<>0) and (n<>0) 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.