Тип урока: урок изучения новых знаний и их первичное закрепление.
Метод обучения: объяснительно-иллюстративный.
Цели урока: познакомить учащихся с условным оператором и применением его при составлении программ на языке программирования Free Pascal.
Задачи урока:
- воспитание интереса к информатике, любознательности, ответственности за выбранную работу;
- умение разрабатывать программы с условными операторами;
- изучение учащимися нового материала по созданию и компиляции программы на языке Free Pascal в среде Kdevelop;
- приобретение навыков работы в интегрированной среде разработки KDevelop;
- развитие мировоззрения, памяти, восприятия, воображения, алгоритмического мышления.
Учащиеся должны:
- знать (понимать ): правила записи и алгоритм выполнения оператора ветвления в языке программирования Free Pascal.
- уметь : разрабатывать блок-схемы с ветвлением и описывать их на языке Free Pascal.
Оборудование: компьютер, мультимедийный проектор.
Ход урока
I. Организационный момент. (1 мин.)
Приветствие, проверка присутствующих. Объяснение хода урока.
II. Актуализация и проверка знаний. (3 мин.)
- Как записывается оператор вывода?
- Как записывается оператор ввода?
- Как записывается оператор присвоения?
- Чем заканчивается программа?
- Записать на языке Free Pascal следующие выражения: у = 5х2-10х+2; sin(x2+x-2)
III. Теоретическая часть. (15 мин.)
В Free Pascal также имеются специальные конструкции, которые позволяют реализовать команды ветвления. Эти конструкции называются операторами: условного перехода (условный оператор).
В Free Pascal имеются два вида операторов, позволяющих совершать какие-либо операции в зависимости от выполнения заданного условия.
Полная форма оператора условного перехода.
If <логическое выражение> then <оператор1> else <оператор2>
Например: if а > 0 then s:=s+d else s:=s – b;
Проводим аналогию с конструкцией, если … то … иначе … все.
Работает оператор так же, как и команда ветвления. После then и else можно записать только один оператор.
В том случае, когда по условию решения поставленной задачи необходимо использовать несколько операторов или выражений, при выполнении или невыполнении условия применяется так называемый, составной оператор (операторные скобки).
Составной оператор:
begin
операторы
end;
Например:
if а<с then begin
а:=е-а;
k:-k+l
end
else begin
c:=a-c;
I=I+1
end;
Неполная форма оператора.
if <логическое выражение> then <оператор>;
Например:
If а<> b then a:=a - b;
If (x<10) and (x>=0) then y:=sqr(x);
Пример: даны два числа a и b. По блок-схеме <Рисунок 1> алгоритма поиска наибольшего из двух заданных чисел, создайте программу на языке Free Pascal в интегрированной среде разработки KDevelop.
Решение.
program prim1;
uses crt;
var a,b,max: integer;
begin
writeln(‘введи два числа’);
readln(a,b);
if a>b then max:=a else max:=b;
writeln (max)
end.
Просмотр презентации “Создание программы на языке Free Pascal в среде разработки KDevelop” <Презентация 1>
Важным шагом в развитии языка Pascal является появление свободных реализаций Free Pascal и GNU Pascal, которые не только вобрали в себя черты множества других диалектов языка, но и обеспечили чрезвычайно широкую переносимость написанных на нём программ. Например, GNU Pascal поддерживает более 20 различных платформ, под более чем 10 различными операционными системами. Free Pascal обеспечивает специальные режимы совместимости с различными распространенными диалектами языка Turbo Pascal (полная совместимость), Delphi и другими.
Интегрированная среда разработки KDevelop предназначена для разработки программных систем на многих языках программирования, в том числе и на Free Pascal. Она предоставляет следующие средства создания программ:
- доступ ко всем стандартным инструментам, таким как компилятор, компоновщик;
- мастер создания проектов для генерации готовых к запуску примеров приложений.
Free Pascal Compiler (FPC) - это свободно распространяемый компилятор языка Паскаль с открытыми исходными кодами. Он совместим с Borland Pascal 7 и Object Pascal – Delphi.
FPC поддерживает большое количество платформ — AmigaOS, DOS, Linux, *BSD, OS/2, MacOS(X) и Win32.
IV. Практическая часть. (15 мин.)
Задание: Используя интегрированную среду разработки KDevelop, разработать и отладить программу поиска наибольшего из трех введенных с клавиатуры чисел на языке программирования Free Pascal.
V. Закрепление изученного материала. (5 мин.)
Вопросы.
- Какие виды условных операторов вы знаете?
- Поясните, как работают операторы условного перехода каждого вида.
VI. Домашнее задание. (5 мин.)
1. Исправьте ошибки в программе:
Program Pr;
Var b,s: real;
Begin
Writeln (‘Введите числа b и с’)
Readln( b,c);
A=b+c;
Writeln ( ‘a=’,a);
End.
2ю Какое значение будет принимать переменная х?
А)
а:=5; b:=4; c:=3;
if a>b then x:=a+b
еlse begin
а:=b+c; x:=a-3*b end.
Б)
а:=9; b:=8; c:=2;
if (a>b) and (b>c) then x:=2*a+b+c
else begin
a:=b+c; x:=a-3*b
end.
В)
a:=1; b:=4; c:=8;
if (a<=b) or (a>c) then x:=5*a-b
else
x:=4*a*b
end.
Г)
a:=53; b:=14;
if a<=b then x:=a+b
else x:=2*a-4*b
end.
Д)
a:=3; b:=4;
if a>b then x:=a*b else x:=a
end.
VII. Итог урока. (1 мин.)
Подведение итога урока. Выставление оценок.
Литература
- Задачник – практикум по информатике. Учебное пособие для средней школы. Под. Ред. И. Семакина, Е. Хенера. – Лаборатория Базовых Знаний, 2011.
- Окулов. С.М. Основы программирования. – 3-е изд. – M: БИНОМ. Лаборатория знаний, 2010.
- Пивторацкая Н.И “Знакомство с интегрированной средой разработки KDevelop: создание и компиляция программы на языке Си”. - http://freecode.pspo.perm.ru/glossary/