[Axel2150]

ммм... как то поменьше тут можно переменных ввести мне кажется и цикл один убрать... хотя я сделал на С... а С - гибкий мать его язык >__<
На паскале не помню уже можно ли так сделать...

C:

#include <stdio.h>
#include <math.h>
#include <conio.h>

int main()
{
float x=1.,y=2.,FF,SF,TF;

do
{
if ((x/(y*y))<1)
{
FF = exp(1)*sin((x*x)) - sqrt(y);
SF = cos((exp((2/3)*log(y))*exp((1/3)*log(x))))/sin((exp((2/3)*log(y))*exp((1/3)*log(x))));
if (FF>=SF)
{
printf("x= %f y= %f U= %f \n", x,y,FF);
} else
{
printf("x= %f y= %f U= %f \n", x,y,SF);
}
} else
{
TF = cos(x*(y*y));
printf("x= %f y= %f U= %f \n", x,y,TF);
}
x += 1.3;
y += 1.5;


}while(x<2.3);


getch();
return 0;
}