Выполнение программы простой структуры Опции

[cruising]

Помогите пожалуйста разобраться, задание на рисунке, вот что у меня получилось

Var x,x1,y,y1,y2:real;T:Boolean;
Begin
Writeln('введите число для вычисления выражения1');
Read(x);
Writeln('Результат задания а');
If x>0 then writeln('')else
Begin
y:=exp(1/3*ln(x-x*x))+exp(5*ln(x));
Writeln ('при х=',x:6:3,' y=',y:6:3);
y1:=abs(y);
Writeln('Абсолютное значение y1=', y1:6:3);
y2:=sqr(y);
Writeln('Квадрат у=',y2:6:3);
End;
Writeln('Введите координаты точки');
Readln(x1,y1);
T:=(sqr(x1)+sqr(y1)<=1);
Writeln('Результат задания б:',t);
End.

Что мне нужно написать в строке if?

М

Тэги!! Правила Форума, п.5, и правила раздела задачи, п.2. Lapp

Сообщение отредактировано: Lapp - 12.04.2010 3:35

[TarasBer]

> Да я не волоку вообще в этом, я заочник, разбираться надо долго с этим, времени нет!

Плохо.

> Главное когда под корнем минус меняю на плюс, всё прекрасно работает, а с минусом ошибка и всё тут

Да потому что ты тупо добавил в код новую функцию, но ваще её не используешь, ты считаешь по-старому (y:=exp(1/3*ln(x-x*x))+exp(5*ln(x));). Программа по-прежнему пытается делать то, что тут написано, то есть взять логарифм от отрицательного числа (ты, надеюсь, в курсе, что у отрицательного числа нельзя взять вещественный логарифм?).

Как использовать функцию - вообще интуитивно очевидно должно быть, но раз ты не "волочешь" и не хочешь разбираться, то толку тебе помогать.