VPF::StringGrid - Форум программистов

Tuykores

Дата 31.5.2006, 11:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 31.5.2006

Репутация: нет
Всего: нет

Прошу помощи...
помогите написать код для сложения элементов таблицы stringGrid по строкам.как числа...
дано:таблица 3х5, сложить все элементы по строкам и вывести на экран и в файл...
Пожалуйста!
Горю!!!!

maxim1000

Дата 31.5.2006, 11:16 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 3334
Регистрация: 11.1.2003
Где: Киев

Репутация: 4
Всего: 110

Delphi или C++Builder?

--------------------

qqq

ksili

Дата 31.5.2006, 11:37 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2069
Регистрация: 3.11.2005
Где: Красноярск

Репутация: нет
Всего: 17

Код


float sum[3];

for(i=0;i<3;i++)
    {
     for(j=0;j<5;j++)
         {
          sum[i]+=StrToFloat(StrringGrid[j][i]);
         }
    }

//вывод на экран в консоль (кажется так)
cout<<sum[0];
cout<<sum[1];
cout<<sum[2];

//если графическое приложение вывод например в Label
Label1->Caption = FloatToStr(sum[0]);         
Label2->Caption = FloatToStr(sum[1]);          //или используй FormatFloat
Label3->Caption = FloatToStr(sum[2]);

//вывод в файл лень писать

1) Массив sum сначала обнули
2) внутренний цикл можно развернуть - так будет быстрее работать
3) float можешь заменить на другой численный тип

--------------------

Ничто так не развивает аналитическое мышление, как отладка сложной программы без возможности пошагового выполнения (с)

Tuykores

Дата 1.6.2006, 14:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 31.5.2006

Репутация: нет
Всего: нет

Спасибо,конечно,но мне в delphi надо...
можно?

Добавлено @ 14:09
как в файл вывести разобрался....

Sunr1se

Дата 2.6.2006, 12:28 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 193
Регистрация: 1.5.2006

Репутация: 6
Всего: 13

Код


procedure TForm1.Button1Click(Sender: TObject);
var sum: array[0..2] of real;
    i, j: integer;
    a: real;
begin
for i := 0 to 2 do
  sum[i] := 0;
for i := 0 to 3 do
  for j := 0 to 5 do
    begin
    a := StrToFloat(StringGrid1.Cells[j, i]);
    sum[i] := sum[i] + a;
    end;
Edit1.Text := FloatToStr(sum[0]);
Edit2.Text := FloatToStr(sum[1]);
Edit3.Text := FloatToStr(sum[2]);
end;

--------------------

IRC-канал Винграда

Tuykores

Дата 7.6.2006, 11:21 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 31.5.2006

Репутация: нет
Всего: нет

Ограмное спасибо!!!в добавок я еще и сам догодался...неделю мозги парил...спасибо...простите за беспокойство smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »