Программирование алгоритмов с «ветвлением» и циклом на языке Паскаль (9 класс)

Разработка урока по теме:

«Программирование алгоритмов с «ветвлением» и «циклом»

на языке Паскаль» (9 класс)

Тип урока: Комбинированный.

Цель урока: Обобщить и систематизировать знания учащихся по данной теме с помощью проблемно – поискового метода при решении задач по информатике.

Задачи урока:

Обучающие:

– выявить качество и уровень овладения знаниями и умениями по теме «Алгоритмизация и программирование», полученными на предыдущих уроках;

– продолжить формировать практические навыки по составлению блок-схем и программ;

– показать взаимосвязь математики и информатики. Научить использовать знания, полученные на уроке математики при решении задач по информатике;

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

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

– развивать навыки индивидуальной и групповой практической работы;

– развивать познавательную деятельность учащихся, прививать интерес к составлению программ, развивать умение анализировать происходящие изменения в решении задач;

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

– развивать познавательный интерес, творческую активность, интеллект;

– развивать интуицию, эрудицию, самостоятельность в суждениях, упорство в достижении цели;

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

Оборудование и наглядные средства обучения: компьютеры с установленной ОС Windows 7, 10, проекционная техника, программа PascalABC, раздаточный материал.

ХОД УРОКА

1. Организационный этап

Приветствие. Проверка присутствующих.

1. Проверка домашнего задания

На дом были заданы 2 задачи:

1. Актуализация знаний

– Какие структуры называют ветвлением? (Конструкция ветвления включает в себя проверку истинности или ложности условия.)

– Какие конструкции ветвления бывают? (Полная и неполная.)

– Какие структуры называют циклом? (Циклом называют повторение одних и тех же действий (шагов).)

– Назовите виды циклов. (Цикл с предусловием, цикл с постусловием и цикл со счетчиком.)

– Что будет выведено на экран после выполнения фрагмента программы?

begin

a:=1; b:=2;

if (a=1) and (b=2) then n:=a+b else n:=a-b;

writeln(n);

end. (Ответ: 3)

– Чему будет равняться k после выполнения программы?

var m,k:byte;

begin

m:=1; k:=0;

while (m

writeln(k)

end. (Ответ:5)

– Чему будет равняться х после выполнения фрагмента программы?

х:=0;

repeat x:=x+8 until x=21; (Ответ:24)

– Сколько раз выполнится цикл и что будет выдано на печать?

var i,k:integer;

…

k:=0;

for i:=10 downto 10 do k:=i; write (k); (Ответ:1 раз, 10)

1. Постановка целей урока

Сегодня на уроке мы порешаем задачи на языке программирования Паскаль.

1. Работа по теме урока. Практическая работа

Я предлагаю следующие задачи для решения в классе.

ЗАДАЧА № 1. Найти наибольшее число из трех заданных чисел. На доске записываю несколько троек чисел: 568, 742, 390.

Учащиеся называют максимальное число: 742.

Вопрос: “Каким образом вы определили, что данное число максимальное?”.

Учащиеся: Мы сравнили числа друг с другом.

Проблема: “А как компьютер сравнит три числа?”

Я обращаю внимание ребят, что машина может сравнивать только два числа.

Обозначим одно число буквой А, второе число буквой B, третье число – буквой С.

Учащиеся: Предлагают такой вариант решения проблемы: надо сравнивать первые два числа, а затем, большее из них с третьим числом.

Учитель: Нарисуйте в тетради блок – схему для сравнения трех чисел.

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

Учащиеся самостоятельно составляют программу.

Учитель: Проверьте правильность работы программы на компьютере, введите заданные числа и посмотрите результат.

Проблема: А может ли измениться исходное значение переменной А в процессе работы программы?

Ответ: Да.

Учитель: А как? Ответ обоснуйте.

Решение:

1. Находим наибольшее из первых двух данных чисел A и B, а затем – максимальное из полученного числа и третьего данного числа С.

Program MAX1;

var A, B, C, max: real;

begin

writeln (‘Введите три числа A, B, C’);

readln (A, B, C);

if AB then max:=A else max:=B;

if C max then max:=C;

writeln(‘Максимальное значение =’,max);

end.

Учитель: Как вы думаете, можно ли решить задачу другими способами?

Учащиеся получают задание на уроке и продолжают поиск решения задачи.

Предполагаемые решения учащихся:

2 способ. При решении задачи можно проверить, является ли первое число A максимальным и если не является, то сравниваем второе и третье число B и C.

Program MAX2;
var A, B, C, max: real;
begin
writeln (‘Введите три числа A, B, C’);
readln (A, B, С);
if (AB) and (AC) then max:=A;
if BC then max:=B else max :=C;
writeln(‘Максимальное значение =’, max);
end.

3 способ. Можно решить задачу, сравнивая попарно все числа .

Program MAX3;
var A, B, C, max: real;
begin
writeln(‘Введите три числа A, B, C’);
readln(A, B, C);
if (AB) and (AC) then max:= A;
if (BA) and (BC) then max:=B;
if (CA) and (CB) then max:=C;
writeln(max:6:2);
end.

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

Проблема: А можно написать программу, чтобы она выстраивала числа в порядке возрастания или убывания?

Ученики предлагают свои варианты решения данной проблемы.

Варианты решения задачи:

Программа выстраивает числа в порядке убывания.

Program MAX4;
var A, B, C, max: real;
begin
writeln(‘Введите три числа A, B, C’);
readln(A, B, C);
if (AB) and (AC) and (BC) then writeln (A, ‘ ‘,B,’ ‘,C);
if (BC) and (BA) and (AC) then writeln (B, ‘ ‘,A,’ ‘,C);
if (CA) and (CB) and (AB) then writeln (C, ‘ ‘,A,’ ‘,B);
if (AB) and (AC) and (CB) then writeln (A, ‘ ‘,C,’ ‘,B);
if (BC) and (BA) and (CA) then writeln (B, ‘ ‘,C,’ ‘,A);
if (CA) and (CB) and (BA) then writeln (C, ‘ ‘,B,’ ‘,A);
end.

Программа печатает максимальное число, минимальное число и среднее число.

Program MAX5;
var A, B, C, max, min, sr : real;
begin
writeln(‘Введите три числа A, B, C’);
readln(A, B, C);
if AB then max:=A else max:=B;
if C max then max:=C;
if A if C if (AB) and (A if (BA) and (B if (CA) and (C if (BC) then sr:=B;
if (AC) then sr:=A;
if (CB) then sr:=C;
writeln (‘max=’, max:6:2);
writeln (‘sr=’, sr:6:2);
writeln (‘min=’, min:6:2);
end.