Вычислить значение f(x)=x+lnx

[Ленa]

Здравствуйте!!! помогите пожалуйста сделать лабораторку, задали на Delphi 7 сделать такоую программку каторая умеет считать. Вычислить значение f(x)=x+lnx в заданной точке. Вывести на печать таблицу из 5 значений функции. Задали и толкам не объяснили! Желательно кто сможет дайте исходник плиз!

Вот сама программка скрин

[profi]

Извените, но телепаты в отпуске. На каком отрезке х должен быть?

[Ленa]

Я что не так объснила?

[Скарам]

хмм...думаю,что тут просто задается х1...х5 и всё...нет смысла считать эту функцию на отрезке...а вот метод может быть разным...либо Тейлору,с точностью эпсилон,либо библиотечными функциями,либо ещё как-то...)

[world12_tk]

ну вот пример исходного кода... Его вставляешь в процедуру Button.
var
xn:extended;
begin
Xn:=StrToFloat(Edit1.Text);
Memo1.Lines.Add(' Xn='+EditXn.Text);
for i:=1 to 5 do begin
x:=xn+ln(xn);
Memo1.Lines.Add('при x= '+FloatToStrF(xn,ffFixed,6,2)+' f(x)= '+FloatToStrF(x,ffFixed,6,2));
xn:=xn+1;
end;
end;
Здесь интервал значений ,будет уввеличиваться на единицу, но скорее всего ты до конца не скинула задание... Нету конкретного шага вычисления. Скорее всего эту функцию нужно было разложить в ряд, но.... заданее не коректно сформулировано...