ПРОГРАММИРОВАНИЕ УСЛОВИЙ НА ПАСКАЛЕ

Твельнева Т.А. МОУ СОШ №1
Тест-разминка
Алгоритмы с ветвящейся структурой (повторение)
Программирование ветвлений на Паскале
Решение задачи
Практическая работа
Итоги урока
Содержание

Твельнева Т.А. МОУ СОШ №1
Тест- разминка

Твельнева Т.А. МОУ СОШ №1

Твельнева Т.А. МОУ СОШ №1

Твельнева Т.А. МОУ СОШ №1
В отличие от линейных алгоритмов, в которых команды выполняются одна за другой , в алгоритмическую структуру «ветвление» входит «условие», в зависимости от выполнения или невыполнения которого реализуется та или иная последовательность команд (серия)
повторение
Алгоритмическая структура «ветвление»

Твельнева Т.А. МОУ СОШ №1
Алгоритмический язык
если <условие>
то <серия 1>
иначе <серия 2>
кв
Язык блок-схем
да нет
повторение
КОМАНДА ВЕТВЛЕНИЯ

Твельнева Т.А. МОУ СОШ №1
Найти большее из двух чисел А и В.
Результат обозначить С.
Заполните пропущенные места.
алг БИД
вещ …
нач
ввод …
если …
то ….
иначе …
кв
вывод …
кон
Язык блок-схем
да нет
повторение
Задача_1.

Твельнева Т.А. МОУ СОШ №1
алг БИД 1
вещ А,В,С
нач
ввод А,В
если А>B
то C:=A
иначе C:=B
кв
вывод С
кон
Язык блок-схем
да нет
C:=B
Задача_1.
Найти большее из двух чисел А и В.
Результат обозначить С.

Твельнева Т.А. МОУ СОШ №1
В языке Паскаль имеется оператор ветвления. Другое его название – условный оператор. Формат полного оператора следующий:
if <логическое выражение>
then <оператор1>
else <оператор2>;
Здесь if – если, then - то, else- иначе.

Твельнева Т.А. МОУ СОШ №1
Алгоритмический язык
если <условие>
то <серия 1>
иначе <серия 2>
кв
Язык Паскаль
(полное ветвление)
IF <условие>
THEN<оператор_1>
ELSE <оператор_2>;
сравни и запиши в тетрадь

Твельнева Т.А. МОУ СОШ №1
Алгоритмический язык
если <условие>
то <серия 1>
кв
Язык Паскаль (неполное ветвление)
IF <условие>
THEN<оператор> ;
запиши в тетрадь

Твельнева Т.А. МОУ СОШ №1
РЕШЕНИЕ ЗАДАЧ
Запишем алгоритм Задачи_1 на языке Паскаль,
используя полное ветвление

Твельнева Т.А. МОУ СОШ №1
алг БИД 1
вещ А,В,С
нач
ввод А,В
если А>B
то C:=A
иначе C:=B
кв
вывод С
кон
Program BID1;
Var A,B,C:real;
Begin
Write( ‘A=‘);readln (A);
Write (‘B=‘); readln (B);
if A>B
then C:=A
else C:=B;
Write (‘C=’,C:5:3)
end.
запиши в тетрадь

Твельнева Т.А. МОУ СОШ №1
Запишем алгоритм Задачи_1 на языке Паскаль, используя неполное ветвление
алг БИД 2
вещ А,В,С
нач
ввод А,В
C:=A
если B>A
то C:=B
кв
вывод С
кон
Program BID2;
Var A,B,C:real;
Begin
Write( ‘A=‘);readln (A);
Write (‘B=‘); readln (B);
C:=A;
if B>A
then C:=B;
WriteLn (‘C=’,C:5:3)
end.
запиши в тетрадь

Твельнева Т.А. МОУ СОШ №1
Набрать программу решения задачи_1 на компьютере. Протестировать её.
(1 балл)
Задача 2. Изменить программу, чтобы вычислялось меньшее из двух чисел. Протестировать.
(2 балла)
Задача 3. Составить и протестировать программу, вычисляющую большее(меньшее) из трёх чисел. Протестировать.
( 3 балла)
Практическая работа

Твельнева Т.А. МОУ СОШ №1
Запустить программу
Turbo Pascal
2. В открывшемся окне набрать текст программы
3. Запустить программу на выполнение командой RUN
4. Ввести с клавиатуры значения А и В.
Проанализировать результат.
5. Изменить программу для решения задачи 2 или задачи 3. Отладить программу.
Ход работы

Твельнева Т.А. МОУ СОШ №1
Текст программы в режиме редактирования

Твельнева Т.А. МОУ СОШ №1
Режим отладки программы

Твельнева Т.А. МОУ СОШ №1
ИТОГИ УРОКА
Ваша оценка складывается из суммы баллов за тест и практическую работу
9-10 баллов – оценка «5»
7-8 баллов – оценка «4»
5-6 баллов – оценка «3»
Домашнее задание
Решить ту задачу урока, которую вы не решили.
Записи в тетради.