[Лена]

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

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

Сма сделала

[Konrad]

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

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

Код:

1 2 3 4 5 6 7 8

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]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

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. Вставить картинку своей формы.
Адназначна, зачет.