Ошибка: нельзя преобразовать тип real к boolean

@Dasta · Регистрация: 05.10.2016

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

В чем ошибка ? Можете исправить ?
Program1.pas(6) : Нельзя преобразовать тип real к boolean

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> y=\frac{x^3}{(x+1)(x+2)}+\frac{\arcsin (1-x)}{\sqrt[3\,]{1-\ln x}}<br />$

Pascal

program das ;
var x, y:real;
begin
writeln('x sanin engiz');
readln(x);
if (exp(3)*ln(x)/(x+1)+(x+2))and (x>0)and (x=0) and arcsin(1-x)/(exp(1/3)and (x=0) and (ln(1-ln(x)))) and (x<>0)
then writeln ('argument tabu');
writeln (y);
y:=(exp(3)*ln(x)/(x+1)+(x+2))+ arcsin(1-x)/(exp(1/3)*(ln(1-ln(x))));
writeln ('y=',y);
readln (x);
end.

@JokeR.BY · 06.10.2016, 15:48

у вас в этой 6 строке дикое скопление скобок и условий.

Pascal

if
    (exp(3)*ln(x)/(x+1)+(x+2))
and
    (x>0)
and
    (x=0)
and
    arcsin(1-x)/(exp(1/3)and (x=0) and (ln(1-ln(x))))
and
    (x<>0)

Добавлено через 1 минуту
не может быть x одновременно больше нуля, равен нулю и не равен нулю.

@Dasta · 06.10.2016, 15:52 **[ТС]**

Можешь по конкретнее написать

@JokeR.BY · 06.10.2016, 16:18

Pascal

const
    EPS = 0.0001;
var
    x: Real;
begin
    Write('x='); ReadLn(x);
    if (x < EPS) Or (Abs(x - 1) < EPS) Or (Abs(x - 2) < EPS) Or (x > 2)
    then
        Write('ERROR!')
    else
        Write('y(', x:0:2, ')=', (Sqr(x) * x / (x + 1) / (x + 2) + ArcTan((1 - x) / Sqrt(1 - Sqr(1 - x))) / Exp(Ln(1 - Ln(x)) / 3)):0:2);
end.

@Dasta · 06.10.2016, 16:19 **[ТС]**

Без функций

@Puporev · 06.10.2016, 16:22

А где ты увидел функции кроме стандартных?

@Dasta · 06.10.2016, 17:16 **[ТС]**

и без EPS мы не проходили еще

@Puporev · 06.10.2016, 18:04

Иди в первый класс,там вообще ничего не проходили. Ты не путай знания по программированию и математике, в школу нужно было чаще ходить. Сравнение вещественных чисел возможно только с заданной точностью, что здесь и обозначено как EPS.
И вообще чего ты ноешь? Ты что заплатил и тебе обязаны делать как тебе нужно? Да радуйся что за тебя хоть что-то делают, тупица и лодырь.

@Dasta 0 / 0 / 1 Регистрация: 05.10.2016 Сообщений: 25
	06.10.2016, 15:52 [ТС]	3
	Можешь по конкретнее написать 0

@Dasta 0 / 0 / 1 Регистрация: 05.10.2016 Сообщений: 25
	06.10.2016, 16:19 [ТС]	5
	Без функций 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	06.10.2016, 16:22	6
	А где ты увидел функции кроме стандартных? 0

@Dasta 0 / 0 / 1 Регистрация: 05.10.2016 Сообщений: 25
	06.10.2016, 17:16 [ТС]	7
	и без EPS мы не проходили еще 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	06.10.2016, 18:04	8
	Иди в первый класс,там вообще ничего не проходили. Ты не путай знания по программированию и математике, в школу нужно было чаще ходить. Сравнение вещественных чисел возможно только с заданной точностью, что здесь и обозначено как EPS. И вообще чего ты ноешь? Ты что заплатил и тебе обязаны делать как тебе нужно? Да радуйся что за тебя хоть что-то делают, тупица и лодырь. 0