Пример обработчика вывода графических примитивов

procedure TForm1.FormPaint(Sender: TObject);

{обработчик события перерисовки формы, выводит изображение в клиентскую область формы}

Var i:integer;{счетчик циклов для рисования эллипсов и прямых}

begin {далее установка параметров изображения}

color:=clWhite;{цвет фона клиентской области формы -белый}

Canvas.Brush.Color:=clLtGray;{цвет заливки – светло-серый}

Canvas.Pen.Width:= 1;{толщина линий полагается равной 1}

Canvas.Pen.Color:=clBlack;{цвет линий - черный}

Canvas.Pen.Style:=psSolid;{линии - сплошные}

Canvas.Brush.Style:=bsBDiagonal;{штриховка - диагональная}

for i:=1 to 3 do {в цикле рисуется три эллипса}

begin

if i=3 then{для последнего эллипса заливка меняется }

Canvas.Brush.Style:=bsSolid;{на сплошную}

Canvas.Ellipse (50, 80+(i-1)*100, 250, 120+(i-1)*100);

end;

{ниже – рисование треугольника}

Canvas.Polygon([Point(40,330),Point(100,330),Point(100,350)]);

{рисование верхней дуги}

Canvas.Arc(290,60,360,140,360,100,325,60);

{рисование нижней дуги}

Canvas.Arc(190,270,310,350,250,350,310,310);

Canvas.Pen.Style:=psDash;{линии меняются на пунктирные}

{ниже – рисование вертикально стоящего прямоугольника}

Canvas.Rectangle(320,120,350,340);

Canvas.Pen.Style:=psDashDot;{линии – штрих-пунктирные}

Canvas.Brush.Style:=bsDiagCross;{перекрестная штриховка}

Canvas.Rectangle(240,30,260,70);{малый прямоугольник}

for i:=1 to 3 do{в цикле рисуются линии, стиль линии }

begin { выбирается оператором case}

case i of

1: Canvas.Pen.Style:=psDash;

2: Canvas.Pen.Style:=psDashDot;

3: Canvas.Pen.Style:=psSolid;

end;

Canvas.MoveTo(10, 100*i);{курсор – в начало линии}

Canvas.LineTo(300,100*i);{рисование линии}

end;

end;

Пример обработчика, формирующего массивы координат точек серий для вывода графиков функций с помощью Chart

procedure TForm1.FormCreate(Sender: TObject);

{Обработчик выполняется при создании формы}

Var n,i:integer;{n – число точек, i-номер точки}

x,y,h:real;{координаты точки и шаг приращения аргумента x}

begin

n:=20;

h:=2*pi/n;

x:=0;{начальное значение x}

Series1.Title:='sin';{изменение названий серий для легенды}

Series2.Title:='cos';

for i:=1 to n do {цикл по точкам}

begin

y:=sin(x);

Series1.AddXY(x,y);{добавление точки к первой серии (графику)}

y:=cos(x);

Series2.AddXY(x,y); {добавление точки ко второй серии (графику)}

x:=x+h;{изменение x}

end;

end;

Лабораторная работа №10. Обработка исключительных ситуаций

Цель работы: освоение приемов обработки исключительных ситуаций в Объектном Паскале.

Продолжительность работы: 2 часа

1. Подготовка к работе

Перед началом выполнения работы студент должен:

1. Ознакомиться с обработкой исключительных ситуаций по пособию [3], гл. 9.

2. Подготовить фрагменты программного кода обработки исключительных си­туаций для приложений, созданных в предыдущих лабораторных работах:

1. исключительная ситуация класса EConvertError (ошибка преобразова­ния данных) при считывании значений исходных данных из компонент Edit и преобразовании этих значений к числовым типам с использованием функций StrToInt, StrToFloat в приложении для задачи 1.3.4.N+1 (лабора­торная работа №5);

2. исключительная ситуация класса EConvertError при считывании значе­ния длины массива из компоненты Edit в приложении для задачи 3.4.N+1 (ла­бораторная работа №8); требуется заменить существующий условный опе­ратор на обработку исключения;

3. генерация исключительной ситуации (с помощью оператора raise), если в качестве длины массива введено неположительное число (задача 3.4.N+1, ла­бораторная работа №8); требуется заменить существующий опе­ратор вывода сообщения об ошибке на генерацию исключения:

if n<=0 then raise Exception.Create('Введите положительное число');

4. генерация исключительной ситуации, если значения исходных данных выходят за допустимые границы (задача 1.3.4.N+1, ла­бораторная работа №5; допустимые границы определить из условия задачи);

5. (2-3) исключительные ситуации (деление на нуль, переполнение, извлечение корня из отрицательного числа и т. п.) при вычислении значений функций в лабораторной работе №9.

3. Подготовка проекта отчета по лабораторной работе. Отчет должен содержать для каждой исключительной ситуации:

1. описание ситуации;

2. фрагмент программного кода для ее обработки.

2. Задание и рекомендации по его выполнению

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

2. Отладьте измененные приложения.

3. Результаты зафиксируйте в отчете и покажите преподавателю.

Приложение 1. Пример проекта отчета по консольному приложению

Условие

Начальный вклад клиента в банке был равен A руб. В течение каждого месяца рассматриваемого периода на счет добавляется B руб.; в конце каждого месяца на имеющийся вклад начисляется р %. Вывести величину вклада на начало 1, 2, ... N месяца.

Состав данных

Имя	Смысл	Тип	Структура
Исходные данные
A	начальный вклад	вещественный	простая переменная
B	деньги, поступающие ежемесячно	вещественный	простая переменная
р	начисляемые ежемесячно проценты	вещественный	простая переменная
N	количество месяцев	целый	простая переменная
Выходные данные
i	номер месяца	целый	простая переменная
V	Величина вклада на начало i-го месяца	вещественный	простая переменная

Ф орма ввода

Форма вывода

Блок-схема алгоритма

Программа на Паскале

Program primer2;

Var A,B,p,V:real; N,i:integer;

Begin

Writeln('Введите A,B,p,N'); Readln(A,B,p,N); V:=A;

for i:=1 to N do

begin

writeln(i:7, V);

V:=V+B;

V:=V*(1+p/100);

end;

Readln;

End.

Тесты

Тест 1. Входные данные: A=100; B=10; p=0; N=4.

Выходные данные:

i	V
1	100
2	110
3	120
4	130

Тест 2. Входные данные: A=100; B=10; p=1; N=3.

Ниже в фигурных скобках приведено значение V, полученное после вы­полнения оператора тела цикла для последовательных значений i. Эти данные используются для проверки правильности программы с помощью трас­сировки.

i=1

writeln(i:7, V); {V=100}

V:=V+B; {V=110}

V:=V*(1+p/100); {V=111,1}

i=2

writeln(i:7, V); {V=111,1}

V:=V+B; {V=121,1}

V:=V*(1+p/100); {V=122,311}

i=3

writeln(i:7, V); {V=122,311}

V:=V+B; {V=132,311}

V:=V*(1+p/100); {V=133,63411}

Выходные данные:

i	V
1	100
2	111,1
3	122,311