Колледж АО «Финансовая академия»
Разработка открытого урока
по дисциплине «Основы алгоритмизации и программирование»
Разработала и провела: преподаватель Уайсова Макпал Сагитбековна
Астана 2015
ТЕМА
|
Использование
визуальных компонентов для программирования массивов.
|
ЦЕЛИ:
|
Приобретение практических навыков по
использованию визуальных компонентов для программирования массивов.
|
ЗАДАЧИ:
|
|
Образовательные:
|
обеспечить обобщение изученного материала по массивы и операции выполняемые
над массивами; обеспечить отработку умений решения прикладных задач используя
компоненты для работы с табличными данными, обеспечить формирование умений о
языке программирования Object Pascal в среде Delphi;
|
Развивающие:
|
Развитие мышления путем создания алгоритмов для решения прикладных
задач, развития памяти при написании программного кода для решения
прикладных задач, развития логического мышления при составлении приложений;
.
|
Воспитательные:
|
формирование гуманных отношений на уроке, учить требовательности к
себе, к чувству собственного достоинства, дисциплинированности, аккуратности,
добросовестности, ответственности и честности, привит бережное отношение к
имуществу школы и учебным пособиям, максимальная работоспособность на уроке.
|
ТИП УРОКА
|
обобщение и
систематизация знаний.
|
МЕТОДЫ ОБУЧЕНИЯ:
|
объяснительно-иллюстративный, частично-поисковый,
проблемное изложение
|
ОБОРУДОВАНИЕ:
|
программное обеспечение Borland Delphi
7, электронная лекция, электронный задачник по программированию, стандартные
подпрограммы, проектор
|
Межпредметные связи:
|
АИС, ИБ и ЗИ, ООС
|
Литература :
|
Архангельский
А.Я. Программирование в Delphi 7. М: ООО «Бином-Пресс», 2006г.
|
План урока:
Этап урока
|
Время, мин
|
Организационный момент. Постановка целей урока
|
3
|
Актуализация знаний. Интеллектуальная разминка
|
6
|
Обобщение изученного материала.
|
10
|
Практикум. Компоненты для программирования массивов
|
15
|
Итог урока. Выставление оценок
|
3
|
Домашнее задание
|
3
|
Ход
урока
1. Теоретические сведения. Работа с
компонентами.
Компонент-диаграмма
Chart типа TChart предназначен для работы с графиками и
диаграммами различных типов и служит для графического представления
результатов. Компонент находится на панели Additional Палитры
компонентов и имеет пиктограмму .
Компонент
содержит большое количество разнообразных свойств, многие из которых являются
объектами и имеют свои свойства. Установка значений этих свойств выполняется с
помощью редактора Editing Chart (рис. 1)
Рис. 1. Окно редактора Editing Chart
во
время разработки программы (приложения) либо при обращении к свойствам
компонента во время ее выполнения. Всю работу по отображению графиков,
построению и разметке координатных осей, сетки, подписей и т.д. берет на себя
компонент Chart . Разработчику программы требуется задать тип диаграммы и
источник данных.
Для
представления данных, заданных таблично или с использованием функции, в виде
линии, используется переменная Series1 типа TLineSeries
, которая описывает последовательность значений, отображающихся на
диаграмме.
Добавление
новой точки к серии выполняется с помощью метода Add :
function AddXY(Const AXValue,AYValue:Double;
Const AXLabel:String;
AColor:TColor),
где
AXValue,AYValue – параметры, определяющие координаты точки по осях OX и OY,
AXLabel – необязательный параметр, AColor – цвет группы, к которой принадлежит
точка.
Аналогично для добавления нового сектора в
круговой диаграмме так же можно воспользоваться функцией Add :
function Add(Const PieValue:Double;
Const APieLabel:String;
AColor: TColor)
где PieValue
– величина сектора данных , APieLabel – необязательный параметр, AColor –
цвет сектора.
Связь
между диаграммой и программным кодом происходит следующим образом. При создании
каждой серии данных с помощью редактора Editing Chart, в разделе TForm1 появляется
новая переменная Series<n> ( где <n> – номер серии )
соответствующего типа. Например, для отображения серии данных в виде точек,
переменная Series1 будет иметь тип TPointSeries ( точечное представление ).
Некоторые
свойства компонента Chart приведены в табл. 1:
Таблица 1.
Свойства компонента Chart
|
Title.Text
|
задание заголовка диаграммы
|
Title.Aligment
|
выравнивание заголовка
|
<NameAxis>.Automatic
|
автоматическое определение параметров по
оси
|
<NameAxis>.Minimum
|
задание минимального значения по оси
|
<NameAxis>.Maximum
|
задание максимального значения по оси
|
<NameAxis>.Increment
|
задание шага разметки по оси
|
Под <NameAxis> понимается нижняя (
BottomAxis ), левая ( LeftAxis ) ,
правая ( RightAxis ) или верхняя (
TopAxis ) координатная ось
|
2. Порядок выполнения работы.
Изучить
компонент Chart и его свойства, выполнить контрольные примеры и задания
соответствующего варианта.
Контрольный пример 1.
Составить
программу, отображающую графики функций и в интервале с
заданным шагом h .
Решение.
1. Открыть
новый проект Delphi: File –
New Application .
2.
На форме расположить следующие компоненты: три компонента Edit, три компонента
Label, компонент Chart и компонент Button и установить для них следующие
свойства:
Label1.Caption = 'a'
Label2.Caption = 'b'
Label3.Caption = 'h'
Edit1.Text = ''
Edit2.Text = ''
Edit3.Text = ''
Button1.Caption = 'Построить'
Результат показан на рис. 2.
Рис. 2. Вид формы
Для изменения параметров
компонента Chart необходимо два раза щелкнуть на нем левой кнопкой мыши (или
один раз правой кнопкой и в контекстном меню выбрать пункт Edit Chart ).
В открывшемся окне редактирования Editing Chart 1 создать два
объекта Series1 и Series2 , щелкнув на кнопке
Add , находящейся на вкладке Series . В
качестве типа графика выбрать Line , отключив трехмерное
представление с помощью переключателя 3D . Для изменения имен
серий (на f1 и f2 ) используется кнопка Title
. Редактирование завершается нажатием кнопки Close .
Первоначально на графиках отображаются случайные значения.
3. Для решения задачи
запишем обработчик событий Button1.Click, щелкнув на компоненте Button1 (кнопка
Построить ) два раза левой кнопкой мыши. Текст соответствующей
процедуры имеет вид:
procedure TForm1.Button1Click(Sender: TObject);
var a,b,h:double;
var x,f1,f2:double;
begin
//удаление всех значений в ряду данных
Series1.Clear;
Series2.Clear;
//задание значений границ и шага
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
h:=StrToFloat(Edit3.Text);
//расчет значений функций
x:=a;
repeat
f1:=sin(x);
Series1.AddXY(x,f1,'',clRed);
f2:=cos(x);
Series2.AddXY(x,f2,'',clBlue);
x:=x+h;
until x>b;
//задание названия диаграммы
Chart1.Title.Text.Clear;
Chart1.Title.Text.Add('Графики функций f1 и f2.
Шаг = '+FloatToStr(h));
//установка параметров нижней оси
Chart1.BottomAxis.Automatic:=false;
Chart1.BottomAxis.Minimum:=a;
Chart1.BottomAxis.Maximum:=b;
Chart1.BottomAxis.Increment:=(Chart1.BottomAxis.Maximum
-Chart1.BottomAxis.Minimum)/2;
//установка параметров левой оси
Chart1.LeftAxis.Automatic:=false;
Chart1.LeftAxis.Minimum:=-1;
Chart1.LeftAxis.Maximum:=1;
Chart1.LeftAxis.Increment:=0.5;
end;
4. Запустить проект на компиляцию и
выполнение.
5. Задать значения a = 0, b =
6.28, h = 0.1 и нажать кнопку Построить .
График зависимостей будет иметь вид,
Рис. 3. Результат выполнения программы
4. Контрольные вопросы
1. С
какой целью применяется компонент Chart?
2.
Можно ли в Object Inspector устанавливать свойства отображения осей?
3.
Можно ли на форме располагать два компонента Chart? Если нет то почему?
4.
Разрешается ли во выполнении программы изменять тип диаграммы?
5.
Какие параметры задаются на панели Legend в Editing Chart и какие параметры
графика можно редактировать с помощью нее?
5. Домашнее задание:
1. Построить на одном графике функции и на интервале [0.1,1].
Шаг h =0.01
2. В полярной системе координат построить график спирали Архимеда
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.