Разработка урока по информатике "Циклы в Паскале"

Цели урока:

Развить мышление учащихся;

Способствовать приобретению навыков сознательного и рационального использования компьютеров в учебной и производственной деятельности;

Способствовать развитию информационной культуры учащихся.

Ход урока.

План урока:

Организационный момент.

Изложение теоретического материала.

Практическое решение задач на компьютерах.

Подведение итогов.

Здравствуйте, дорогие ребята! Здравствуйте, уважаемые гости!

На предыдущих занятиях мы учились писать программы с линейной конструкцией, с использованием условного оператора и с оператором выбора. Сегодня у нас новая тема «Циклические конструкции языка программирования Turbo Pascal».

Изложение теоретического материала

Циклы позволяют многократно выполнять отдельный оператор или последовательность операторов, причем при этом нет необходимости записывать в тексте программы одинаковые операторы несколько раз.

Для организации циклов в Паскале используются следующие операторы:

оператор цикла с параметром;

For переменная:= выражение1 to выражение2 do оператор;

For переменная:= выражение1 downto выражение2 do оператор;

оператор цикла с постусловием;

repeat оператор until логическое выражение (условие) ;

оператор цикла с преусловием;

while логическое выражение (условие) do оператор.

Первая из конструкций, позволяющих реализовать повторение в Паскаль-программах, называется перечисляемым циклом, циклом со счетчиком или циклом с заданным числом повторений. Сегодня мы рассмотрим именно этот оператор.

В вышеприведенной записи цикла FOR …TO…DO переменная (счетчик цикла, переменная-счетчик) изменяется, увеличиваясь до конечного значения. Переменная может изменяться в противоположном направлении – убывать. Для этого необходимо заменить зарезервированное слово TO на DOWNTO. Таким образом, форма циклической конструкции “цикл со счетчиком” целиком определяет режим повторения.

Рассмотрим применение цикла FOR …TO…DO на примере.

Допустим, нам необходимо написать программу разгрузки строителем 25 мешков цемента из грузовика. Отдадим рабочему следующий приказ: «Приступить к выгрузке первого мешка цемента (FOR а:= 1), а затем продолжать разгрузку мешков до тех пор, пока на земле не окажутся все 25 мешков (TO 25) мешков». Если этот приказ попытаться оформить как фрагмент Паскаль-программы, то получиться следующий текст:

VAR а: integer;

FOR а:= 1 TO 25 DO

BEGIN

Подойти к грузовику;

Взять мешок;

Перенести мешок;

Положить мешок;

END;

Подав грузчику команду FOR а:= 1 TO 25 DO, мы указали, что, перенося мешки с первого по двадцать пятый, он должен их мысленно пересчитывать, чтобы не «перетрудиться» и не выгрузить больше требуемого количества. Если же Вы хотите окончательно вывести грузчика из себя, можете попросить его погрузить все мешки обратно в грузовик:

VAR а: integer;

FOR а:= 25 DOWNTO 1 DO

BEGIN

Взять мешок;

Перенести мешок;

Погрузить мешок на грузовик;

Вернуться назад;

END;

Следует запомнить, что переменная, используемая в цикле FOR всегда должна быть целого типа. Использование переменной типа REAL не допускается.

Вот и все! Мы заставили грузчика работать, не разгибая спины, а в результате все вернулось на свои места.

Рассмотрим следующий пример. Необходимо просуммировать числа от 1 до 50 (включительно) и вывести на экран полученный результат.

Решим данную задачу с использованием цикла с заданным числом повторений. На следующих занятиях мы рассмотрим решение этой задачи с помощью циклов REPEAT…UNTIL и WHILE…DO.

Одно из возможных решений данной задачи выглядит так:

PROGRAM Sum;

VAR i,S: integer;

BEGIN

S:=0;

For i:=1 to 50 do

S:=S+i;

Writeln (‘Сумма чисел от 1 до 50 равна ’,S) ;

END.

Весь материал - в документе.

Тема урока: Циклы в Pascal.

2Задача урока: Обеспечить прочное, сознательное овладение учащимися основами знаний об организации циклов в Pascal.

Цели урока:

• Развить мышление учащихся;

• Способствовать приобретению навыков сознательного и рационального использования компьютеров в учебной и производственной деятельности;

• Способствовать развитию информационной культуры учащихся.

Тип урока: изучение нового материала.

Методы: объяснительно-иллюстративный, репродуктивный, частично-поисковый.

Ход урока:

1. План урока:

1. Организационный момент

2. Изложение теоретического материала

3. Практическое решение задач на компьютерах

4. Подведение итогов

1. Здравствуйте, дорогие ребята! Здравствуйте, уважаемые гости!

На предыдущих занятиях мы учились писать программы с линейной конструкцией, с использованием условного оператора и с оператором выбора. Сегодня у нас новая тема «Циклические конструкции языка программированияTurbo Pascal».

1. Изложение теоретического материала

Циклы позволяют многократно выполнять отдельный оператор или последовательность операторов, причем при этом нет необходимости записывать в тексте программы одинаковые операторы несколько раз.

Для организации циклов в Паскале используются следующие операторы:

• оператор цикла с параметром;

For переменная := выражение1 to выражение2 do оператор;

For переменная := выражение1 downto выражение2 do оператор;

• оператор цикла с постусловием;

repeat оператор until логическое выражение (условие);

• оператор цикла с преусловием;

while логическое выражение (условие) do оператор.

Первая из конструкций, позволяющих реализовать повторение в Паскаль-программах, называется перечисляемым циклом, циклом со счетчиком или циклом с заданным числом повторений. Сегодня мы рассмотрим именно этот оператор.

В вышеприведенной записи цикла FOR …TO…DO переменная (счетчик цикла, переменная-счетчик) изменяется, увеличиваясь до конечного значения. Переменная может изменяться в противоположном направлении – убывать. Для этого необходимо заменить зарезервированное слово TO на DOWNTO. Таким образом, форма циклической конструкции “цикл со счетчиком” целиком определяет режим повторения.

Рассмотрим применение цикла FOR …TO…DO на примере.

Допустим, нам необходимо написать программу разгрузки строителем 25 мешков цемента из грузовика. Отдадим рабочему следующий приказ: «Приступить к выгрузке первого мешка цемента (FOR а := 1), а затем продолжать разгрузку мешков до тех пор, пока на земле не окажутся все 25 мешков (TO 25) мешков». Если этот приказ попытаться оформить как фрагмент Паскаль-программы, то получиться следующий текст:

VAR а: integer;

FOR а := 1 TO 25 DO

BEGIN

Подойти к грузовику;

Взять мешок;

Перенести мешок;

Положить мешок;

END;

Подав грузчику команду FOR а := 1 TO 25 DO, мы указали, что, перенося мешки с первого по двадцать пятый, он должен их мысленно пересчитывать, чтобы не «перетрудиться» и не выгрузить больше требуемого количества. Если же Вы хотите окончательно вывести грузчика из себя, можете попросить его погрузить все мешки обратно в грузовик:

VAR а: integer;

FOR а := 25 DOWNTO 1 DO

BEGIN

Взять мешок;

Перенести мешок;

Погрузить мешок на грузовик;

Вернуться назад;

END;

Следует запомнить, что переменная, используемая в цикле FOR всегда должна быть целого типа. Использование переменной типа REAL не допускается.

Вот и все! Мы заставили грузчика работать, не разгибая спины, а в результате все вернулось на свои места.

Рассмотрим следующий пример. Необходимо просуммировать числа от 1 до 50 (включительно) и вывести на экран полученный результат.

Решим данную задачу с использованием цикла с заданным числом повторений. На следующих занятиях мы рассмотрим решение этой задачи с помощью циклов REPEAT…UNTIL и WHILE…DO.

Одно из возможных решений данной задачи выглядит так:

PROGRAM Sum;

VAR i,S: integer;

BEGIN

S:=0;

For i:=1 to 50 do

S:=S+i;

Writeln (‘Сумма чисел от 1 до 50 равна ’,S);

END.

В этой программе проявляется еще одна возможность Турбо Паскаль 7.0, ранее нам не встречавшаяся и требующая внимательного рассмотрения. До сих пор во всех наших программах переменные получали свое значение в результате вычислений или при вводе с клавиатуры. Такая установка значения всегда предшествовала использованию переменных в расчетах или при вводе. В Турбо Паскале не проводится автоматическая начальная установка (инициализация) переменных.

В нашей программе мы должны позаботиться о том, чтобы произвольные значения, хранящиеся изначально в переменных, были уничтожены. Поэтому мы и присваиваем переменной S значение нуль (S:=0). Если пренебречь этим правилом и не обнулить переменную S, то при первом выполнении цикла в операции сложения будет участвовать произвольное значение, в результате чего по окончании цикла мы получим в переменной S некорректное значение

1. Практическое решение задач

Задача1. Написать программу, которая 10 раз выводит на экран Ваши имя и фамилию.

Задача2. Написать программу, которая выводит таблицу квадратов первых 10 целых положительных чисел.

Задача3. Написать программу, которая вычисляет сумму первых N целых положительных четных чисел. Количество суммируемых чисел должно вводиться во время работы программы.

Дополнительные задачи:

Задача4. Написать программу, которая вычисляет сумму первых n членов ряда 3, 5, 7, 9, … . Количество суммируемых членов ряда задается во время работы программы.

Задача5. Найти все натуральные числа a, b, c из интервала от 1 до 20, для которых выполняется равенство: a² + b² = c².

1. Подведение итогов.

Итак, сегодня мы познакомились с циклическим оператором FOR …TO…DO. Ребята, что нужно помнить при решении задач с использованием этого оператора?

Правильно нужно помнить, что:

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

• количество повторений цикла определяется начальным и конечным значениями переменной-счетчика;

• переменная-счетчик должна быть целого типа (integer).

Приложение

Решение задач

Задача1.

Program а1;

Var i:integer;

Begin

For i:=1 to 10 do

Writeln (‘Козбан Елена’);

Readln;

End.

Задача2.

Program a2;

Var a:integer;

Begin

For a:=1 to 10 do

Writeln (a,’ ‘,sqr(a));

Readln;

End.

Задача3.

Program a2;

Var e, n, s, I : integer;

Begin

Writeln (‘введите количество чисел’);

Readln (n);

e:= 2;

s:=0;

For I:=1 to n do

Begin

S:=S+e;

E:=e+2;

End;

Writeln (‘Сумма равна: ‘,s);

Readln;

End.

Задача4.

Program a2;

Var e, n, s, I : integer;

Begin

Writeln (‘введите количество чисел’);

Readln (n);

e:= 1;

s:=0;

For I:=1 to n do

Begin

S:=S+e;

E:=e+2;

End;

Writeln (‘Сумма равна: ‘,s);

Readln;

End.

Задача5.

Program f2;

Var a,b,c : integer;

Begin

For a:=1 to 20 do

For b:=1 to 20 do

For c:=1 to 20 do

If sqr(a)+sqr(b)=sqr(c) then writeln (a, b, c);

Readln;

End

Литература:

1. При подготовке материала была использована материал Zinurovazuhra.

2. Культин Н.Б. Турбо Паскаль в задачах и примерах. – СПб.: БХВ-Петербург, 2003.– 256 с.: ил.

3. Немнюгин С.А. Turbo Pascal. Программирование на языке высокого уровня: Учебник для вузов. 2-е изд. – СПб: «Питер», 2004. – 544 с.: ил.

4. Овчинникова И.Г., Сахнова Т.Н., Гусева Е.Н. Учебно-методическое пособие для подготовки к вступительным экзаменам по информатике: Учеб. Пособие. – Магнитогорск: МаГУ, 2003. – 119 с.

5. Паскаль. Программирование на языке высокого уровня: Учебник для вузов/ Т.А. Павловская. – СПб: «Питер», 2003. – 393 с.: ил.

6. Справочные материалы для программирования на языке Паскаль (Тематический контроль по информатике)/ Житкова О.А., Кудрявцева Е.К. – М, интеллект-Центр. 2001 – 80 с.