Работа со 2-хмерными массивами в StringGrid

@killjoy-13 · Регистрация: 06.12.2009

Студворк — интернет-сервис помощи студентам

Помогите пожалста начинающему. только начали в институте изучать борланд, объясняют крайне недоступно( итак задание:
1)Дана матрица размера N x M. В каждой строке найти количество элементов, больших среднего арифметического всех элементов этой строкию.
2)Дана квадратная матрица порядка M. Заменить нулями элементы матрицы, лежащие ниже главной диагонали.
3)Дана матрица размера M x N. Удалить последний столбец, содержащий только положительные элементы.

помогите хотя бы по одному из заданий пожалста.

@killjoy-13 · 13.12.2009, 12:21 **[ТС]**

Ну хоть кто нибудь откликнитесь!

@Grey · 13.12.2009, 22:34

Со StringGrid я пока не разобрался.
Ко 2 задаче.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int x,y,a=1;                      //при а=0 стирает диагональ
int A[5][5]={{4,4,4,4,4},
             {4,4,4,4,4},
             {4,4,4,4,4},
             {4,4,4,4,4},
             {4,4,4,4,4}};
 for (x=0;x<=4;x++)
 {
 for (y=a;y<=4;y++)
 {
 A[x][y]=0;
 }
 a=a+1;
 }
Form1->Edit1->Text=IntToStr(A[0][0]);//просмотр ячеек от A[0][0] до A[4][4]
}

Найди книгу А.Я.Архангельский Програмирование в C++ Builder 6

@killjoy-13 · 08.01.2010, 14:49 **[ТС]**

Первая задача. я вроде как решил ее, сумма и среднее арифметическое определены и находятся верно, но вот с выводом количества элементов проблема. вот код

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
{
double a[50][50];
double a1[50][50];
int N,M,i,j,z,t;
double Src, sum;
        N=StrToInt(Edit1->Text);
        M=StrToInt(Edit2->Text);
        Memo1->Clear();
    for (i=0; i<N; i++)
    {
        for (j=0; j<M; j++)
        {
                        a[i][j]=StrToFloat(StringGrid1->Cells[i][j]);
        }
    }
    //Найдем среднее арифметическое
        t=0;
        for (i=0, sum=0; i<N; i++)
        {
                for (j=0, sum=0; j<M; j++)
                {
                sum=sum+a[j][i];
                               }
                //Memo1->Lines->Add(FloatToStr(sum));
               Src=sum/N;
                a1[i][0]=Src;  Memo1->Lines->Add(FloatToStr(a1[i][0]));
 
        }
        //Находим количество элементов, больших, чем среднее арифметическое
        z=0;
        for (i=0, z=0;i<N;i++)
        {
                for (j=0, z=0;j<M;j++)
                {
                        if (a[i][j]>a1[i][0])
                        {
                        z++;
                        }
                }
                Memo1->Lines->Add(FloatToStr(z));
 
        }

напичшите в чем ошибка и как исправить.

@Grey · 09.01.2010, 20:19

У тебя искало по столбцам.
Раз ищем по строкам,удобней если поменять i и j в цикле.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
#include <SysUtils.hpp>//преображование строк и чисел
//------------------------------------------------------
{
double a[50][50];
double a1[1][50];
int N,M,i,j,z;
double Src, sum;
  N=1+StrToInt(Edit1->Text);
  M=1+StrToInt(Edit2->Text);
  Memo1->Clear();
  for (j=1; j<M; j++)
  {
     for (i=1; i<N; i++)
     {
        a[i][j]=StrToFloat(StringGrid1->Cells[i][j]);
     }
  }
  //Среднее арифметическое
   for (j=1, sum=0; j<M; j++)
   {
     for (i=1, sum=0; i<N; i++)
       {
          sum=sum+a[i][j];
       }
       Memo1->Lines->Add("sum="+FloatToStr(sum));
       Src=sum/(N-1);
       a1[0][j]=Src;
       Memo1->Lines->Add("Scr="+FloatToStr(a1[0][j]));
       for (i=1, z=0;i<N;i++)//Кол-во элементов больше средне арифметического
         {
         if (a[i][j]>a1[0][j])
            {
              z++;
            }
         }
       Memo1->Lines->Add("z="+IntToStr(z));
   }
}

@killjoy-13 · 10.01.2010, 03:55 **[ТС]**

Все понятно, все работает, только не понятно зачем начинать отсчет с

C++
1
2
  N=1+StrToInt(Edit1->Text);
  M=1+StrToInt(Edit2->Text);

потому что в таком раскладе выдается ошибка, а если убрать этот "+1" и в строках типо

C++
1
for (j=1; j<M; j++)

заменить на

C++
1
for (j=0; j<M; j++)

все отлично работает)

@Grey · 10.01.2010, 19:15

Не по теме:

+1 это лень :)

Так я определил,что ищет по столбцам и заполнил таблицу.

C++
1
2
3
4
5
6
7
void __fastcall TForm1::FormCreate(TObject *Sender)
{
for (i=1;i<5;i++)
  {
    for (j=1;j<10;j++) StringGrid1->Cells[i][j]=5;
  }
}

При i=0 и j=0 заполняет шапку таблицы.

@Grey · 11.01.2010, 20:14

3 задача

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
{
double a[50][50];
int N,M,i,j,z,t;
        N=StrToInt(Edit1->Text);
        M=StrToInt(Edit2->Text);
        for (i=0; i<N; i++)
        {
          for (j=0; j<M; j++)
            {
              a[i][j]=StrToFloat(StringGrid1->Cells[i][j]);
            }
        }
for (i=N;i>0;i--)//выбор столбца
  {
    z=0;
    for (j=0;j<M;j++)//выбор строки
      {
        if (a[i][j]>0) z=z+1;
        if (z==M)
          {
           t=i;
           StringGrid1->ColCount=StringGrid1->ColCount-1;
           for (i=t;i<N;i++)//перезапись массива и таблицы
            {
              for (j=0;j<M;j++)
               {
                 a[i][j]=a[i+1][j];
                 StringGrid1->Cells[i][j]=FloatToStr(a[i][j]);
               }
            }
            goto A;//выход из цикла
          }
       }
   }
A:
}

Новые блоги и статьи Все статьи Все блоги /
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .

@killjoy-13 0 / 0 / 0 Регистрация: 06.12.2009 Сообщений: 5

	Работа со 2-хмерными массивами в StringGrid 06.12.2009, 09:04. Показов 1550. Ответов 7 Метки stringgrid, массив (Все метки) Помогите пожалста начинающему. только начали в институте изучать борланд, объясняют крайне недоступно( итак задание: 1)Дана матрица размера N x M. В каждой строке найти количество элементов, больших среднего арифметического всех элементов этой строкию. 2)Дана квадратная матрица порядка M. Заменить нулями элементы матрицы, лежащие ниже главной диагонали. 3)Дана матрица размера M x N. Удалить последний столбец, содержащий только положительные элементы. помогите хотя бы по одному из заданий пожалста. 0

@killjoy-13 0 / 0 / 0 Регистрация: 06.12.2009 Сообщений: 5
	13.12.2009, 12:21 [ТС]
	Ну хоть кто нибудь откликнитесь! 0