Решение задач в Delphi 7

[Кириллkms]

Вычислить значение выражения по формуле (все переменные принимают действительные значения)

[Streletz]

((х+1)/(х-1))х+18ху2

Простите, я не хочу никого обидеть, но не закодировать в Delphi столь элементарную формулу можно только при полном не желании что-либо делать.

[eval]

автор кмс, ему можно

[Bruto]

Таки даже мне видно что ошибки есть(ставить знаки между переменными надо)
Умножение же
и исходную формулу (до правок )
хорошо бы глянуть

[Stilet]

Оставлю тут для примера:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;

type

  { TForm1 }

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
const x=0; y=0;
begin
  Caption:=format('%5.2f',[((x+1)/(x-1))*x+18*x*x*y ]);
end;

end.

[Bruto]

Вот это я понимаю, формула, а то ....
только y^2

[Кириллkms]

вот только я совсем не шарю что и как делать ) и что делать с этим ->
Код:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;

type

{ TForm1 }

TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
const x=0; y=0;
begin
Caption:=format('%5.2f',[((x+1)/(x-1))*x+18*x*x*y ]);
end;

end.

[Аватар]

Умножить на x и в степени x не одно и то же. И для x=1 получится не очень красиво

[Stilet]

только я совсем не шарю что и как делать ) и что делать с этим

Тогда что ты от нас хочешь?

Аватар

Я когда пост писал в топе формула имела другой вид )

[Bruto]

Сообщение от Stilet

Тогда что ты от нас хочешь?

Я когда пост писал в топе формула имела другой вид )

[QUOTE=Аватар;1355895]
Господа!
Давйте таки определимся, какой вид имеет формула, а то как-то уж совсем интересно.
Если степень надо, ну например 3^3, то есть же чудная функция power, а можно exp использовать, в общем, конкретные входные данные:=помощь в решении, а если их нет, ну тогда все меня поняли
Power http://http://delphi.scps.ru/math/math5119.htm

exp(3*ln(3))

, если не ошибаюсь.