Главная » Статьи » Компьютер-бум
Урок информатики Цикл с параметром, команда FOR
Тема: Цикл с параметром
Цель урока: 1. Познакомить учащихся с работой оператора цикла For… to…do, приобрести практические навыки при решении задач с циклом в среде Paskal ABC.
2. Развитие логического мышления, познавательных интересов, навыков работы на компьютере.
3. Воспитание информационной культуры учащихся, внимательности, аккуратности.

Ход урока.
I. Оргмомент
II. Актуализация знаний (флипчарты)
1. Что называют алгоритмом?
2. Какие виды алгоритмов мы знанием?
3. Распределить по соответствию название алгоритма и его характеристику?
4. Подписать каждую блок-схему?
5. Цикл с предусловием:
- Какая форма записи у цикла с предусловием?
- Как работает данный цикл?

6. Цикл с постусловием:
- Какая форма записи у цикла с постусловием?
- Как работает данный цикл?

III. Сообщение темы и цели урока.
IV. Сообщение нового материала (Слайды)
Эпиграф:
Смотрите на каждое препятствие, как на часть платы, которую мы вносим за наш будущий успех. Используйте трудности для укрепления своего характера, а не для ослабления его.

Колин Терн

Цикл представляет собой последовательность операторов, которая выполняется не однократно.
Оператор цикла For – цикл со счётчиком или цикл с параметром ( используется с заранее известным числом повторений)
Имеет две формы записи:
For i:= начальное значение ТО конечное значение DO оператор – цикл с прямым отчётом.
For i:= конечное значение DOWNTO начальное значение DO оператор – цикл с обратным отчётом.
V. Физминутка
VI. Закрепление нового материла ( работа за ПК- решение задач)
Задача:
1. Вывести все числа от а до в (включительно),
которые делятся на 2.
Program dva;
var a,b,i: longint;
begin
readln (a,b);
for i:=a to b do
if (i mod 2)=0 then writeln (i,' ');
end.

2. Найти сумму квадратов натуральных чисел от1 до 100.
Решим эту задачу с использованием всех трёх видов циклов.

Program summa;
var A,S:integer;
Begin
A:=1; S:=0;
While A<=100 Do
begin
S:=S+A*A;
A:=A+1
end;
writeln(S)
end.

Program summa;
var A,S:integer;
Begin
A:=1; S:=0;
Repeat
S:=S+A*A;
A:=A+1
Until A>100;
writeln(S)
end.

Program summa;
var A,S:integer;
Begin
S:=0;
For A:=1 to 100 Do
S:= S+A*A;
writeln (S)
end.

VII. Итог урока.
VIII. Домашнее задание.
Категория: Компьютер-бум | Добавил: Юрьевна (24.11.2014) | Автор: Федорова Наталья Юрьевна E
Просмотров: 1009 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]