Вычислить значение

[Наталья111]

Написать программу в Delphi:
Вычислить значение f(x)=x+lnx в заданной точке. Вывести на печать таблицу из 5 значений функции.
Помогите ПОЖАЛУЙСТА!

[Dj_smart]

function f(x:integer):integer;
begin
  result:=x+ln(x);
end;

Теперь используй эту функцию чтобы получит значение

[Наталья111]

а на форме будут компоненты Label и Button? И для компонента Button написать эту функцию. Так?

[Наталья111]

а "result" это переименованный компонент TLabel?

[Dj_smart]

Дак чего тут сложного?

function f(x:integer):integer;
begin
  result:=x+ln(x);
end;

// процедура клика по кнопке
var n:integer;
begin
  for n:=1 to 5 do begin // вот ваши 5 значений
    label1.caption:=label1.caption+inttostr(f(n))+#13#10;
  end;
end;

а "result" это переименованный компонент TLabel?

Читаем справку что такое result функции

[Наталья111]

label1.caption:=label1.caption+intt ostr(f(n))+#13#10;
в этой строке он мне ошибку показывает :-(

[Dj_smart]

#13# 10

Ессесна - нужно #13#10 [без пробела]

[Наталья111]

у меня без пробелов. он показывает ошибку в месте перед +#13# 10;
Вот ошибка: Нет перегруженной версии 'IntToStr, которая может быть названа этими аргументами.

[KORN]

напиши просто label1.caption:=label1.caption+intt ostr(f(n))+#13;

[s.Creator]

Не понял насчет вывода на печать
А так лови может поможет
Test.zip