Перевести программу из С++ в Maple

@arrowtsvet · Регистрация: 15.11.2015

Author24 — интернет-сервис помощи студентам

C++

int _tmain(int argc, _TCHAR* argv[])
{
    int i;
    float x, x1, x2, y, u, mas[4];
    //scanf_s("%f", &x);
    mas[1] = -5;
    mas[2] = -2;
    mas[3] = 2;
    mas[4] = 5;
 
    i = 1;
    while (i <= 4)
    {
        x = mas[i];
        x1 = x + x*x*x - 3;
        x2 = 2 * x*x - 4 * x + 2 + 6 * x*x*x - 4 * x*x*x*x*x; //x2 = 2 * pow(x,2) - 4 * x + 2 + 6 * pow(x,3) - 4 * pow(x,5);
        if (x2 != 0) y = x1 / x2;
        u = (x + x*x*x - 3) / (2 * x*x - 4 * x + 2 + 6 * x*x*x - 4 * x*x*x*x*x);
        printf_s("Y=%f\n", y);
        printf_s("U=%f\n\n", u);
        i++;
    }
    _getch();
    return 0;
}

@VSI · 15.11.2015, 11:02

arrowtsvet, как-то так...

Haskell

> restart;
mas:=Vector(4,[]):
mas[1]:=-5: mas[2]:=-2: mas[3]:=2: mas[4]:=5:
for i from 1 to 4 do
x:=mas[i]:
x1:=x+x^3-3:
x2:=2*x^2-4*x+2+6*x^3-4*x^5:
if x2<>0 then y:=x1/x2:  
u:=(x + x^3 - 3) / (2 * x^2 - 4 * x + 2 + 6 * x^3 - 4 * x^5):
printf("Y=%f\n",y):
printf("U=%f\n\n",u):
end if:
end do:

	15.11.2015, 11:02