Обучающий семинар. Тема: Программирование на языке Turbo Pascal. Основные базовые конструкции: линейные алгоритмы (стр. 6 )

1 группа

1. Составьте программу, проверяющую, что введенное число делится без остатка на 3. (1балл)

2. Напишите программу, которая анализирует человека по возрасту и относит к одной из четырех групп: дошкольник, ученик, работник, пенсионер. Возраст человека вводится с клавиатуры. (2балла)

3. Составьте программу, реализующую эпизод применения компьютера в книжном магазине. Компьютер запрашивает стоимость книг и сумму денег, внесенную покупателем. Если сдачи не требуется, печатает на экране «Спасибо». Если денег внесено больше, то печатает «Возьмите сдачу» и указывает сумму сдачи. Если денег недостаточно, то печатает об этом сообщение и указывает размер недостающей суммы. (2балла)

4. Вы ввели трехзначное число. Затем ввели любую цифру. Составьте программу, определяющую, есть ли в этом числе данная цифра. (3балла)

2 группа

1.Напишите программу, анализирующую данные пожарного датчика в помещении, которая выводит сообщение «Пожароопасная ситуация», если температура в комнате превысила 600. Значение температуры вводится с клавиатуры. (1балл)

2. Даны круг и квадрат. Составьте программу, определяющую по введенным вами значениям длин стороны квадрата и радиуса круга, одно из утверждений «Круг вписан в квадрат» или «Квадрат вписан в круг». (2балла)

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

Написать программу преобразования цифр в слова.(2 балла)

4. Вы ввели трехзначное число. Затем ввели любую цифру. Составьте программу, определяющую, есть ли в этом числе данная цифра. (3балла)

3 группа

1. В ЭВМ поступают результаты соревнований по плаванию для 3-х спортсменов. Составьте программу, которая выбирает лучший результат и выводит его на экран с сообщением, что это результат победителя заплыва. (1балл) 2) Составьте программу вычисления суммы цифр введенного с клавиатуры трехзначного натурального числа. Например, для числа 128 сумма цифр 11, для числа 34 сумма цифр 12. (2балла)

2. К финалу конкурса лучшего по профессии «Специалист электронного офиса» были допущены трое: Иванов, Петров, Сидоров. Соревнования проходили в три тура. Иванов в первом туре набрал M1 баллов, во втором – N1, в третьем – P1. Петров – соответственно M2, N2, P2. Сидоров – M3, N3, P3. Составьте программу, определяющую, сколько баллов набрал победитель. (2балла)

3.Составьте программу, которая по введенному вами K – числу грибов печатает фразу «Мы нашли в лесу K грибов», причем согласовывает окончание слова «гриб» с числом K. Количество грибов может быть любым целым числом: 1, 3, 34, 127 и т. д. Окончание фразы определяется значением последней цифры. (2балла)

4. Вы ввели трехзначное число. Затем ввели любую цифру. Составьте программу, определяющую, есть ли в этом числе данная цифра. (3балла)

Управления образования города Астаны

Обучающий семинар

Тема: Программирование на языке Turbo Pascal. Основные базовые конструкции: циклические алгоритмы

Подготовила:

учитель информатики

ШЛ №27

Астана, 2014 г.

Дата проведения: 31.01.2014 год

Тема занятия:	Программирование на языке Turbo Pascal. Основные базовые конструкции: циклические алгоритмы.
Материал	Флипчарты, карточки с задачами.
Цель:	Создание блока решенных задач на циклические алгоритмы.
Задачи:	· Расширить знания по составлению программ на языка Паскаль. · Сформировать умения применять полученные знания для решения и составления программ на циклическую базовую конструкцию.
Результат обучения:	Учителя создадут блок задач с решениями на циклическую базовую конструкцию.
Основные (ключевые) идеи:	- Объяснения основ составления программ на циклическую базовую конструкцию. - Практическое применение полученных знаний при составлении циклических алгоритмов на языке Паскаль.

Ход семинара

Форма проведения	Описание	время
Разминка:	Тренинг"Снежный ком". Цель игры: знакомство и запоминание имен всех участников игры. Правила: участники по кругу называют свои имена следующим образом: 1-ый участник называет своё имя и придумывает на первую букву своего имени слово, характеризующее его (например, Лена - ласковая); 2-ой участник говорит имя и характеристику первого и называет свои - имя и характеристику; 3-ий называет имена и характеристики 1-го и 2-го и называет свои и т. д.	10 минут
Интерактивная лекция	Язык программирования Паскаль: Циклы. Цикл с параметром, «ДО», «ПОКА». Составления и разбор нескольких задач с использованием операторов циклов (см. Приложение 1)	50 минут
Деление на группы	«МОЛЕКУЛЫ» - Представим себе, что все мы атомы. Атомы - (гудят) и хаотично двигаются. Число атомов в молекуле может быть разное, оно определяется тем, какое число я назову. Мы все сейчас начнем быстро двигаться, и я буду говорить, например, три. И тогда атомы должны объединиться в молекулы по три атома в каждый. Молекулы - молчат После выполнения упражнения спросить: - Как вы себя чувствуете? Таким образом разбить участников семинара на 3 группы	10 минут
Групповая работа.	Решение задач на циклическую базовую конструкцию (см. Приложение 1). Каждая группа получает по 1 задачи, для решения и составления программы. Программа оформляется на кластеры и проверяется на компьютере.	25 минут
Групповая работа.	Каждая группа оформляет и объясняет решение задачи на интерактивной доске. Для объяснения и представления решения задачи спикеру дается 7 минут.	21 минута
Рефлексия:	Семинар мне показался… Мне бы хотелось…	4

Рекомендации:

1) Продолжить обучающий семинар, в режиме on-line.

2) Рассмотреть темы: работу с файлами, массивы, процедуры и функции.

Приложение

Интерактивная лекция №3

ПРОГРАММИРОВАНИЕ НА ЯЗЫКЕ TURBO-PASCAL. ОРГАНИЗАЦИЯ ЦИКЛОВ. ОПЕРАТОРЫ ЦИКЛОВ. СОСТАВЛЕНИЕ ПРОГРАММ С ИСПОЛЬЗОВАНИЕ ОПЕРАТОРОВ ЦИКЛА.

ПРОГРАММНО - ДИДАКТИЧЕСКОЕ ОБЕСПЕЧЕНИЕ: ЭВМ типа IBM. Turbo-Pascal 5.

ЦЕЛИ И ЗАДАЧИ: Знакомство с операторами цикла языка Turbo-Pascal. Выработка навыков работы в Turbo-Pascal. Решение практических задач с использованием операторов цикла.

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

Существует три разновидности оператора цикла.

2. Оператор цикла с параметром.

Используется, когда известно, сколько раз выполняется циклическая часть программы.

for <параметр цикла>:=<начало> to/downto <конец> do <оператор>;

для до делать

параметр цикла - числовая переменная типа integer

начало, конец - арифметическое выражение

to - используется когда начало меньше конца

downto - используется когда начало больше конца

оператор - тело цикла, любой оператор, в том числе и составной

Принцип работы:

§ Параметру присваивается значение начало

§ Выполняется оператор - тело цикла.

§ Затем параметр сравнивается с концом.

§ Если параметр больше/меньше конца, то начинает работать следующий оператор за оператором цикла, в противном случае к параметру прибавляется/отнимается единица.

§ Снова выполняется оператор.

§ Так продолжается пока параметр не станет больше/меньше конца.

3. Цикл с предварительным условием

while <условие> do <оператор>;

пока делать

условие - логическое выражение

оператор - любой оператор, в том числе и составной.

Принцип работы:

§ Проверяется истинность условия

§ Если условие истинно выполняется оператор

§ Цикл работает, пока условие не станет ложным.

4. Цикл с последующим условием

repeat <операторы> until <условие>

повторять до тех пор пока

условие - логическое выражение

операторы - любое количество любых операторов, в том числе и составной.

Принцип работы:

§ Выполняются все операторы между repeat и until

§ Проверяется ложность условия

§ Цикл работает, пока условие не станет истинным.

5. Особенности и отличия операторов цикла

- Вход в цикл возможен только через его начало

- Переменные оператора должны быть определены до входа в цикл

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

- Оператор while repeat может ни разу не выполнится

- оператор repeat обязательно выполниться хотя бы раз

Объяснения решения следующих задач.

1) Проверить, является ли целое число простым.	Uses crt; Var n{введенное число},i:integer; Begin Readln(n); For i:=2 to n-1 do If n mod i =0 then begin writeln(n,’не простое’);readkey; halt;end; writeln (n, ‘простое’); readkey; end.
2) Написать программу, которая выводит на экран табл. умножения, например на 7.	Uses crt; Var m, n,p:integer; Begin For i:=1 to 10 do Writeln(7,’*’,I:2,’=’,7*I:2); Readkey; end.
Рекуррентные последовательности Последовательность рекуррентная, если любой член последовательности, начиная с некоторого, выражается через предшествующие члены. При этом способе задания последовательности указывают ее первый член (или несколько начальных членов) и формулу, позволяющую определить любой член последовательности по известным предшествующим членам. Пример: Числа Фибоначи. а1=1, а2=1, аn+2=an+an+1 Имеем a3=a1+a2=1+1=2; a4=a2+a3=1+2=3; a5=a3+a4=2+3=5; a6=a4+a5=3+5=8; a7=a5+a6=5+8=13; a8=a6+a7=8+13=21; ... В итоге получаем последовательность 1, 1, 2, 3, 5, 8, 13, 21, 34, ... Каждый ее член, кроме первых двух, равен сумме двух предшествующих ему членов. Пример программы вывода 50 первых членов последовательности Фибоначи:	Var an, anp1, anp2,i: integer; begin An:=1; Anp1:=1; Write ('1, 1'); For i:=3 to 50 do begin Anp2:=an+anp1; Write(', ',anp2); An:=anp1; Anp1:=anp2; End; End.

Задачи для решения в группах