procedure TForm1.N3Click(Sender: TObject);
begin
L1 := Sqrt(Sqr(X2 - X1) + Sqr(Y2 - Y1));
L2 := Sqrt(Sqr(X3 - X1) + Sqr(Y3 - Y1));
L3 := Sqrt(Sqr(X2 - X3) + Sqr(Y2 - Y3));
P := L1 + L2 + L3;
Label1.Caption := FloatToStr (P);
end;

9. Создать обработчик события, реализующий вычисление площади треугольника.

procedure TForm1.N4Click(Sender: TObject);
begin
S := Sqrt (P / 2 * (P / 2 - L1) * (P / 2 - L2) * (P / 2 - L3) );
Label2.Caption := FloatToStr(S);
end;

10. Создать обработчик события, реализующий очистку графического поля.

procedure TForm1.N7Click(Sender: TObject);
begin
With Imagel.Canvas Do
begin
Brush.Color := clWhite;
FillRect(Rect(0,0,200,200));
end;
end;

11. Запустить проект.

Осуществить щелчки левой, правой и средней кнопками мыши по графическому полю.

С использованием меню Треугольник нарисовать треугольник с координатами вершин, вычислить значения периметра и площади треугольника (рис. 4.41).

Рис. 4.41. Проект «Треугольник»

Следующая страница Компьютерный практикум

Cкачать материалы урока

Уроки 114 - 120§4.13. Графика в объектно-ориентированных языках программирования

Содержание урока

4.13.1. Графика в языках программирования Visual Basic .NET, Visual C# и Visual J#

4.13.2. Графика в языке программирования Turbo Delphi

4.13.3. Компьютерная и математическая системы координат

4.13.4. Анимация

4.13.2. Графика в языке программирования Turbo Delphi

Проект «Треугольник»

Создание обработчиков событий

Уроки 114 - 120
§4.13. Графика в объектно-ориентированных языках программирования