Цели урока:
обучающие:
развивающие:
воспитательные:
Тип урока: обобщающее-контрольный урок.
ХОД УРОКА
1 этап.
Повторение с учащимися материала, изученного на предыдущих занятиях.
Повторить с учащимися все три типа циклов.
Вопросы для повторения:
На доске записи оператов цикла.
2 этап.
Записываются в тетрадь
Основные положения – принципы выбора типа цикла.
1. При заданном количестве повторений можно воспользоваться всеми тремя типами циклов for .., while .., repeat ... При этом, необходимо помнить, что значение параметра цикл for изменяет сам, а при использовании неопределенных циклов об изменении параметра цикла должен позаботиться программист.
2. Параметр цикла for.. запрещено изменять в теле цикла.
3. Тело цикла repeat ... выполняется по крайней мере один раз, а тело цикла while .. может не выполниться ни разу.
Логическое выражение в цикле while .. является условием повторения тела цикла, а в цикле repeat ... – условием выхода из цикла.
3 этап.
Решение задач (подготовка к тесту).
Задача 1
Определить значение переменной у после выполнения следующих элементов программы:
Var
x,y:integer:
………………………
y:=0;
For x:=1 to 9 do y:=y+1;
Задача 2
Определить значение переменной у после выполнения следующих элементов программы
Var
x,y:integer:
………………………
y:=0;
For x:=5 downto 10 do y:=y+x;
Задача 3
Определить значение переменной n после выполнения следующих элементов программы:
Var
x,y:integer:
………………………
y:=0;
x:=10;
while x>0 do
Begin
x:=x+2;
y:=y+x;
end;
Задача 4
Определить значение переменной x после выполнения следующих элементов программы :
Var
x:real;
y:integer:
………………………
x:=0;
y:=5;
repeat
y:=2*y;
x:=x+y
until y>5;
Задача 5
Определить значение переменной y после выполнения следующих элементов программы:
Var
y:real;
x:integer:
………………………
y:=0;
For x:=4 to 6 do y:=y+x;
y:=y/10;
5 этап.
Контроль знаний
Обычно уроки по информатике спаренные. На второй урок дается тест. Который выполняется на бумаге. Ответ записывается на бумаге всего одной цифрой.
1 вариант
1. Определить значение переменной у после выполнения следующих элементов программы:
Var
y:real;
k:integer:
………………………
y:=0;
For k:=2 to 6 do y:=y+k;
2. Определить значение переменной у после выполнения следующих элементов программы:
Var
y:real;
k:integer:
………………………
y:=1;
For k:= 6 downto 3 do y:=y+k;
3. Определить значение переменной у после выполнения следующих элементов программы:
Var
y:real;
k:integer:
………………………
y:=1;
For k:=6 to 3 do y:=y+k;
4. Определить значение переменной у после выполнения следующих элементов программы:
Var
y:real;
k:integer:
………………………
y:=1;
For k:=1 to 3 do y:=y+k;
y:=y*10;
5. Определить значение переменной s после выполнения следующих элементов программы:
Var
s:real;
i:integer:
………………………
s:=0;
For i:=1 to 4 do
Begin
s:=s*10;
s:=s+i;
end;
6. Определить значение переменной s после выполнения следующих элементов программы:
Var
s:real;
n:integer:
………………………
s:=0;
For n:=6 | downto 3 do |
Begin
s:=s+1;
s:=s*2;
end;
7. Определить значение переменной s после выполнения следующих элементов программы:
Var
s:real;
i:integer:
………………………
s:=0;
i:=5;
while i> 2 do i:=i-1;
s:=s+i*i;
8. Определить значение переменной s после выполнения следующих элементов программы:
Var
s:real;
i:integer:
………………………
s:=0;
i:=2;
repeat
i:=2*i;
s:=s+i
until i>5;
9. Определить значение переменной s после выполнения следующих элементов программы:
Var
s:real;
i:integer:
………………………
s:=0;
i:=1;
while i>1 do
Begin
s:=s+1/i;
i:=i-1;
end;
10. Определить значение переменной s после выполнения следующих элементов программы:
Var
s:real;
i:integer:
………………………
s:=0;
i:=5;
repeat
i:=2*i;
s:=s+i
until i>5;
2 вариант
1. Определить значение переменной у после выполнения следующих элементов программы:
Var
y:real;
i:integer:
………………………
y:=1;
For i:=2 to 4 do y:=y+i;
2. Определить значение переменной у после выполнения следующих элементов программы:
Var
y:real;
k:integer:
………………………
y:=2;
For k:=4 downto 1 do y:=y*k;
3. Определить значение переменной у после выполнения следующих элементов программы:
Var
y:real;
n:integer:
………………………
y:=5;
For n:=1 downto 4 do y:=y+n;
4. Определить значение переменной у после выполнения следующих элементов программы:
Var
y:real;
i:integer:
………………………
y:=1;
For i:=1 to 3 do
Begin
y:=y+1;
y:=y+i;
end;
5. Определить значение переменной y после выполнения следующих элементов программы:
Var
y:real;
i:integer:
………………………
y:=0;
For i:=4 to 6 do y:=y+i;
y:=y/10;
6. Определить значение переменной s после выполнения следующих элементов программы:
Var
s:real;
n:integer:
………………………
s:=0;
For n:=4 downto 3 do
Begin
s:=s+n;
s:=s*10;
end;
7. Определить значение переменной y после выполнения следующих элементов программы:
Var
y:real;
i:integer:
………………………
y:=1;
i:=5;
while i> 2 do i:=i-1;
y:=y+i*i;
8. Определить значение переменной y после выполнения следующих элементов программы:
Var
s:real;
i:integer:
………………………
y:=1;
i:=2;
repeat
i:=2*i;
y:=y+i
until i>5;
9. Определить значение переменной y после выполнения следующих элементов программы:
Var
y:real;
i:integer:
………………………
y:=1;
i:=1;
while i>1 do
Begin
y:=y+1/i;
i:=i-1;
end;
10. Определить значение переменной y после выполнения следующих элементов программы:
Var
y:real;
i:integer:
………………………
y:=1;
i:=5;
repeat
i:=2*i;
y:=y+i
until i>5;
Ответы
Номер задания | Номер варианта | |
1 | 2 | |
20 | 10 | |
19 | 48 | |
1 | 5 | |
70 | 10 | |
1234 | 1,5 | |
30 | 4320 | |
4 | 5 | |
12 | 13 | |
0 | 1 | |
10 | 11 |