[Вол]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

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: Не забываем про теги!

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

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

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

Код:

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

[Вол]

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