Вычислить значение функции Y в заданной точке X

@Mulder Fox · Регистрация: 10.10.2012

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

Y = (корень из(3x + 1) / (x^2 + 2)*(x - 1)
При этом следует проверить условия существования значения функции в этой точке.
Что мне нужно поправить в решении?

Pascal

Var x:real;
Begin
    write('Введите x: ');readln(x);
    if (x>-1/3)and(x-1<>0) then writeln('Y = ',sqrt(3x+1)/((sqr(x)+2)*(x-1)):0:2)
     else writeln('Y не определено!');
    readln;
End.

@SladkayaVata · 26.10.2012, 12:41

Сообщение от Mulder Fox

Pascal

Var x:real;
Begin
    write('Введите x: ');readln(x);
    if (x>-1/3)and(x-1<>0) then writeln('Y = ',sqrt(3*x+1)/((sqr(x)+2)*(x-1)):0:2)
     else writeln('Y не определено!');
    readln;
End.

3X записывается как 3*x когда находишь Y

	26.10.2012, 12:41