Найти значение функции

@некит434 · Регистрация: 23.01.2014

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

Pascal

var
x,y:real;
 
begin
 
read(x);
x:=abs(x);
 
if x<3 then
y:=x+((SQR(x)-25)/3);
 
if (x>=3) and (x<=10) then
y:=(625-x)/(10*SQR(x));
 
if x>10 then
y:=(10-SQR(x))/(10*x);
 
write(y:3:3);
 
end.

$https://www.cyberforum.ru/cgi-bin/latex.cgi?Y=\begin{cases}x+\frac{x^2-25}{3} &\ ,\ \ x<3\\\\ \frac{625-x}{10x^2} &\ ,\ \ 3\leq x\leq 10\\\\ \frac{10-x^2}{10x} &\ ,\ \ x>10 \end{cases}$

@Puporev · 29.07.2014, 14:43

Pascal

1
2
3

if x<3 then  y:=x+((SQR(x)-25)/3)
else if (x>=3) and (x<=10) then y:=(625-x)/(10*SQR(x))
else y:=(10-SQR(x))/(10*x);

@Iriini · 29.07.2014, 14:47

Думаю, что эта строчка лишняя

x:=abs(x);

Для отрицательных значений в т.ч. должна работать 1 формула по заданию.

@Puporev · 29.07.2014, 14:52

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

Думаю, что эта строчка лишняя

Даже не то что лишняя, а вредная, ибо х не везде в квадрате

@Iriini · 29.07.2014, 14:55

Puporev, ну, возможно, там что-то было в начале задания, о чем нам пока неведомо.

@Iriini 266 / 192 / 50 Регистрация: 16.06.2014 Сообщений: 424
	29.07.2014, 14:47	3
	Думаю, что эта строчка лишняя x:=abs(x); Для отрицательных значений в т.ч. должна работать 1 формула по заданию. 0

@Puporev Почетный модератор 64303 / 47600 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	29.07.2014, 14:52	4
	Сообщение от Iriini Думаю, что эта строчка лишняя Даже не то что лишняя, а вредная, ибо х не везде в квадрате 0

@Iriini 266 / 192 / 50 Регистрация: 16.06.2014 Сообщений: 424
	29.07.2014, 14:55	5
	Puporev, ну, возможно, там что-то было в начале задания, о чем нам пока неведомо. 0