-Ребята, на прошлых
уроках мы уже составляли программы в Pascal,
познакомились с циклами и ветвлением. Давайте вспомним пройденный материал и
решим задачу.
- Найти
наибольшее число из трех заданных чисел. На доске записываю несколько троек
чисел: 568, 742, 390.
- Каким образом
вы определили, что данное число максимальное?
(сравнивали числа друг с другом. Посмотрели разряд числа – если единицы разрядов сотен
равны, то сравниваем единицы разрядов десятков, если они равны, сравниваем
разряд единиц и больше то число, у которого разряд сотен больше)
|
Учащиеся дают ответы
|
Личностные: приобретают мотивы учебной
деятельности и понимают личностный смысл учения.
Регулятивные: в диалоге с учителем
определяют степень успешности выполнения своей работы и работы класса, исходя
из имеющихся критериев; понимают причины своего неуспеха и находят способы
выхода из этой ситуации.
Познавательные: самостоятельно предполагают, какая информация нужна для решения
предметной учебной задачи в несколько шагов.
Коммуникативные: при необходимости отстаивают свою точку.
|
1. Создание
проблемной ситуации.
- А как компьютер сравнит три числа?
(обращаю внимание ребят, что
машина может сравнивать только два числа).
- Обозначим одно число буквой А,
второе число буквой B, третье число – буквой С.
(Учащиеся предлагают такой
вариант решения проблемы: надо сравнивать первые два числа, а затем, большее
из них с третьим числом).
- Нарисуйте в тетради блок – схему
для сравнения трех чисел, составьте программу. Проверьте правильность работы
программы, введите заданные числа и посмотрите результат.
-А может ли измениться исходное
значение переменной А в процессе работы программы? Каким образом?
-Как вы думаете,
можно ли решить задачу другими способами?
-А можно написать
программу, чтобы она выстраивала числа в порядке возрастания или убывания?
Физкультурная
минутка.
Зарядка для
глаз.
Над доской вывешены
таблички с рисунками диаграмм, способов представления информации ( в форме
«восьмёрки»). Выполняются упражнения для глаз:
1).Закройте глаза, не напрягая глазные мышцы, на счёт 1-4. Поднимите глаза,
посмотрите на рисунки над доской. Не поворачивая головы, переводите взгляд на
названные мною рисунки (называются в таком порядке, чтобы глаза «выписывали
восьмёрку», а затем в обратную сторону).
2) Посмотрите в окно на линию горизонта, переведите взгляд на кончик носа.
Повторите упражнение 3 раза.
|
Учащиеся дают ответы
Учащиеся работают в тетрадях, затем на компьютерах составляют
программу.
Учащиеся дают
ответы
1. Находим наибольшее из первых
двух данных чисел A и B, а затем – максимальное из полученного числа и
третьего данного числа С.
Program MAX1;
Var A, B, C, max: real;
begin
writeln (‘Введите три числа A, B, C’);
readln (A, B, С);
if A>B then max:=A else max:=b;
if C > max then max:=C;
writeln(‘Максимальное значение=’,max);
end.
Учащиеся
получают задание и продолжают поиск решения задачи.
Предполагаемые
решения учащихся:
При решении задачи можно
проверить, является ли первое число A максимальным и если не является, то сравниваем
второе и третье число B и C.
2 способ.
Program MAX2;
Var A, B, C, max: real;
begin
writeln (‘Введите три числа A, B, C’);
readln (A, B, С);
If (A>B) and (A>C) then max:=A;
if B>C then Max:=B else Max :=C;
Writeln(‘Максимальное значение =’, Max);
End;
3 способ. Можно решить задачу, сравнивая попарно все
числа.
Program MAX3;
var A, B, C, Max: real;
begin
Writeln(‘Введем три числа’);
readln(A, B, C);
If (A>B) and (A>C) then Max:= A;
If (B>A) and (B>C) then Max:=B;
If (C>A) and (C>B) then Max:=C;
Writeln(Max:6:2);
end.
Учащиеся предлагают
решения данной проблемы.
Варианты решения задачи:
Программа выстраивает числа в
порядке убывания.
Program MAX4;
Var A, B, C, Max: real;
begin
Writeln(‘Введите три числа’);
Readln(A, B, C);
If (A>B) and (A>C) and (B>C) then writeln (A, ‘ ‘,B,’ ‘,C);
If (B>C) and (B>A) and (A>C) then writeln (B, ‘ ‘,A,’ ‘,C);
If (C>A) and (C>B) and (A>B) then writeln (C, ‘ ‘,A,’ ‘,B);
If (A>B) and (A>C) and (C>B) then writeln (A, ‘ ‘,C,’ ‘,B);
If (B>C) and (B>A) and (C>A) then writeln (B, ‘ ‘,C,’ ‘,A);
If (C>A) and (C>B) and (B>A) then writeln (C, ‘ ‘,B,’ ‘,A);
End.
Программа печатает максимальное
число, минимальное число и среднее число.
Program MAX5;
Var A, B, C, Max, Min, Sr : real;
begin
Writeln(‘Введите три числа’);
Readln(A, B, C);
If A>B Then Max:=A else Max:=B;
If C> Max Then Max:=C;
If A<B Then Min:=A else Min:=B;
If C< Min Then Min:=C;
If (A>B) and (A<C) Then Sr:=A;
If (B>A) and (B<A) Then Sr:=B;
If (C>A) and (C<B) Then Sr:=C;
If (B<A) and (B>C) Then Sr:=B;
If (A<B) and (A>C) Then Sr:=A;
If (C<A) and (C>B) Then Sr:=C;
Writeln (‘Max=’, Max:6:2);
Writeln (‘Sr=’, Sr:6:2);
Writeln (‘Min=’, Min:6:2);
End.
Один ученик
показывает упражнения, остальные за ним повторяют.
Выполняют
зарядку для глаз.
|
Личностные: принимают и осваивают
социальные роли обучающихся, приобретают мотивы учебной деятельности и
понимают личностный смысл учения.
Регулятивные: в диалоге с учителем
определяют степень успешности выполнения своей работы и работы класса, исходя
из имеющихся критериев; понимают причины своего неуспеха и находят способы
выхода из этой ситуации.
Познавательные: самостоятельно предполагают,
какая информация нужна для решения предметной учебной задачи в несколько
шагов
|
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.