Вычислить значение f(x)=x+lnx в заданной точке.

[Наталья111]

в паскале:
Вычислить значение f(x)=x+ln(x). Вывести на печать таблицу из 5 значений функции.
Я написала код программы для первой части, вот он:

function Inln(x:real):real;

begin
Inln:=ln(x);
end;

var
a,x,y:real;
begin
writeln('Vvedite x');
readln(x);
a:=ln(x);
y:=x+a;
writeln('LN',a:6:3);
writeln('f(x)', y:6:3);

readln;
end.

Подскажите пожалуйста как вывести на печать таблицу из 5 значений функции? Что здесь имеется введу? Из одного введенного числа или надо вводить пять значений х и оформить их в виде таблицы?

[Sazary]

Наталья111 Думаю, имеется в виду, что надо вводить 5 значений.
А потом как-то так:

writeln(' x      f(x) ');
for i:=1 to 5 do
 writeln(x,'    ',y);

[Наталья111]

а можете пожалуйста подправить мой код, а то что то я не соображу. ПОЖАЛУЙСТА!

[Sazary]

Как-то так:

var
a:real;
x,y : array[1..5] of real;
i : integer;

begin
for i:=1 to 5 do
 begin
 writeln('Vvedite x',i);
 readln(x[i]);
 a:=ln(x[i]);
 y[i]:=x[i]+a;
 end;

writeln('    x     f(x)   ln(x)');
for i:=1 to 5 do
 writeln(x[i]:7:3,y[i]:7:3,(ln(x[i])):7:3);

readln;
end.

[Наталья111]

Sazary Спасибо тебе ОГРОМНОЕ!!!!!!

[capta1n]

var
a:real;
x,y : array[1..5] of real;
i : integer;

begin
writeln('    x     f(x)   ln(x)');
for i:=1 to 5 do
 begin
 writeln('Vvedite x',i);
 readln(x[i]);
 a:=ln(x[i]);
 y[i]:=x[i]+a;
 writeln(x[i]:7:3,y[i]:7:3,a:7:3);
 end;

readln;
end.

Если идти в сторону быстродействия Сократим количество циклов И уберем повторное вычисление натурала

[Наталья111]

СПАСИБО ОГРОМНОЕ!