Тема урока: "Циклы языка программирования Turbo Pascal"

Цели урока:

обучающие:

• закрепление знаний, умений и навыков работы с циклами языка программирования Turbo Pascal;
• контроль знаний, умений и навыков

развивающие:

• развитие логического мышления, памяти, внимания, самостоятельности при работе

воспитательные:

• воспитание аккуратности, терпения, усидчивости.

Тип урока: обобщающее-контрольный урок.

ХОД УРОКА

1 этап.

Повторение с учащимися материала, изученного на предыдущих занятиях.

Повторить с учащимися все три типа циклов.

Вопросы для повторения:

1. Какая форма организации действий называется циклом?
2. Какие данные необходимы для организации цикла?
3. Какие способы организации циклов языка программирования Turbo Pascal вы знаете?
4. Назовите служебные слова цикла с параметром (с шагом +1 и шагом -1), что они означают?
5. Назовите служебные слова цикла с предусловием, что они означают?
6. Назовите служебные слова цикла с постусловием, что они означают?

На доске записи оператов цикла.

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;

Ответы