[Лена]

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

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

Сма сделала

[Konrad]

Мама дорогая....

Если это чем-то поможет:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  x,fx:real;
begin
  x:=strtofloat(edit1.Text);
  if x>0 then fx:=x+ln(x);
  edit2.Text:=floattostr(fx);
end;

Хотя грусно это...
Раньше неочень знающие девушки искали парня в реале, который за красивые глаза, делал задачи. Сейчас же все в инете...

[Boris the Blade]

Лучше написать так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  x, fx :real;
  value : extended;
begin
  if not tryStrToFloat(edit1.Text, value) then
    ShowMessage('введено некорректное число')
  else
  begin
    x := strtofloat(edit1.Text);
    if x > 0 then
    begin
      fx := x + ln(x);
      edit2.Text:=floattostr(fx);
    end;
  end;
end;

По хорошему надо проверять является ли числом то что мы напечатали в edit1

[Страдалецъ]

Ну тут прямо асчусчается титанический труд. По количеству затраченых усилий на 8+ тянет.
+1. Запустить дельфи
+2. Создать новый проект
+3. Выбрать нужный компонент.
+4. Плюхнуть его на форму.
+5. Войти в Интернет.
+6. Найти нужный адрес с форумом
+7. Задать вопрос в нужном разделе.
+8. Вставить картинку своей формы.
Адназначна, зачет.