Главная » Delphi, Исходники, Разное » Программа, для определения высоты и биссектрисы
Окт
24

Программа, для определения высоты и биссектрисы

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

Выполняется все по формулам:

[sourcecode language=»css»]
a:=trunc(sqrt(sqr(i-0)+sqr((i-1)-0)));
b:=trunc(sqrt(sqr(-i-i)+sqr((i+1)-i-1)));
c:=trunc(sqrt(sqr(-i)+sqr(i+1)));
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
h:=(2*s)/b;
w:=2/(b+c)*sqrt(b*c*p*(p-a));
[/sourcecode]

А результат выводится в сплывающем окне:

[sourcecode language=»css»]

ShowMessage(‘Высота=’+FloatToStr(h)+#13+’Бисектриса=’+FloatToStr(w));

[/sourcecode]

Вот полностью исходник программы:
[sourcecode language="css"]unit Unit2;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
  Button1: TButton;
  Edit1: TEdit;
  Label1: TLabel;
procedure Button1Click(Sender: TObject);
  private
  { Private declarations }
  public
  { Public declarations }
end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var a,b,c:integer; s,w,i,p,h:real; begin i:=StrToFloat(Edit1.text); begin a:=trunc(sqrt(sqr(i-0)+sqr((i-1)-0))); b:=trunc(sqrt(sqr(-i-i)+sqr((i+1)-i-1))); c:=trunc(sqrt(sqr(-i)+sqr(i+1))); p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c)); h:=(2*s)/b; w:=2/(b+c)*sqrt(b*c*p*(p-a)); end; ShowMessage('Высота='+FloatToStr(h)+#13+'Бисектриса='+FloatToStr(w)); end; end. [/sourcecode]
Также вот ссылка на готовую программу:
Все вопросы по программе пишыте в коментариях, буду рад вам помочь.


Понравилась статья? Сделай приятно ее автору, поделись с друзьями:


Хотите получать обновления данного блога на EMail?

Введите адрес Почтового Ящика:




Подтвердите подписку в письме пришедшем на Почту, после чего начнете получить рассылку.