Перевести код математической функции с паскаля

@talne-programis · Регистрация: 01.12.2013

Здравствуйте, есть функция написана в паскале:

Pascal

function g (a,b :real) : real
begin 
result:=(sqr(a)+sqr(b))/(sqr(a)+2*a*b+3*sqr(b)+4;
end.

Нужно описать эту функцию в C++ builder.

@volvo · 04.06.2014, 18:42

У тебя в Паскалевском варианте не хватает одной скобки, если что...

C++

double g(double a, double b)
{
    return (a*a+b*b)/(a*a+2*a*b+3*b*b+4);
}

@talne-programis · 04.06.2014, 19:10 **[ТС]**

Спасибо, пробовал также, при компиляции выдает ошибку

C

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include <iostream.h>
#include "Unit1.h"
#include <iostream>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
#pragma argsused
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
float s,t,r;
double g(double a, double b)
{ - Вот тут ошибка типа что не стоит ";"
    return (a*a+b*b)/(a*a+2*a*b+3*b*b+4);
}
 
 
 
 
 {
 s=5;
 t=3;
 r= functiong(1,2,s)+functiong(t,s)-functiong(2*s-1,s*t);
Label1->Caption = r;
 }
}
//---------------------------------------------------------------------------

@volvo · 04.06.2014, 19:15

Функция должна быть перед методом, а не внутри него:

C++

double g(double a, double b)
{
    return (a*a+b*b)/(a*a+2*a*b+3*b*b+4);
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    float s,t,r;
    s=5;
    t=3;
    r= g(1,2,s)+ // Тут будет ошибка, g принимает ДВА параметра, а ты передаешь ТРИ
        g(t,s)-g(2*s-1,s*t); 
    Label1->Caption = r;
}

@talne-programis · 04.06.2014, 20:15 **[ТС]**

Большое спасибо, буду знать, по паскалю знаю, а вот в c++, только учусь не судите строго. Но сейчас там где вы пометили выдает ошибку даже когда ставлю два параметра. Чтобы вы полностью понимали суть задачки, то она здесь:
http://abramov.org.ua/blog/2012/10/zadacha-425/

Добавлено через 23 минуты
Ошибку нашел, спасибо.

Добавлено через 26 минут
Простите еще раз, в чем здесь проблема:

C

float max(float x, float y, float z)
{
       if (x >= y & x>=z)
        {  max=x  } ;
     return 0 ;
}

@Avazart · 04.06.2014, 22:07

C++

#include <cmath>
 
float max(float x, float y, float z)
{
     return std::max( x, std::max(y,z) );
}

@talne-programis · 04.06.2014, 22:22 **[ТС]**

Спасибо, но не могли бы вы подробней описать что за что там отвечает, у меня просто это только часть кода по этому нужно знать что дописать.
Я самоучка, а информации об функциях много найти не могу, вот весь код по поводу функций.

C

function max(x,y,z: real): real;
 begin
    if (x>=y) and (x>=z) then
      max:=x;
    if (y>=x) and (y>=z) then
      max:=y;
    if (z>=x) and (z>=y) then
      max:=z;
 end<;

Добавлено через 4 минуты
Я правильно понял мысль?

C

  float max(float x, float y, float z)
{
     return std::max( x, std::max(y,z) );
     return std::max( y, std::max(x,z) );
     return std::max( z, std::max(x,y) );
}

@Avazart · 05.06.2014, 00:32

Сообщение от talne-programis

Я самоучка

Вот бери книжку и учи С++.

@Avazart 8385 / 6147 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	05.06.2014, 00:32	8
	Сообщение от talne-programis Я самоучка Вот бери книжку и учи С++. 1

Опции темы

Перевести код математической функции с паскаля

Решение