Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
Artsiom
1 / 1 / 0
Регистрация: 01.03.2012
Сообщений: 21
1

Перевод Excel формулы в Delphi

09.09.2012, 20:44. Просмотров 1120. Ответов 1
Метки нет (Все метки)

Всем привет. Не понимаю как написать экселевскую формулу в делфи.

В3=ATAN2(14*(A2-A1) / (1+МАКС(A1;A2)); 4) / 3,3

Стопориться на атане2. Библиотека Матh подключена.
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls, MatH;
Помогите пожалуйста.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.09.2012, 20:44
Ответы с готовыми решениями:

Перевод обычной формулы в формулу для DELPHI
Помогите перевести формулу в среду Delphi...

Работа с Excel (формулы) в Delphi
Добрый день! Нужна ваша помощь знатоки! ) Есть шаблон документа, я...

Delphi 7 перевод формулы
Нужно Перевести формулу на картинке и использовать ее в программе. Программа...

Delphi 7 и формулы
Как в делфи 7 можно писать формулы например в мемо (в офисе там скобки,...

формулы в Delphi
Есть задача - рассчитать формулу R1/((Q/Q1)^1/3) при этом, Q1 берется из...

1
Arcor
4977 / 1871 / 396
Регистрация: 20.11.2009
Сообщений: 6,134
Записей в блоге: 1
10.09.2012, 00:33 2
Лучший ответ Сообщение было отмечено Artsiom как решение

Решение

Цитата Сообщение от Artsiom Посмотреть сообщение
Всем привет. Не понимаю как написать экселевскую формулу в делфи.

В3=ATAN2(14*(A2-A1) / (1+МАКС(A1;A2)); 4) / 3,3

Стопориться на атане2. Библиотека Матh подключена.
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls, MatH;
Помогите пожалуйста.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
function Max(A1, A2: Extended): Extended;
begin
  if A1 > A2 then
    Result := A1
  else if A2 > A1 then
    Result := A2
  else // я не знаю как в экселе функция макс сделана, как она считает если 2 числа равны, я сдлал так вот ...
    Result := A2;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var B3, A1, A2: Extended;
begin
 
  A1 := 3;
  A2 := 4;
 
  B3 := ArcTan2(14*(A2 - A1) / (1 + Max(A1, A2)), 4) / 3.3;
  ShowMessage('Значение формулы = '+FloatToStr(B3));
end;
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.09.2012, 00:33

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

Как в Delphi сделать Excel таблицу, не употребляя компонент TStringGrid и связать ее с Delphi
Как в Delphi сделать Excel таблицу, не употребляя компонент TStringGrid и...

Формулы с вещественным и натуральным числом (Delphi)
Не совсем понимаю, что здесь требуется и как записать формулы. Помогите с...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru