Урока: обучающие


Скачать 123.75 Kb.
НазваниеУрока: обучающие
Дата публикации23.03.2013
Размер123.75 Kb.
ТипУрок
referatdb.ru > Информатика > Урок
Урок информатики в 9 классе

Тема: «Реализация алгоритмов с использованием ветвления»

Тип урока: Комбинированный – с элементами практической отработки умений, навыков и контроля.

Цели урока:

обучающие:

  • Научить учащихся решать задачи с использованием команды Ветвления (Если);

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

  • Формирование ответственного отношения к труду;

  • Восприятие компьютера как инструмента информационной деятельности человека;

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

  • Развитие логических приёмов анализа, синтеза, абстрагирования, обобщения;

  • Развитие и становление коммуникативных свойств личности.

Оборудование:

  • Компьютеры с программой Freepascal;

  • Листы с текстами заданий для устных упражнений;

  • Файлы с готовыми программами Nat.pas, Funk1.pas, Funk2.pas, Wre.pas, Pole.pas, Per1.has;

  • Программа TestMaster и файл Test.txt;

  • Листы с текстами упражнений для глаз.

Оформление доски: тема урока; названия файлов для работы; кроссворд; шахматное поле размером 8 на 8 клеток (чертёж); система для вычисления значения функции.
План урока.

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

  2. Повторение изученного материала.

  3. Контроль знаний учащихся. Выполнение теста.

  4. Закрепление пройденного материала. (Решение задач).

  5. Рефлексия. (Заполнение кроссворда на доске).

  6. Домашнее задание.

Ход урока.

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

Запишем тему урока «Реализация алгоритмов с использованием ветвления».

Мы сегодня на уроке должны научиться решать задачи с использованием команды ветвления (Если).

План работы:

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

  2. Сделаем устные упражнения.

  3. Ответим на оценку на вопросы теста по пройденному материалу.

  4. Будем решать задачи с командой Если и по ходу урока заполним кроссворд на доске.




  1. Повторение изученного материала

Вопросы:

  1. Что такое алгоритм?

  2. Что такое алгоритм с ветвлением?

  3. С помощью каких слов записывается команда Если в языке Паскаль и как она выполняется?

Ответы: 2) Алгоритм в котором в зависимости от некоторого условия выполняется либо одна, либо другая последовательность команд.

3) IF условие THEN команда (оператор)

ELSE команда (оператор) (^ На доске записать)

Устные упражнения.

Работа в парах и обсуждение заданий на карточках


  1. Найдите ошибки в решении задачи. Дано двузначное число. Найти сумму его цифр.

Program cas;

var s,n,a,b: integer;

begin

writeln('Введи число');

readln(n);

a:=n div 10;

b:=n mod 100;

s:=a+b_

writeln('Сумма цифр=' s);

Readln;

End.


  1. Записать условие в операторе IF (ЕСЛИ), чтобы получилось решение задачи определения большего из двух чисел.

Program bol;

var a,b,m: real;

begin

writeln('Введите два числа');

readln(a,b);

If then m:=b {a

else m:=a;

writeln('Большее=',m:5:2);

Readln;

End.


  1. ^ Вычислить значение функции:



Верно ли записаны условия в операторе IF (ЕСЛИ).

Program sistema;

var x,y: real;

begin

writeln('Введите значение x');

readln(x);

If x<-5 then y:=ABS(3*x+8);

If x>=-5 then y:=100+x; {(x>=-5) AND (x<=0)}

If x>0 then y:=2*x*x;

writeln('Значение функции y=',y:3:1);

Readln;

End.


  1. ^ Контроль знаний учащихся. Выполнение теста

Загрузить программу TestMaster папка Test9 файл Test.txt

Объяснить как отвечать на вопросы (10 вопросов по 45 секунд).
^ 1. Алгоритмом называют...?(4)

1) определнную последовательность команд;

2) конечную последовательность чётко сформулированных правил;

3) совокупность действий;

4) конечную последовательность команд, выполнение которых приводит к решению конкретной задачи;

^ 2. Алгоритм с ветвлением это...?(3)

1) алгоритм, содержащий команды, которые повторяются, пока выполняется заданное условие;

2) алгоритм, в котором все команды выполняются последовательно одна за другой;

3) алгоритм, в котором в зависимости от некоторого условия выполняется либо одна, либо другая последовательность команд;

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

^ 3. Какой из операторов IF (если), для решения задачи определения большего из двух чисел, записан верно?(1)

1) IF A > B THEN M:= A ELSE M:= B;

2) IF A > B THEN M:= B ELSE M:= A;

3) IF A > B THEN M:= A ELSE M:= A;

4) IF A > B THEN M:= B ELSE M:= B;

4. На какой фотографии находится элемент изображающий в блок-схеме IF (если)?(4)

5. Сколько будет 962 MOD 100 = ?(3)

1) 96;

2) 2;

3) 62;

4) 9;

6. Сколько будет 3687 DIV 100 = ?(1)

1) 36;

2) 368;

3) 6;

4) 87;

7. Выберите правильную запись данного арифметического выражения в языке Паскаль?(2)

1) (6a-3*C*C)/(7*X+ABS(5*B));

2) (6*a-3*C*C)/(7*X+ABS(5*B));

3) (6*a-3 C C)/(7*X+ABS(5*B);

4) (6*A-3*C*C)/(7X+ABS(5*B));

8. Какое имя переменной записано неверно...?(3)

1) PAR;

2) Z2;

3) M+8;

4) B_25;

9. Сколько будет после выполнения команд присваивания: A:=2; A:=A+1; A:=0; ?(2)

1) 3;

2) 0;

3) 2;

4) 21;

10. На какой фотографии находится правильное решение задачи: Вычисления частного двух целых чисел?(1)

Оценки за тест выставляет компьютер. Выставить их в журнал.


  1. ^ Закрепление пройденного материала. (Решение задач).


Загрузить Freepascal, открыть файл (File – Open) Nat.pas

Читаем условие задачи и разбираем решение.

{Дано натуральное число. Определить чётное оно или нечётное. }
Program nat;

var n:integer;

begin

Writeln('Введите натуральное число');

Readln(n);

If n mod 2=0 Then writeln(n,’ чётное’)

Else writeln(n,’ нечётное’);
readln;

End.

Дописываем программу, нажимаем F2 и исполняем.

Вносим в кроссворд ^ 1) чётное число (первое слово)

Что нужно изменить в этой задаче чтобы решить следующую.

Дано натуральное число. Какой цифрой оно заканчивается чётной или нечётной. (Решение одинаковое). Закрыть файл.
Рассмотрим следующую задачу

открыть файл (File – Open) Funk1.pas

Читаем условие задачи и разбираем решение.

{ Найти значение функции)



Program funk;

var x,y: real;

begin

writeln('Введите значение x');

readln(x);

If x<0 then y:=-1;

If x=0 then y:=0;

If x>0 then y:=1;

writeln('Значение функции y=',y:3:1);

Readln;

End.

Вопрос: Можно ли в решении уменьшить количество IF

откроем файл (File – Open) Funk2.pas Window – Tile (рядом)
Program funk;

var x,y: real;

begin

writeln('Введите значение x');

readln(x);

If x<0 then y:=-1

else if x=0 then y:=0

else y:=1;

writeln('Значение функции y=',y:3:1);

Readln;

End.

(Используется полная команда Ветвления их 2, а не 3 IF)

Сравниваем решения и вносим в кроссворд второе слово ^ 2) функция

Закрыть файлы.

Решаем следующую задачу

открыть файл (File – Open) Wre.pas

Читаем условие задачи и дописываем решение.

{Даны два значения времени: часы, минуты, секунды. Какое из значений больше.}
Program vremj;

var h1,m1,s1,h2,m2,s2,d1,d2 : integer;

begin

writeln('Введите первое время');

readln(h1,m1,s1);

writeln('Введите второе время');

readln(h2,m2,s2);

d1:=

d2:=
readln;

End.
Решение:

{Даны два значения времени: часы, минуты, секунды. Какое из значений больше. }
Program vremj;

var h1,m1,s1,h2,m2,s2,d1,d2 : integer;

begin

writeln('Введите первое время');

readln(h1,m1,s1);

writeln('Введите второе время');

readln(h2,m2,s2);

d1:= h1*3600+m1*60+s1;

d2:= h2*3600+m2*60+s2;

if d1 > d2 then writeln('Первое')

else writeln('Второе');

readln;

End.

Вносим в кроссворд третье слово 3) время

Закрыть файлы.
Выполняем упражнения для глаз.
Решаем задачу про шахматную доску. Условие читаю и записываем в тетради (рисунок на доске).




1

2

3

4

5

6

7

8

1

























2

























3

























4

























5

























6

























7

























8


























{Поле шахматной доски определяется парой натуральных чисел, каждое из которых не превосходит 8. По введенным координатам двух полей (k, l) и (m, n) выясните, являются ли эти поля полями одного цвета? }

Обсуждаем как решать эту задачу и потом открываем файл.

Открыть файл (File – Open) Pole.pas и записываем решение в тетради.

{Поле шахматной доски определяется парой натуральных чисел, каждое из которых не превосходит 8. По введенным координатам двух полей(k,l)и(m,n)выясните, являются ли эти поля полями одного цвета?}
Program pole;

var k,l,m,n: integer;

begin

writeln('Введите координаты первого поля');

readln(k,l);

writeln('Введите координаты второго поля');

readln(m,n);

if (k+l) mod 2 = (m+n) mod 2 then writeln('YES')

else writeln('NO');

readln;

End.
Исполнить программу и закрыть файл.

Вносим в кроссворд четвёртое слово 4) поле
Следующую задачу решаете самостоятельно. Откроем файл (File – Open) Per1.pas. Решаем задачу про перевёртыш.

{Дано трёхзначное число. Является ли оно палиндромом (перевёртышем)}
Program perew;

var n,m,a,b,c: integer;

begin

readln;

End.

Для проверки можно загрузить файл Perew.pas
{Дано трёхзначное число. Является ли оно

палиндромом (перевёртышем.}
Program perew;

var n,m,a,b,c: integer;

begin

Writeln('Введите натуральное число');

Readln(n);

a:= n mod 10;

b:= (n div 10) mod 10;

c:= n div 100;

m:= a*100+b*10+c;

If n = m then writeln('ДА')

else writeln('НЕТ');
readln;

End.

Вносим в кроссворд пятое слово 5) палиндром.
Дополнительная задача на карточках.

{ Известны два расстояния: одно в километрах, другое – в футах

(1 фут = 0,305 м. Какое из расстояний меньше? }

Решение задачи:
Program FUT;

var k,b,c: real;

begin

Writeln('Введите первое расстояние');

Readln(b);

Writeln('Введите второе расстояние');

Readln(c);

k:= c*0,305;

If b < k then writeln('Расстояние в километрах меньше')else writeln('Расстояние в футах меньше');

readln;

End.


  1. Рефлексия

Заполнили кроссворд на доске:
^ Получили слово умения























2

Ф

У

Н

К

Ц

И

Я

5

П

А

Л

И

Н

Д

Р

О

М































4

П

О

Л

Е































1

Ч

Ё

Т

Н

О

Е


































Ч

И

С

Л

О



















3

В

Р

Е

М

Я
















^ Мы научились решать задачи с ветвлением. Получили определённые умения и навыки в решении задач с Если.


  1. Домашнее задание: (на доске система) записать условие задачи в тетрадь.

Составить программу для вычисления значения функции:



Решение домашнего задания:

Program FU1;

var x,y: real;

begin

Writeln('Введите значение x');

Readln(x);

If x <= 0 then y:=0 else

If x <= 1 then y:=x

else y:=x*x;

Writeln('Значение функции y=',y:3:1);

Readln;

End.

Похожие рефераты:

Урока: Обучающие
Дидактическое обеспечение урока: набор индивидуальных карточек (Приложение 4), презентация PowerPoint “Путешествие по Солнечной системе”...
Как подготовить современный урок
Определить и четко сформулировать для себя и отдельно для учащихся целевую установку урока зачем он вообще нужен? В связи с этим...
Урока: Обучающие
Систематизировать и обобщить знания учащихся по теме: “Опорно-двигательная система”
Урока: Обучающие
Потому что местоимение указывает на предмет, признак, количество, но не называет их
Урока: Обучающие
Материально-техническое обеспечение: карточки с индивидуальными заданиями для практической работы
Урока: Обучающие
Раздаточный материал: звездочки разных цветов (красная-5, жёлтая-4, синяя-3) для самооценки
Урока: Обучающие
Литература 5 кл. Под ред. Т. Ф. Мушинская, Е. В. Перевозная, С. Н. Каратай. – Ч –Минск.: Национальный институт образования, 2009
Тема урока: В. П. Катаев «Цветик-семицветик»
Обучающие: Учить составлять образ, выделять основную мысль, обобщать прочитанное
Цели: Обучающие
Обучающие: обеспечить углубление, обобщение и систематизацию материала темы формулы сокращенного умножения; обучение доказательным...
Тема урока: Виды углов. Чертежный треугольник.
Обучающие: – научить учащихся различать прямой, острый и тупой углы; формировать у учащихся умение работать с новой информацией

Вы можете разместить ссылку на наш сайт:
Школьные материалы


При копировании материала укажите ссылку © 2013
контакты
referatdb.ru
referatdb.ru
Рефераты ДатаБаза