Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.02.12;
Скачать: CL | DM;

Вниз

проблема с выводом в мемо   Найти похожие ветки 

 
Andruh   (2006-01-24 09:09) [0]

Подскажите, пожалуйста, как сделать вывод результата в мемо, который выводится в лейбел...
begin
     x:=strtoint(edit2.text); //diapozon "ot"
     kon:=strtoint(edit3.text); //diapozon "do"
        repeat
           if x<=3
           then
              begin
              fx:=x*x+3+x+9;
              label4.Caption:=label4.caption+#13+"&#207;&#240;&#232; &#245;="+floattostr(x)+" fx="+floattostr(fx)+" ";
              a[i]:=x; b[i]:=fx;
              end
           else
              begin
              fx:=x/x+2-x;
              label4.Caption:=label4.caption+#13+"&#207;&#240;&#232; &#245;="+floattostr(x)+" fx="+floattostr(fx)+" ";
              a[i]:=x; b[i]:=fx;
              end;
           x:=x+h;
           i:=i+1;
        until x>=kon;
     end;

Заранее благодарен


 
Ega23 ©   (2006-01-24 09:34) [1]


> label4.Caption:=label4.caption+#13+"&#207;&#240;&#232; &#245;="+floattostr(x)+"
> fx="+floattostr(fx)+" ";


Вместо этого
Memo1.Lines.Add("&#207;&#240;&#232; &#245;="+floattostr(x)+"
> fx="+floattostr(fx)+" ");

А чё так хило-то? Давай, делай разбор функции. Так, чтобы саму f(x) пользователь в строковом видк задать мог. Вот это у тебя уже заявка на победу будет.


 
ЮЮ ©   (2006-01-24 09:42) [2]

скобки расставь
x*x+3+x+9
x/x+2-x;

или замени на

x*x + x + 12
3 - x


 
Andruh   (2006-01-24 10:02) [3]

Большое спасибо!!! Доведу до ума, как тока экзамен сдам... :)
З.Ы. начанается через 2 минуты :)



Страницы: 1 вся ветка

Текущий архив: 2006.02.12;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.034 c
2-1138215718
MasacreAnt
2006-01-25 22:01
2006.02.12
Не могу скрыть кнопку проги с панели Пуск а (Task Bar)


5-1124352966
Stanislav
2005-08-18 12:16
2006.02.12
В Наследнике TScrollBox периписать процедуру скроллинга


3-1134629133
Kodla
2005-12-15 09:45
2006.02.12
Как передать имя таблицы в процедуру?


15-1138080984
Lancelot
2006-01-24 08:36
2006.02.12
Коды ERRORLEVEL для команд MS-DOS


2-1138094136
Kabazoo
2006-01-24 12:15
2006.02.12
Снова первый и последний день ...