Код программы. Исходный код модуля программы:

Исходный код модуля программы:

function colpo(po: tpo): integer;

procedure postroenie(Img: TImage; var po: tpo);

procedure addPoint(x, y, countPoint: integer; var po: tpo);

var

countpoint: integer;

po: tpo;

Canvas: TCanvas;

implementation

procedure addPoint(x, y, countPoint: integer; var po: tpo);

begin

setLength(po, countPoint+1);

po[countPoint].X: =x;

po[countPoint].Y: =y;

end;

procedure postroenie(Img: TImage; var po: tpo);

begin

img.Canvas.Pen.Color: =clblack;

img.Canvas.Brush.Color: =clAqua;

img.Canvas.rectangle(po[0].X, po[0].y, po[1].X, po[1].y);

end;

function colpo(po: tpo): integer;

var i, d: integer;

begin

d: =0;

for I: = 2 to length(po) - 1 do

if ((po[i].X> po[0].X) and (po[i].X< po[1].X)) then

if ((po[i].y> po[0].y) and (po[i].y< po[1].y)) then

d: =d+1;

colpo: =d;

end;

end.

Исходный код программы:

procedure TForm1.FormActivate(Sender: TObject);

begin

a: =0;

end;

procedure TForm1.Image1Click(Sender: TObject);

begin

Form1.StatusBar1.Panels[0].Text: ='Кол-во точек в прямоугольнике = '+floatTostr(colpo(po));

end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

Image1.Canvas.Pen.Color: =Rgb(0, 25, 0);

Image1.Canvas.Brush.Color: =Rgb(0, 26, 0);

Image1.Canvas.Ellipse(x-2, y-2, x+2, y+2);

addpoint(X, Y, A, po);

if a=1 then

begin

postroenie(Image1, po);

end;

a: =a+1;

end;

Алгоритмы

Рисунок 3.3

Лабораторная работа №7

Создание и использование модуля

Задание: Создать программу вычисления среднего арифметического положительных элементов массива произвольной размерности.Создать программу вычисления суммы элементов главной диагонали матрицы произвольной размерности.