Найти количество элементов, меньших среднего арифметического всех элементов матрицы

@илья1995 · Регистрация: 17.10.2011

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

Дана матрица А размера NxM. Найти количество элементов, меньших среднего арифметического всех элементов матрицы
использовать компоненты StringGrid, BitButton, При реализации приложений SpinEdit.

@MVPitlay · 10.04.2012, 03:07

если я правильно понял задание то наверное так

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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
var
mas:array[1..100,1..100] of integer;
i,j,m,f:integer;
x:real;
begin
m:=0;
x:=0;
randomize;
for i := 1 to 2 do
for j := 1 to 3 do
begin
mas[i,j]:=random(10);
StringGrid1.Cells[i,j]:=inttostr(mas[i,j]);
end;
for i := 1 to 2 do
for j := 1 to 3 do
begin
if 0<mas[i,j] then
x:=x+mas[i,j]/6;
Label1.Caption:=floattostr(x);
end;
for i := 1 to 2 do
for j := 1 to 3 do
begin
if mas[i,j]<x then
m:=m+mas[i,j];
label2.Caption:=inttostr(m);
end;
end;
end.

@илья1995 · 28.05.2012, 21:41 **[ТС]**

програмам считает правильно но размер матрицы я должен вводить сам

Новые блоги и статьи Все статьи Все блоги /
Образование и практика Igor3D 21.03.2025 Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .	Lazarus. Таблица с объединением ячеек. Massaraksh7 21.03.2025 Понадобилась представление на экране таблицы с объединёнными ячейками. И не одной, а штук триста, и все разные. На Delphi я использовал для этих целей TStringGrid, и то, кривовато получалось. А в. . .	Async/await в Swift: Асинхронное программирование в iOS mobDevWorks 20.03.2025 Асинхронное программирование долго было одной из самых сложных задач для разработчиков iOS. В течение многих лет мы сражались с замыканиями, диспетчеризацией очередей и обратными вызовами, чтобы. . .	Колмогоровская сложность: Приёмы упрощения кода ArchitectMsa 20.03.2025 Наверное, каждый программист хотя бы раз сталкивался с кодом, который напоминает запутанный лабиринт — чем дальше в него погружаешься, тем сложнее найти выход. И когда мы говорим о сложности кода, мы. . .	PostgreSQL в Kubernetes: Подготовка кластера и настройка Mr. Docker 20.03.2025 Когда доходит до контейнеризации баз данных и особенно таких требовательных к ресурсам системах как PostgreSQL, многие команды до сих пор колеблются, прежде чем перенести их в контейнерную. . .
C++26: Индексирование пакетов и метапрограммирование bytestream 20.03.2025 Эволюция C++ продолжается стремительными темпами – каждый новый стандарт приносит функциональность, о которой мы мечтали годами. Звучит слишком громко? Если вы когда-либо боролись с вариадическими. . .	Состояние гонки в C#: подводные камни многопоточного программирования UnmanagedCoder 20.03.2025 Что такое состояние гонки? Это ситуация, когда результат программы непредсказуемо меняется в зависимости от порядка выполнения потоков. Проще говоря, два или более потока пытаются одновременно. . .	Next.js для разработки React: преимущества серверного рендеринга Reangularity 20.03.2025 Next. js решает классическую проблему React-приложений: медленную первоначальную загрузку и плохую индексацию поисковиками. Вместо того чтобы заставлять браузер пользователя выполнять всю работу по. . .	JUnit или TestNG: Выбираем Java-фреймворк для тестирования Javaican 20.03.2025 История тестовых фреймворков в Java началась в конце 90-х, когда Кент Бек и Эрих Гамма разработали JUnit - инструмент, который перевернул представление разработчиков о модульном тестировании. JUnit. . .	Разбиваем монолит на два микросервиса и реализуем CI/CD ArchitectMsa 20.03.2025 Когда команда растет, а функциональность монолита расширяется, поддерживать и развивать такую систему становится все труднее. Разработчики начинают тратить много времени на разбор сложных. . .

@илья1995 4 / 4 / 3 Регистрация: 17.10.2011 Сообщений: 169

	Найти количество элементов, меньших среднего арифметического всех элементов матрицы 08.04.2012, 01:48. Показов 1657. Ответов 2 Метки нет (Все метки) Дана матрица А размера NxM. Найти количество элементов, меньших среднего арифметического всех элементов матрицы использовать компоненты StringGrid, BitButton, При реализации приложений SpinEdit. 0

@илья1995 4 / 4 / 3 Регистрация: 17.10.2011 Сообщений: 169
	28.05.2012, 21:41 [ТС]
	програмам считает правильно но размер матрицы я должен вводить сам 0

Опции темы