🗊Презентация Программирование циклов. Урок 34

Нажмите для полного просмотра!
Программирование циклов. Урок 34, слайд №1Программирование циклов. Урок 34, слайд №2Программирование циклов. Урок 34, слайд №3Программирование циклов. Урок 34, слайд №4Программирование циклов. Урок 34, слайд №5Программирование циклов. Урок 34, слайд №6Программирование циклов. Урок 34, слайд №7Программирование циклов. Урок 34, слайд №8Программирование циклов. Урок 34, слайд №9Программирование циклов. Урок 34, слайд №10Программирование циклов. Урок 34, слайд №11Программирование циклов. Урок 34, слайд №12Программирование циклов. Урок 34, слайд №13Программирование циклов. Урок 34, слайд №14Программирование циклов. Урок 34, слайд №15Программирование циклов. Урок 34, слайд №16Программирование циклов. Урок 34, слайд №17Программирование циклов. Урок 34, слайд №18Программирование циклов. Урок 34, слайд №19Программирование циклов. Урок 34, слайд №20Программирование циклов. Урок 34, слайд №21Программирование циклов. Урок 34, слайд №22Программирование циклов. Урок 34, слайд №23Программирование циклов. Урок 34, слайд №24Программирование циклов. Урок 34, слайд №25Программирование циклов. Урок 34, слайд №26Программирование циклов. Урок 34, слайд №27Программирование циклов. Урок 34, слайд №28

Содержание

Вы можете ознакомиться и скачать презентацию на тему Программирование циклов. Урок 34. Доклад-сообщение содержит 28 слайдов. Презентации для любого класса можно скачать бесплатно. Если материал и наш сайт презентаций Mypresentation Вам понравились – поделитесь им с друзьями с помощью социальных кнопок и добавьте в закладки в своем браузере.

Слайды и текст этой презентации


Слайд 1





ПРОГРАММИРОВАНИЕ ЦИКЛОВ

УРОК 34
Описание слайда:
ПРОГРАММИРОВАНИЕ ЦИКЛОВ УРОК 34

Слайд 2





Цель: 
освоить программирование циклов с постусловием
Описание слайда:
Цель: освоить программирование циклов с постусловием

Слайд 3






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

Слайд 4






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

Слайд 5






2. Запишите правильную структуру последовательности операторов.
а:=2; b:=l; while a+b<8 do begin a:=a+l; b:=b+l end; s:=a+b. 
Сколько раз будет повторен цикл и какими будут значения переменных a, b, s после его завершения?
Описание слайда:
2. Запишите правильную структуру последовательности операторов. а:=2; b:=l; while a+b<8 do begin a:=a+l; b:=b+l end; s:=a+b. Сколько раз будет повторен цикл и какими будут значения переменных a, b, s после его завершения?

Слайд 6






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

Слайд 7






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.
Описание слайда:
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






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

Слайд 9





Ответы:
while <логическое выражение> do begin группа операторов end; 
Когда до выполнения цикла количество повторов неиз­вестно.
Описание слайда:
Ответы: while <логическое выражение> do begin группа операторов end; Когда до выполнения цикла количество повторов неиз­вестно.

Слайд 10






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.
Описание слайда:
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






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;
Описание слайда:
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






5. read(n);
p:=n; a:=0;
while p>=0 do 
begin
a:=a*10+p mod 10; 
p:=p div 10 
end;
Описание слайда:
5. read(n); p:=n; a:=0; while p>=0 do begin a:=a*10+p mod 10; p:=p div 10 end;

Слайд 13






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

Слайд 14






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

Слайд 15






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

Слайд 16






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

Слайд 17






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

Слайд 18





Например:
repeat 
read (Number);
Sum:=Sum+Number; 
until Number=- 1 
repeat
i:= i+1; 
writeln (Sqr(i)) 
until Number=-1
Описание слайда:
Например: repeat read (Number); Sum:=Sum+Number; until Number=- 1 repeat i:= i+1; writeln (Sqr(i)) until Number=-1

Слайд 19






Практическая работа
Описание слайда:
Практическая работа

Слайд 20





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

Слайд 21





Решение:
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.
Описание слайда:
Решение: 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





Задание 2. Выведите на экран строку из звездочек
Решение:
Var i, n: integer;
begin
write('Количество знаков:'); readln(n);
i:=l; 
repeat
write(' (*)'); 
i:=i+l 
until i>n;
end.
Описание слайда:
Задание 2. Выведите на экран строку из звездочек Решение: Var i, n: integer; begin write('Количество знаков:'); readln(n); i:=l; repeat write(' (*)'); i:=i+l until i>n; end.

Слайд 23





Задание 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.
Описание слайда:
Задание 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





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

Слайд 25





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

Слайд 26





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

Слайд 27





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.
Описание слайда:
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 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.
Описание слайда:
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.



Похожие презентации
Mypresentation.ru
Загрузить презентацию