Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.10.2013, 16:58   #1
Sloowpooke
Новичок
Джуниор
 
Регистрация: 10.10.2013
Сообщений: 2
По умолчанию stringgrid, need halp

Доброго времени суток!
Нужно помощь с этим самым stringgrid. Он есть, в нем есть одна фиксированная строка, значения вводятся вручную. Нужно значения 1 столбца (не сумму их) разделить на значения 2 столбца и найти сумму этих действий. Очень надеюсь на вашу помощь и понимание того, что у меня не очень хорошо получается программировать.
Забыл уточнить, что язык-delphi.

Последний раз редактировалось Sloowpooke; 10.10.2013 в 17:04.
Sloowpooke вне форума Ответить с цитированием
Старый 10.10.2013, 18:48   #2
GetMax
Форумчанин
 
Регистрация: 21.10.2010
Сообщений: 588
По умолчанию

Вот так можно разделить значение первого столбца на значение второго
Код:
mid := StrToInt(StringGrid1.Cells[0, 0]) / StrToInt(StrngGrid1.Cells[1, 0])
А о какой сумме действий идет речь?
Пользователь не знает, чего он хочет, пока не увидит то, что он получил.
Для благодарностей WMR R145235935681
GetMax вне форума Ответить с цитированием
Старый 10.10.2013, 19:09   #3
Sloowpooke
Новичок
Джуниор
 
Регистрация: 10.10.2013
Сообщений: 2
По умолчанию

Цитата:
Сообщение от GetMax Посмотреть сообщение
Вот так можно разделить значение первого столбца на значение второго
Код:
mid := StrToInt(StringGrid1.Cells[0, 0]) / StrToInt(StrngGrid1.Cells[1, 0])
А о какой сумме действий идет речь?
Сумму частных этих делений. Да, я не очень объясняю. Есть, допустим, табличка:
2 4
4 2
Нужно суммировать частное 1 строки и второй строки ((2/4+4/2)).
Я знаю, что это выглядит очень глупо, но я иначе объяснять не умею. Спасибо за терпение :/

Код:
a:=0;
for i:=1 to stringgrid1.rowcount-1  do

a:=a+(strtofloat(StringGrid1.Cells[0, i]) / strtofloat(StringGrid1.Cells[1, i]));
edit1.text:=floattostr(a);
Получилось, если не ошибаюсь. Спасибо за помощь.

Последний раз редактировалось Sloowpooke; 10.10.2013 в 19:22.
Sloowpooke вне форума Ответить с цитированием
Старый 10.10.2013, 19:21   #4
GetMax
Форумчанин
 
Регистрация: 21.10.2010
Сообщений: 588
По умолчанию

Код:
mid := 0;
With StrinGrid1 do
Begin
  for i := 0 to RowCount - 1 do
  Begin
      mid := mid + (StrToInt(StringGrid1.Cells[0, i]) / StrToInt(StrngGrid1.Cells[1, i])) 
  End;
End
Что то типа такого.
Пользователь не знает, чего он хочет, пока не увидит то, что он получил.
Для благодарностей WMR R145235935681
GetMax вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Halp me pleas Сергей Rand9m Безопасность, Шифрование 1 05.06.2012 15:16
Halp!!!! Smiley Операционные системы общие вопросы 1 26.05.2009 00:58