Главная страница
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.096 c
15-1137572800
msguns
2006-01-18 11:26
2006.02.12
Не хочу быть плохим пророком


15-1137576334
begin...end
2006-01-18 12:25
2006.02.12
Как отключить XP-стиль у окошка входа в Windows XP?


15-1137946202
Cerberus
2006-01-22 19:10
2006.02.12
Чья фраза?


3-1134716335
Tigra
2005-12-16 09:58
2006.02.12
Как программно изменить NET DIR?


15-1138086687
konda
2006-01-24 10:11
2006.02.12
Языковая панель в Windows XP