Форум: "Начинающим";
Текущий архив: 2006.02.12;
Скачать: [xml.tar.bz2];
Внизпроблема с выводом в мемо Найти похожие ветки
← →
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+"Ïðè õ="+floattostr(x)+" fx="+floattostr(fx)+" ";
a[i]:=x; b[i]:=fx;
end
else
begin
fx:=x/x+2-x;
label4.Caption:=label4.caption+#13+"Ïðè õ="+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+"Ïðè õ="+floattostr(x)+"
> fx="+floattostr(fx)+" ";
Вместо этого
Memo1.Lines.Add("Ïðè õ="+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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.041 c