Оцените презентацию от 1 до 5 баллов!
Тип файла:
ppt / pptx (powerpoint)
Всего слайдов:
15 слайдов
Для класса:
1,2,3,4,5,6,7,8,9,10,11
Размер файла:
86.60 kB
Просмотров:
65
Скачиваний:
0
Автор:
неизвестен
Слайды и текст к этой презентации:
№1 слайд![ПРОГРАММИРОВАНИЕ ЦИКЛОВ УРОК](/documents/bbbd94ae524986f760547ecb5144efc5/img0.jpg)
Содержание слайда: ПРОГРАММИРОВАНИЕ ЦИКЛОВ
УРОК 33
№2 слайд![В процессе решения множества](/documents/bbbd94ae524986f760547ecb5144efc5/img1.jpg)
Содержание слайда: В процессе решения множества задач часто требуется повторять те или иные действия. При этом бывают разные ситуации.
В процессе решения множества задач часто требуется повторять те или иные действия. При этом бывают разные ситуации.
Например:
количество повторений известно до выполнения тела цикла;
до выполнения тела цикла количество повторений неизвестно;
тело цикла должно выполниться хотя бы один раз.
№3 слайд![Для разных ситуаций](/documents/bbbd94ae524986f760547ecb5144efc5/img2.jpg)
Содержание слайда: Для разных ситуаций существуют различные циклические конструкции.
В языке программирования Паскаль их три, в соответствии с пунктами, описанными выше.
Самой универсальной и поэтому чаще других используемой конструкцией цикла является второй вариант (цикл while).
№4 слайд![Цикл while является циклом с](/documents/bbbd94ae524986f760547ecb5144efc5/img3.jpg)
Содержание слайда: Цикл while является циклом с предусловием, while <логическое выражение> do begin группа операторов end;
Цикл while является циклом с предусловием, while <логическое выражение> do begin группа операторов end;
В заголовке цикла находится логическое выражение. Если оно истинно, то тело цикла выполняется, если ложно — то нет. Если тело цикла было выполнено, то ход программы снова возвращается в заголовок цикла. Условие выполнения тела снова проверяется (находится значение логического выражения).
№5 слайд![Тело цикла выполнится столько](/documents/bbbd94ae524986f760547ecb5144efc5/img4.jpg)
Содержание слайда: Тело цикла выполнится столько раз, сколько раз логическое выражение вернет true.
Поэтому очень важно в теле цикла предусмотреть изменение переменной, фигурирующей в заголовке цикла, таким образом, чтобы когда-нибудь обязательно наступала ситуация false.
Иначе произойдет так называемое зацикливание.
№6 слайд![Например, нужно распечатать n](/documents/bbbd94ae524986f760547ecb5144efc5/img5.jpg)
Содержание слайда: Например, нужно распечатать n звездочек
Решение:
Var i, n: integer;
begin
write('Количество знаков: '); readln(n);
i:=l;
while i<=n do begin
write('(*)'); i:=i+1;
end;
end.
№7 слайд![Практическая работа](/documents/bbbd94ae524986f760547ecb5144efc5/img6.jpg)
Содержание слайда: Практическая работа
№8 слайд![Задание . Найдите сумму всех](/documents/bbbd94ae524986f760547ecb5144efc5/img7.jpg)
Содержание слайда: Задание 1. Найдите сумму всех натуральных чисел из промежутка [1, m]
Решение:
Program Summa;
Var i, m: integer; x, S: real;
Begin
write('Сколько чисел для сложения?');
readln(m); S:=l; i:=l;
while i<=m do begin S:=S+i; i:=i+l; end;
write('Cyммa равна ',s:5:2);
End.
№9 слайд![Задание . Найдите сумму n](/documents/bbbd94ae524986f760547ecb5144efc5/img8.jpg)
Содержание слайда: Задание 2. Найдите сумму n чисел, вводимых с клавиатуры
Решение:
Program Summa;
Var i, N : integer; x, S : real;
Begin
write('Сколько чисел для сложения?'); readln(N);
S:=0; i:=1;
while i<=N do begin
write('Введите ‘, i ,’-e число’);
readln(x); S:=S+x; i:=i+l; end;
write('Сумма введенных чисел равна ',s:5:2);
End.
№10 слайд![Задание . Выведите квадраты](/documents/bbbd94ae524986f760547ecb5144efc5/img9.jpg)
Содержание слайда: Задание 3. Выведите квадраты натуральных чисел, не превосходящих 50
Решение:
var x, n: integer;
begin
write('n='); readln(n);
x:=l;
while sqr(x)<n do begin
write(sqr(x),' '); x:=x+l
end; end.
№11 слайд![Задание . Возведите число в](/documents/bbbd94ae524986f760547ecb5144efc5/img10.jpg)
Содержание слайда: Задание 4.
Возведите число в степень
Решение:
Var num, deg: integer; res: real; i: byte;
begin
write('Число'); readln(num);
write('Cтепень'); readln(deg);
res:=l; i:=0;
while i<abs(deg) do begin
res:=res*num; i:=i+1
end;
if deg<0 then
res:=l/res;
writeln(res:10:5);
end.
№12 слайд![Как программируется цикл с](/documents/bbbd94ae524986f760547ecb5144efc5/img11.jpg)
Содержание слайда: Как программируется цикл с предусловием на языке Паскаль?
№13 слайд![Домашнее задание Вывести все](/documents/bbbd94ae524986f760547ecb5144efc5/img12.jpg)
Содержание слайда: Домашнее задание
Вывести все четные числа, начиная с числа N и кончая числом М. Числа N и М задает пользователь.
Вводятся 14 чисел. Определить, сколько среди них положительных (включая 0) и сколько отрицательных. (Числа вводятся в одну переменную в цикле.)
№14 слайд![. Program dz var х, n, m](/documents/bbbd94ae524986f760547ecb5144efc5/img13.jpg)
Содержание слайда: 1. Program dz1;
var х, n, m: integer;
begin
write('n='); readln(n); write('m='); readln(m);
x:=n;
while x<=m do begin
if x mod2 =0 then write(x,' ');
x:=x+l
end;
end.
№15 слайд![. Program dz Var i, N integer](/documents/bbbd94ae524986f760547ecb5144efc5/img14.jpg)
Содержание слайда: 2. Program dz2;
Var i, N : integer; x, S : real;
Begin
S1:=0; S2:=0; i:=l;
while i<=14 do begin
write('Введите ‘,i,’-e число '); readln(x);
if x>=0 then sl:=sl+l else s2:=s2+l; i:=i+l;
end;
write('пoлoжитeльныxчисел', sl:5, 'отрицательных чисел', s2:5);
End.