Конспект урока-игры "Информатика и бизнес" Паскаль

МУНИЦИПАЛЬНОЕ ОБЩЕОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ ЛИЦЕЙ № 37 ГОРОДСКОГО ОКРУГА ТОЛЬЯТТИ

Конспект урока-игры «Информатик-бизнесмен»

от 14.02.11 г. по теме

«Язык программирования Pascal»

7 класс

Учитель: Паненкова Наталья Сергеевна

г. Тольятти

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

            воспитательная – воспитывать аккуратность, внимательность;

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

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

Ход урока.

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

100 $

100 $

100 $

500 $

500 $

500 $

400 $

400 $

400 $

300 $

300 $

300 $

200 $

200 $

200 $

                                  

Вопросы стоимостью 100$ - 300$ - теоретические (обдумывание 1 мин.), 400$ - 500$ - практические задания (обдумывание 5 мин.).

Каждая команда выбирает сумму, которую хочет положить в свой банк. Под каждой такой суммой скрывается определённый вопрос, ответив на который банк получает выбранную сумму. Если команда не отвечает, то право ответа может взять другой банк, но при этом цена вопроса снижается в 2 раза.

В начале игры в каждом банке есть стартовый капитал – 1000$. Но при неправильном ответе на вопрос или отказе от ответа банк теряет деньги в размере стоимости выбранного вопроса. Если во время игры банк признаётся банкротом, то команда выходит из игры и становится болельщиками.

В конце урока подводятся итоги: объявляется команда-победитель, набравшая большее количество очков, а также отмечаются учащиеся, показавшие хорошее знание материала, выставляются оценки.

Задания

I 100$: Какой геометрической фигурой представляется блок условия на языке блок – схем? (ромб)

I  200$: Какой оператор языка Паскаль служит для вывода текстовой информации на экран? (write())

I  300$: Как на языке Паскаль можно записать условие, при котором выбирается наибольшее из двух чисел? If a > b then c:=a

                                                    else c:=b;

I  400$: Составьте программу на языке Паскаль, посредством которой вычисляется площадь треугольника.

Var a, h: integer;

        S: real;

Begin

        Readln(a,h);

        S:=0.5*a*h;

        Writeln(s);

End.

I  500$: Составьте программу на языке Паскаль, определяющую наименьшее их двух чисел.

Var a, b, c: integer;

Begin

        Readln(a,b);

        If a < b then c:=a

                     Else c:=b;

        Writeln(c);

End.

II  100$: Какой геометрической фигурой на языке блок-схем представляется блок начала и окончания выполнения алгоритма? (овал, эллипс)

II  200$: Какой оператор языка Паскаль служит для описания типа переменных? (var)

II  300$: Как на языке Паскаль можно записать условие, при котором выбирается наименьшее из двух чисел? If a < b then c:=a

                                                    Else c:=b;

II  400$:  Составьте программу на языке Паскаль, посредством которой вычисляется площадь квадрата.

Var a, s: integer;

Begin

        Readln(a);

        S:=a*a;

        Writeln(s);

End.

II  500$: Составьте программу на языке Паскаль, определяющую чётность числа.

Var a: integer;

Begin

        Readln(a);

        If a mod 2 = 0 then writeln(‘чётное’)

                                Else writeln(‘нечётное’);

End.

III  100$: Какой геометрической фигурой на языке блок-схем представляется блок ввода информации? (трапеция)

III  200$: Какой оператор языка Паскаль служит для ввода информации? (read())

III  300$: Как на языке Паскаль можно записать условие для определения чётности числа? If a mod 2 = 0 then write(‘чётное’)

                            Else write(‘нечётное’);

III  400$: Составьте программу на языке Паскаль, посредством которой вычисляется площадь прямоугольника.

Var a, b, s: integer;

Begin            

        Readln(a,b);

        S:=a*b;

        Writeln(s);

End.

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

Var a, b, c: integer;

Begin

        Readln(a,b);

        If a > b then c:=a

                     Else c:=b;

        Writeln(c);

End.