Сложное уравнение

[Lodas]

Здравствуйте. я только начал изучать язык си- мы дошли только до циклов. нам дали задание решить уравнение(прикрепл. вложение). и я не совсем понял как оно решается... на си

[kaljan775]

в С есть функция max (x,y) и min(x,y), которые возвращают соответственно максимальное и минимальное значения из двух чисел, и есть функция sqrt(x), которое возвращает корень из х . Пользуйтесь наздоровье

[Lodas]

мне хотя бы приблизительно подсказать как это сделать, а дальше я сам

[Alter]

Вот, поглядите

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Edit4: TEdit;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  function Max(const A, B: Extended): Extended;
  function MaxValue(const Data: array of Extended): Extended;
  function Min(const A, B: Extended): Extended;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  A,B,C :Extended;
  T0,T1,T2 :Extended;
  Ans :Extended;
begin
 A := StrToFloat(Edit1.Text);
 B := StrToFloat(Edit2.Text);
 C := StrToFloat(Edit3.Text);
 T0 := min(a, b) + min(b, c);
 T1 := max(a, b) + max(b, c);
 T2 := T0 / T1;
 Ans := Sqrt(T2 * MaxValue([a,b,c]));
 Edit4.Text := FloatToStr(Ans);
end;

function Max(const A, B: Extended): Extended;
begin
  if A > B then
    Result := A
  else
    Result := B;
end;

function MaxValue(const Data: array of Extended): Extended;
var
  I: Integer;
begin
  Result := Data[Low(Data)];
  for I := Low(Data) + 1 to High(Data) do
    if Result < Data[I] then
      Result := Data[I];
end;

function Min(const A, B: Extended): Extended;
begin
  if A < B then
    Result := A
  else
    Result := B;
end;

end.

[Lodas]

я не совсем понял. Потому что мы проходим только си... можно это на си перевести?

[Alter]

Можно, но это не ко мне

[vlad_light]

#include <iostream>
#include <math>
using namespace std;
double Eq(double a, double b, double c)
{
return max(a,b,c)*sqrt((min(a,b)+min(b,c))/(max(a,b)-max(b,c)));
}
int main()
{
cin>>a>>b>>c;
cout<<Eq(a,b,c)<<endl;
return 0;
}

[Lodas]

Спасибо. я попробую..

[Lodas]

Спасибо. я попробую..