[Delphi] Расчёт формулы элементов разворота: R=(V*V)/(g*tgX) где g- постоянное значение равное 9,8

[виктори95]

Расчёт формулы элементов разворота

R=(V*V)/(g*tgX) где g- постоянное значение равное 9,8

[p51x]

Чем помочь то?

[виктори95]

Написать программу

[виктори95]

Я в голове понимаю как это сделать, а осуществить в программе не могу.

[p51x]

А вы помогите мне ужин приготовить... а то я в голове понимаю как это сделать, но времени после работы нет.

[виктори95]

Вам тогда на форум кулинаров надо наверно! Не хотите помогать или ещё что либо. Не нужно! К чему все это пишите сейчас?! проходите мимо и все! Надеюсь найдутся люди которые смогут мне помочь!

[p51x]

Потому что помочь и написать за вас это разные вещи. А так раздел фриланса для вас всегда открыт.

[Serge_Bliznykov]

Сообщение от виктори95

Я в голове понимаю как это сделать, а осуществить в программе не могу.

ну давайте начнём с того, что Вы расскажете, как это осуществить.
я, например, не понимаю, что это за формула и откуда в ней берутся значения переменных V и X

ну и, кроме того, Вам всё равно, на каком языке программирования будет написана программа? Или нужен какой-то определённый ЯВУ?

и последнее, правила форума не пробовали читать?
например, пункт правил 3.2

[виктори95]

Простите, к сожалению не прочитала. Программа в Делфи. Данные вводятся в ручную пользователем

[Serge_Bliznykov]

Сообщение от виктори95

Данные вводятся в ручную пользователем

консольное приложение или с формами?

если консольное, то

const g=9.8;
var X, V, R : double;
begin
  WriteLn('X:');
  ReadLn(X);
  WriteLn('V:');
  ReadLn(V);
  R:=sqr(V)/(g*tg(X));
  WriteLn(R:1:3); 
end.

а если с формами, то надо кинуть на форму пару TEdit, TLabel и TButton
на кнопку назначить код:

const g=9.8;
var X, V, R : double;
begin
  X := StrToFloat(EditX.Text);
  V := StrToFloat(EditV.Text);
  R:=sqr(V)/(g*tg(X));
  LabelR.Text := StrToFloat(R); 
end;

вот и всё.