[Вол]

помогите исправить
программа определения и направления скорости ветра

Код:

procedure TForm1.Button1Click(Sender: TObject);
Var
V: Real; //скорость истинного
d: integer; //направление истинного
Vc: Real; //скорость судна
dc: integer; //направление судна
Vk: Real; //скорость кажущегося
dk: integer; //направление кажущегося
dkc: integer; //направление кажущегося от мериадеана
dkc_rad: Real;
si: real; //значение синуса
co: real; //значение косинуса
p: integer;
begin
Vc:=StrToFloat(Edit2.Text);
dc:=StrToInt(Edit1.Text);
Vk:=StrToFloat(Edit4.Text);
dkc:=StrToInt(Edit3.Text);
dk:kc-dc;

co:=cos(dk*Pi/180);

V:=Round( Sqrt( Sqr(0.5144*Vc) + Sqr(Vk) - 1.03*Vc*Vk*co ) );
If abs(dk)<=90 then si:=sin(dk*Pi/180);
If (90<abs(dk))and(abs(dk)<=180) then si:cos((dk-90)*Pi/180));
If (180<abs(dk))and(abs(dk)<270) then si:-sin((dk-180)*Pi/180));
If (270<abs(dk))and(abs(dk)<360) then si:-cos((dk-270)*Pi/180));
d:c+dkc+Round( (arcsin( (0.1544*Vc/V) *si)*180/Pi) );

Edit6.Text:=FloatToStr(V);
Edit5.Text:=IntToStr(d);

end;

Admin: Не забываем про теги!

не правильно считает, ошибка в формуле((((
помогите плиииззз

[Страдалецъ]

Или у вас изначально ошибки, или при вставке без тегов потярялась часть кода. Выложите с тегами сразу.
Что это:

Код:

dk:kc-dc;
d:c+dkc+Round( (arcsin( (0.1544*Vc/V) *si)*180/Pi) );

[Вол]

может это быть связано с неправильным рассчетом или знаком перед arcsin??