Программа с использование процедур

[Siegwell]

Нужен код программы на языке Паскаль.

Условие:

Y=ln(x1*x2*x3/x2*x3) где x=-a/b корни уравнения вида ax+b=0:

x1+17=0; -x2+2=0; 3x3+8=0

З. Ы. : Про неправильность построения задачи мне говорили, но все таки помогите ее решить, очень нужно

[Bugrimov]

Какой язык программирования?

[Siegwell]

Язык - Паскаль

[ViktorR]

Вы сами поняли то что тут написали?
1. Если да, то подскажите, пожалуйста, как вычислить выражение под логарифмом?
x1*x2*x3/x2*x3 => x1*x2*x3/(x2*x3) ??
Если так, то от выражения остается только x1.
Если нет, то расставьте скобки правильно.
2.

где x=-a/b корни уравнения вида ax+b=0:

Корни уравнения вида ax+b=0 - это x=-b/a.
3. Как понимаю, выражение для уравнений: x1+17=0; -x2+2=0; 3x3+8=0
Читается так: x1+17=0; -x2+2=0; 3*x3+8=0.
Т.е. x1=-17. Аргумент функции отрицательный, функция не определена.

Для решения задачи необходимо вычислить значение под логарифмом отдельно и проверить условие, что вычисленное значение строго больше нуля.
Если условие выполняется, то ищется значение логарифма.


Как-то так, ...

[Mad_Cat]

var x1,x2,x3,y:real;
begin
x1:=-17;x2:=2;x3:=-8/3;
y:=x1*x2*x3/x2*x3;
if y>0 then
writeln(LN(y):6:3)
else Writeln('Function not exist,epta');
end.

[Siegwell]

Ну вот, вроде как примерно как должно быть наклепал, но всеравно не правильно:

    var a1,a2,i,y:real;
    a,b:integer;
const
      x=b/a;
      x1=-17;
      x2=2;
      x3=-8/3;
procedure rat(a:integer);
begin
i:=-a/b;
end;
begin
writeln('Введите a');
readln(a);
rat(a);
a1:=i;
writeln('Введите b');
readln(a);
rat(a);
a2:=i;
writeln('a=',a2);
y:=ln((x1*x2*x3)/(x2*x3));
writeln('y=',y:0:3);
end.

Что нужно исправить?

[Siegwell]

В выводе в любом случае пишет:
a=-бесконечность
y=NaN

[Mad_Cat]

В выводе в любом случае пишет:
a=-бесконечность

b, чему равно? праально ничему то есть 0; любое число деленное на 0, что дает, праально БесКоНечность

y=NaN

Натуральный логарифм от отрицательного числа.......... праально не определен о чем вас компилятор и уведомляет