Конспект
урока по информатике
Тема: «Решение задач с использованием
условного оператора и оператора select case.
Практическая работа №9. Решение
задач с использованием условного оператора и оператора select case”
Цели:
воспитательная:
·
Воспитывать у учащихся
познавательную потребность, интерес к предмету, умение работать самостоятельно
при выполнение практической работы.
образовательные:
·
Закрепить знания при решении
задач с операторами IF и Select case на языке Pascal – его
особенностями исполнения.
·
Обеспечить усвоение учащимися
реализации алгоритмов ветвления при решении конкретных задач.
развивающие:
·
Развивать у учащихся логическое
и алгоритмическое мышление.
·
Формировать навыки само и
взаимооценки.
Задачи
урока:
·
закрепить у учащихся навыки
решения задач на составление программ с использованием условного оператора и
оператора выбора;
·
организовать творческую
деятельность учащихся по созданию аналогичных задач;
·
закрепить у учащихся навыки
работы за компьютером и умение обосновывать свою точку зрения.
Тип
урока: закрепление полученных знаний и отработки навыков.
Форма урока: урок с использованием ПК.
Оборудование: тетрадь, доска, раздаточный материал, проектор, экран, ПК
учителя, ПК учеников.
Ход
урока
1. Организационный
момент
2. Актуализация
опорных знаний
3. Выполнение
практической работы:
Задача 1. Заданы длины сторон треугольника, определить, является
ли этот треугольник прямоугольным.
Program
sum3;
Var a,
b, c: real;
Begin
Readln
( a, b ,с );
If
a*a + b*b = c*c then writeln (‘ треугольник прямоугольный ’) else writeln (‘ не
прямоугольный ’);
Readln;
End.
Задача 2. Написать программу, которая запрашивает
у пользователя номер месяца и выводит соответствующее название времени года.
Предусмотреть ошибку ввода.
program nomermesaca;
var x:byte;
begin
writeln(‘
введите номер месяца ‘); readln(x); Case x of
1,2,12:writeln (‘зима’);
3,4,5:writeln (‘весна’);
6,7,8:writeln (‘лето’);
9,10,11:writeln (‘осень’)
else
writeln (‘ошибка’);
end;
end.
Задача
3. Составить программу, которая по введенному номеру месяца выдает, сколько
дней в этом месяце. Год считать не високосным.
1 способ
|
2 способ
|
Var
a: Integer;
Begin
WriteLn ('Введите номер месяца');
ReadLn (a);
Case a Of
1: WriteLn ('31 день');
2: WriteLn ('28 дней');
3: WriteLn ('31 день');
4: WriteLn ('30 дней');
5: WriteLn ('31 день');
6: WriteLn ('30 дней');
7: WriteLn ('31 день');
8: WriteLn ('31 день');
9: WriteLn ('30 дней');
10: WriteLn ('31 день');
11: WriteLn ('30 дней');
12: WriteLn ('31 день');
End;
ReadLn
End.
|
Var a: Integer; Begin WriteLn ('Введите номер месяца'); ReadLn (a); Case a Of 1, 3, 5, 7, 8, 10, 12: WriteLn ('31 день'); 2: WriteLn ('28 дней'); 4, 6, 9, 11: WriteLn ('30 дней'); End; ReadLn End.
|
4.
Подведение
итогов урока, выставление оценок
5.
Домашнее
задание
Поторить
§_______с._________ отвечать на вопросы. Повторить опорный конспект.
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.