Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 25.05.2017, 16:18
APPEH APPEH вне форума
Прохожий
 
Регистрация: 27.02.2017
Сообщения: 4
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Посчитать StringGrid

Доброго времени суток. Делаю курсовую работу по делфи... Почти все сделал, остался один момент... Необходимо перемножить элементы каждого столбца и вывести в новый массив... Вроде как сделал, но только для массива 5х5.. При изменении размеренности не работает. Это надо как-то двумерным массивом..Не могу сообразить, как реализовть в среде.. Заранее спасибо
Ответить с цитированием
  #2  
Старый 25.05.2017, 16:20
APPEH APPEH вне форума
Прохожий
 
Регистрация: 27.02.2017
Сообщения: 4
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Вот код для одномерного массива.. Это надо как-то запихнуть в двумерный, чтоб считало массив любой размеренности... Буду ужасно балгодарен

Цитата:
Сообщение от APPEH
Доброго времени суток. Делаю курсовую работу по делфи... Почти все сделал, остался один момент... Необходимо перемножить элементы каждого столбца и вывести в новый массив... Вроде как сделал, но только для массива 5х5.. При изменении размеренности не работает. Это надо как-то двумерным массивом..Не могу сообразить, как реализовть в среде.. Заранее спасибо

Код:
// for col:=0 to Form2.Stringgrid1.colCount - 5 do
 //  Form2.StringGrid2.Cells[0,row]:=
  // IntToStr(StrToInt(Form2.StringGrid1.Cells[col,0])*
  // StrToInt(Form2.StringGrid1.Cells[col,1])*StrToInt(Form2.StringGrid1.Cells[col,2])
  // *StrToInt(Form2.StringGrid1.Cells[col,3])*
  // StrToInt(Form2.StringGrid1.Cells[col,4]));


//  for col:=1 to Form2.Stringgrid1.colCount - 4 do
  // Form2.StringGrid2.Cells[1,row]:=
//   IntToStr(StrToInt(Form2.StringGrid1.Cells[col,0])*
 //  StrToInt(Form2.StringGrid1.Cells[col,1])*StrToInt(Form2.StringGrid1.Cells[col,2])
 //  *StrToInt(Form2.StringGrid1.Cells[col,3])*
 //  StrToInt(Form2.StringGrid1.Cells[col,4]));

   //for col:=2 to Form2.Stringgrid1.colCount - 3 do
 //  Form2.StringGrid2.Cells[2,row]:=
 //  IntToStr(StrToInt(Form2.StringGrid1.Cells[col,0])*
  // StrToInt(Form2.StringGrid1.Cells[col,1])*StrToInt(Form2.StringGrid1.Cells[col,2])
  // *StrToInt(Form2.StringGrid1.Cells[col,3])*
  // StrToInt(Form2.StringGrid1.Cells[col,4]));

 //  for col:=3 to Form2.Stringgrid1.colCount - 2 do
  //Form2.StringGrid2.Cells[3,row]:=
  // IntToStr(StrToInt(Form2.StringGrid1.Cells[col,0])*
  // StrToInt(Form2.StringGrid1.Cells[col,1])*StrToInt(Form2.StringGrid1.Cells[col,2])
  // *StrToInt(Form2.StringGrid1.Cells[col,3])*
   //StrToInt(Form2.StringGrid1.Cells[col,4]));


  //   for col:=4 to Form2.Stringgrid1.colCount - 1 do
 //  Form2.StringGrid2.Cells[4,row]:=
 //  IntToStr(StrToInt(Form2.StringGrid1.Cells[col,0])*
  // StrToInt(Form2.StringGrid1.Cells[col,1])*StrToInt(Form2.StringGrid1.Cells[col,2])
  // *StrToInt(Form2.StringGrid1.Cells[col,3])*
  // StrToInt(Form2.StringGrid1.Cells[col,4]));
Админ: Пользуемся тегами при оформлении кода!

Последний раз редактировалось Admin, 25.05.2017 в 19:23.
Ответить с цитированием
  #3  
Старый 25.05.2017, 21:56
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Цитата:
Сообщение от APPEH
...Необходимо перемножить элементы каждого столбца и вывести в новый массив...
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
 i, j, sm: integer;
begin
 StringGrid2.ColCount:= StringGrid1.ColCount;
 StringGrid2.RowCount:= 1;

 for i := 0 to StringGrid1.ColCount-1 do
  begin
   sm:= 1;
   for j := 0 to StringGrid1.RowCount-1 do
    sm:= sm * StrToInt(StringGrid1.Cells[i,j]);
   StringGrid2.Cells[i,0]:= IntToStr(sm);
  end;
end;
Ответить с цитированием
Ответ


Delphi Sources

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

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 14:19.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter