Форум: "Начинающим";
Текущий архив: 2014.03.23;
Скачать: [xml.tar.bz2];
ВнизКак вывести сумму строк из мемо? Найти похожие ветки
← →
oliksin (2013-06-08 15:16) [0]У меня несколько значений в мемо, например:
234
54654
765
8767
и т.д.
Мне нужно, чтобы вывело через showmessage сумму этих чисел. Как это сделать? Когда я делаю сумму,у меня почему-то выводит только последнее значение из всего мемо. Почему?
← →
Германн © (2013-06-08 15:23) [1]
> Когда я делаю сумму,у меня почему-то выводит только последнее
> значение из всего мемо. Почему?
Показывай как делал.
← →
oliksin (2013-06-08 15:31) [2]begin
for n:=1 to strtoint(edit1.Text) do // прогон по строкам
begin
k:=0;
J:=(((stepen((-1),(n+1)))*(stepen(x,2*n)))/(2*n*(2*n-1)))-((x*arctan(x))-ln(sqrt(1+stepen(x,2))));
x:=x+0.07;
Form1.Memo3.Lines.Add(floattostr(J));
end;
k:=k+J;
end;
Showmessage(floattostr(k));
end;
вот как то так.
← →
Германн © (2013-06-08 15:41) [3]
> вот как то так.
Отформатируй код как положено. Тогда может поймешь, что строкаk:=k+J;
находится не там где ей полагается быть.
← →
килкенни (2013-06-10 13:03) [4]summa = 0;
error:= false;
for i := 0 to memo1.lines.count -1 do begin
a := strtointdef(memo1.lines[i], 0);
if a = 0 then
error := true
else
inc(summa , a)
end;
арктангенсы не знаю куда впихнуть.
← →
Anatoly Podgoretsky © (2013-06-10 20:18) [5]> килкенни (10.06.2013 13:03:04) [4]
Между строк
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2014.03.23;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.003 c