ПриМер автономного модуля

unit Unit2;

{Модуль содержит одну функцию вычисления суммы элементов одномерного массива длины n}

interface {интерфейсная часть модуля}

function sum (a: array of real; n: integer):real;

implementation

function sum; {исполняемая часть модуля}

Var i: integer; s:real;

begin

s:=0;

for i:=Low(a) to High(a) do

s:=s+a[i];

sum:=s;

end;

end.

Некоторые обработчики приложения, вычисляющего сумму элементов одномерного массива

Ф орма приложения приведена на рис.6.

procedure TForm1.Button1Click(Sender: TObject);

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

Var j:integer;

begin

val(Edit1.Text,n,j);

if j<>0 then

ShowMessage('Введите число')

else

if n<=0 then

ShowMessage(' Введите положительное число ')

else

begin

StringGrid1.ColCount:=n;

{В Инспекторе объектов установлено: StringGrid1.FixedCols=0}

for j:=0 to n-1 do {Подписываем номера элементов массива}

StringGrid1.cells[j,0]:=IntToStr(j+1);

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

{Обработчик нажатия кнопки «Вычислить сумму»}

Var a: array of real; j: integer;

begin

SetLength(a,n);{распределение памяти под массив, n – глобальная переменная}

for j:= 0 to n-1 do {ввод массива}

if StringGrid1.Cells[j,1]='' then

a[j]:=0

else

a[j]:= StrToFloat(StringGrid1.Cells[j,1]);

{далее вычисление суммы и вывод ее в текстовое окно:}

Edit2.Text:=FloatToStr(Sum(a,n));

end;

Лабораторная работа №9. Разработка оконных приложений, осуществляющих графический вывод

Цель работы: освоение приемов вывода графических изображений в среде Delphi.

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

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

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

1. Ознакомиться с графическим вывода среде Delphi по пособию [3], гл. 8.

2. Р азработать проект отчета по решению задач [1] 7.4.N+1, 7.1. N+1. По задаче 7.4.N+1 (рисунки с графическими примитивами) проект отчета дол­жен содержать:

1. номер и условие задачи с рисунком, на котором про­ставлены отметки на коор­динатных осях в пиксе­лях (см. рис. 7);

2. программный код для вывода заданного изображе­ния; код должен использо­вать методы холста (свой­ства Canvas) – см. ниже приведенный пример.

По задаче 7.1.N+1 (построение графиков функций) проект отчета по каждому пункту задания (А, Б) дол­жен содержать:

1. формулу для исследуемой функции;

2. рассматриваемый интервал значений аргумента x;

3. характерные точки функции, подлежащие определению по графику;

4. самостоятельно полученную оценку интервала значений функции;

5. код обработчика, формирующего массивы координат точек для по­ст­ро­е­ния графика с помощью компоненты Chart (диаграмма) – см. ниже приведенный пример;

6. код обработчика, выводящего график по точкам – см. [3], §8.2; рекомен­дуется написать универсальную подпрограмму, выводящую гра­фик произвольной функции, и применить эту подпрограмму в пунктах А и Б; в список параметров подпрограммы обязательно должны входить параметр-функция (определяющая, график какой функции выводится) и минимальные и максимальные значения аргумента и функции.

7. тесты.

3. Набрать программный код основных обработчиков приложения в блокноте или в среде Delphi.