Алгоритмическая структура ветвлений в языке программирования FreePascal. Интегрированная среда KDevelop

Разделы: Информатика, Конкурс «Презентация к уроку»


Презентация к уроку

Загрузить презентацию (3 МБ)


Тип урока: урок изучения новых знаний и их первичное закрепление.

Метод обучения: объяснительно-иллюстративный.

Цели урока: познакомить учащихся с условным оператором и применением его при составлении программ на языке программирования Free Pascal.

Задачи урока:

  • воспитание интереса к информатике, любознательности, ответственности за выбранную работу;
  • умение разрабатывать программы с условными операторами;
  • изучение учащимися нового материала по созданию и компиляции программы на языке Free Pascal в среде Kdevelop;
  • приобретение навыков работы в интегрированной среде разработки KDevelop;
  • развитие мировоззрения, памяти, восприятия, воображения, алгоритмического мышления.

Учащиеся должны:

  • знать (понимать): правила записи и алгоритм выполнения оператора ветвления в языке программирования Free Pascal.
  • уметь: разрабатывать блок-схемы с ветвлением и описывать их на языке Free Pascal.

Оборудование: компьютер, мультимедийный проектор.

Ход урока

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

Приветствие, проверка присутствующих. Объяснение хода урока.

II. Актуализация и проверка знаний. (3 мин.)

  1. Как записывается оператор вывода?
  2. Как записывается оператор ввода?
  3. Как записывается оператор присвоения?
  4. Чем заканчивается программа?
  5. Записать на языке 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 мин.)

Подведение итога урока. Выставление оценок.

Литература

  1. Задачник – практикум по информатике. Учебное пособие для средней школы. Под. Ред. И. Семакина, Е. Хенера. – Лаборатория Базовых Знаний, 2011.
  2. Окулов. С.М. Основы программирования. – 3-е изд. – M: БИНОМ. Лаборатория знаний, 2010.
  3. Пивторацкая Н.И “Знакомство с интегрированной средой разработки KDevelop: создание и компиляция программы на языке Си”. - http://freecode.pspo.perm.ru/glossary/