Подсчитать количество элементов матрицы больше заданного числа

@Pacifican · Регистрация: 09.12.2009

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

Господа нуждаюсь в помощи
Задача такова дан массив(tstringgrid).
Необходимо высчитать число(количество) и сумму элементов матрицы больше некоторой константы которая в в свою очередь задается тоже из окна программы.
как удобнее это реализоватть?

@John_Pa9JIbHuK · 13.01.2010, 23:50

а у вас есть какие нить предложения по решению этой задачи?

@Pacifican · 13.01.2010, 23:56 **[ТС]**

да)*. есть код-но нужно дополнить.

Delphi
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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, Buttons, Math;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    StringGrid1: TStringGrid;
    Button1: TButton;
    BitBtn2: TBitBtn;
    Memo1: TMemo;
    Edit3: TEdit;
    Label3: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  const
  Mmax=10;
  Nmax=10;
  type
  Tmas=array[1..Mmax,1..Nmax] of integer;
var
  Arr:array[1..mmax,1..nmax] of integer;
  Form1: TForm1;
  n,m:integer;
  i,j:integer;
  imax,jmax:integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
 
begin
n:=4;
m:=4;
Edit1.Text:='4';
Edit2.Text:='4';
StringGrid1.Cells[0,0]:='        A';
for i:=1 to n do StringGrid1.Cells[0,i]:='       i='+Inttostr(i);
for j:=1 to m do StringGrid1.Cells[j,0]:='       j='+Inttostr(j);
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
n:=StrToInt(Edit1.Text);
m:=StrToInt(Edit2.Text);
StringGrid1.RowCount:=N+1;
StringGrid1.ColCount:=M+1;
for i:=1 to n do stringGrid1.Cells[0,i]:='i='+Inttostr(i);
for j:=1 to m do stringGrid1.Cells[j,0]:='j='+Inttostr(j);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
const
p=100;
var
a:array [1..p] of integer;
min, s, i:integer;
begin
for i:=6 to p do
a[i]:=StrToInt(StringGrid1.Cells[i+1,p]);
min:=6;
for i:=6 to p do
if a[i]>a[min] then min:=i+1;
S:=0;
for i:=S+1 to m do S:=S+(A[j]);
Memo1.Lines.Add('Cóììà ïîëó÷åííûõ ýëåìåíòîâ:'+IntToStr(S));
end;
end.

но-она считает только то что я пишу в проге(нет свободного вода в форме) и не считает количество элементов

@John_Pa9JIbHuK · 14.01.2010, 00:34

пробуй

@Pacifican · 14.01.2010, 03:38 **[ТС]**

спс

Добавлено через 2 часа 55 минут
кстати-если изменить ввод цифр не рандом а как ручки-как это выглядеть будет. я попробывал-но чего-то у меня ошибками душит прожка..

Delphi
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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
unit Test;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls, ExtCtrls, Buttons;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    ConLab: TLabeledEdit;
    Button1: TButton;
    BitBtn1: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
 
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
i,j,count,summ:integer;
n,m:integer;
begin
For i:=0 to stringgrid1.ColCount-1 do
For j:=0 to stringgrid1.RowCount-1 do
Begin
n:=StrToInt(Edit1.Text);
m:=StrToInt(Edit2.Text);
StringGrid1.RowCount:=N+1;
StringGrid1.ColCount:=M+1;
for i:=1 to n do stringGrid1.Cells[0,i]:='i='+Inttostr(i);
for j:=1 to m do stringGrid1.Cells[j,0]:='j='+Inttostr(j);
end;
if (StrToInt(stringgrid1.Cells[i,j]))>(StrToInt(ConLab.Text)) then
begin
Inc(Count);
Inc(summ,StrToInt(stringgrid1.Cells[i,j]));
end;
end;
Showmessage('Количество = '+IntToStr(count)+#10#13+'Сумма = '+IntToStr(summ));
end;
end.

deathNC · 14.01.2010, 03:55

Ты спрашиваешь, как в StringGrid вводить данные? Это имеешь ввиду?

@Pacifican · 14.01.2010, 23:54 **[ТС]**

нет!!!!!!!!!! я в курсах. как переделать так чтобы двумерный массив задавался произвольной разрядностью i,j из форм программы-а не был рандомайзом вариэблом

deathNC · 15.01.2010, 00:27

Вот, исправил (убрал тока одну строчку):

@Pacifican · 15.01.2010, 17:44 **[ТС]**

).спасибо конечно-но произвольно обозначало создание и функционирование 'I=' 'J=' в проге. скажем матрица 2=на три ввожим в форме в заранее созданные окошки 2 и 3 матрица становится не 5на 5 а 2на3-управление через баттон!
как лписать и солхдать в курсе я-но набазе этого варианта не хочет работать-высчитывать сумму и количество.(

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

@Pacifican 1 / 1 / 0 Регистрация: 09.12.2009 Сообщений: 80 Записей в блоге: 1

	Подсчитать количество элементов матрицы больше заданного числа 13.01.2010, 23:42. Показов 1336. Ответов 8 Метки нет (Все метки) Господа нуждаюсь в помощи Задача такова дан массив(tstringgrid). Необходимо высчитать число(количество) и сумму элементов матрицы больше некоторой константы которая в в свою очередь задается тоже из окна программы. как удобнее это реализоватть? 0

@John_Pa9JIbHuK Добрый самаритянин 1107 / 622 / 139 Регистрация: 31.03.2009 Сообщений: 2,567
	13.01.2010, 23:50
	а у вас есть какие нить предложения по решению этой задачи? 0

deathNC 1905 / 1016 / 123 Регистрация: 08.12.2009 Сообщений: 2,792 Записей в блоге: 2
	14.01.2010, 03:55
	Ты спрашиваешь, как в StringGrid вводить данные? Это имеешь ввиду? 0

@Pacifican 1 / 1 / 0 Регистрация: 09.12.2009 Сообщений: 80 Записей в блоге: 1
	14.01.2010, 23:54 [ТС]
	нет!!!!!!!!!! я в курсах. как переделать так чтобы двумерный массив задавался произвольной разрядностью i,j из форм программы-а не был рандомайзом вариэблом 0

@Pacifican 1 / 1 / 0 Регистрация: 09.12.2009 Сообщений: 80 Записей в блоге: 1
	15.01.2010, 17:44 [ТС]
	).спасибо конечно-но произвольно обозначало создание и функционирование 'I=' 'J=' в проге. скажем матрица 2=на три ввожим в форме в заранее созданные окошки 2 и 3 матрица становится не 5на 5 а 2на3-управление через баттон! как лписать и солхдать в курсе я-но набазе этого варианта не хочет работать-высчитывать сумму и количество.( 0