Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
ЮличкаСергеевна
0 / 0 / 0
Регистрация: 30.01.2012
Сообщений: 6
1

В каждой строке и столбце найти количество элементов, больших и меньших среднего арифметического всех элементов этой строки и столбца.

30.01.2012, 15:47. Просмотров 1378. Ответов 5
Метки нет (Все метки)

решите пожалуйста задачу, очень надо, у самой не получается.. задача: Дана матрица размера 5 х 10. Элементы массива вводятся с клавиатуры. В каждой строке и столбце найти количество элементов, больших и меньших среднего арифметического всех элементов этой строки и столбца.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.01.2012, 15:47
Ответы с готовыми решениями:

В каждом столбце матрицы найти количество элементов, больших среднего арифметического всех элементов столбца
Дана матрица размера MxN. В каждом ее столбце найти кол-во эл-ов, больших среднего арифмитического...

В каждом столбце матрицы найти количество элементов, больших среднего арифметического всех элементов столбца
Дана матрица размера 5х5. В каждом её столбце найти количество элементов, больших среднего...

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

Найти количество элементов массива, больших среднего арифметического всех его элементов
Задан массив A из n элементов. Найти количество элементов этого массива, больших среднего...

Вычислить количество и произведение элементов меньших среднего арифметического первых 2 элементов массива
помогите решить задачки,плиииз:wall: дан одномерный массив b1,b2,....,bn.Вычислить колличество и...

5
NewZ
14 / 14 / 2
Регистрация: 01.09.2010
Сообщений: 287
30.01.2012, 18:11 2
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
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
program Matrix;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
// матрица размером 5 x 10
var
  M: array [1..5, 1..10] of Integer;
 
// это вместо ввода с клавиатуры
// заполнить матрицу случайными числами от 1 до 100
procedure InputMatrix;
var
  i, j: Integer;
begin
  Randomize;
  for i := 1 to 5 do
    for j := 1 to 10 do
    begin
      M[i, j] := Random(100) + 1;
    end;
end;
 
// среднее арифмерическое заданной строки
// nR - номер строки матрицы для которой нужно определить ср. арифм.
function AvgRow(nR: Integer): Double;
var
  i: Integer;
begin
  Result := 0;
  for i := 1 to 10 do
    Result := Result + M[nR, i];
  Result := Result / 10;
end;
 
// среднее арифмерическое заданного столбца
// nC - номер столбца матрицы для которой нужно определить ср. арифм.
function AvgCol(nC: Integer): Double;
var
  i: Integer;
begin
  Result := 0;
  for i := 1 to 5 do
    Result := Result + M[i, nC];
  Result := Result / 5;
end;
 
// ищет кол-во элементов меньше заданного N
// в строке матрицы с номером nR
function FindMinInRow(N: Double; nR: Integer): Integer;
var
  i: Integer;
begin
  Result := 0;
  for i := 1 to 10 do
    if N > M[nR, i] then
      Result := Result + 1;
end;
 
// ищет кол-во элементов больше заданного N
// в строке матрицы с номером nR
function FindMaxInRow(N: Double; nR: Integer): Integer;
var
  i: Integer;
begin
  Result := 0;
  for i := 1 to 10 do
    if N < M[nR, i] then
      Result := Result + 1;
end;
 
// ищет кол-во элементов меньше заданного N
// в столбце матрицы с номером nC
function FindMinInCol(N: Double; nC: Integer): Integer;
var
  i: Integer;
begin
  Result := 0;
  for i := 1 to 5 do
    if N > M[i, nC] then
      Result := Result + 1;
end;
 
// ищет кол-во элементов больше заданного N
// в столбце матрицы с номером nC
function FindMaxInCol(N: Double; nC: Integer): Integer;
var
  i: Integer;
begin
  Result := 0;
  for i := 1 to 5 do
    if N < M[i, nC] then
      Result := Result + 1;
end;
 
// печать на экран результата строки
procedure PrintRowAndResult(nR: Integer; Avg: Double; Min, Max: Integer);
var
  i: Integer;
begin
  for i := 1 to 10 do
    Write(M[nR, i]:3, ' ');
  Write ('   ');
  Write('Avg = ', Avg:3:2, ' ');
  Write('Min = ', Min, ' ');
  Write('Max = ', Max, ' ');
  Writeln;
end;
 
// печать на экран результата столбца
procedure PrintColAndResult(nC: Integer; Avg: Double; Min, Max: Integer);
var
  i: Integer;
begin
  for i := 1 to 5 do
    Write(M[i, nC]:3, ' ');
  Write ('   ');
  Write('Avg = ', Avg:3:2, ' ');
  Write('Min = ', Min, ' ');
  Write('Max = ', Max, ' ');
  Writeln;
end;
 
var
  k, n, Min, Max: Integer;
  Avg: Double;
 
begin
  InputMatrix;
  Writeln('Results in rows:');
  for k := 1 to 5 do
  begin
    Avg := AvgRow(k);
    Min := FindMinInRow(Avg, k);
    Max := FindMaxInRow(Avg, k);
    PrintRowAndResult(k, Avg, Min, Max);
  end;
  Writeln('Results in columns:');
  for k := 1 to 10 do
  begin
    Avg := AvgCol(k);
    Min := FindMinInCol(Avg, k);
    Max := FindMaxInCol(Avg, k);
    PrintColAndResult(k, Avg, Min, Max);
  end;
  Readln;
end.
Пожалуйста, помагаем
1
Вложения
Тип файла: rar Matrix.rar (38.3 Кб, 18 просмотров)
ЮличкаСергеевна
0 / 0 / 0
Регистрация: 30.01.2012
Сообщений: 6
30.01.2012, 18:27  [ТС] 3
NewZ, ОГРОМНОЕ тебе спасибо!!!))))
0
ЮличкаСергеевна
0 / 0 / 0
Регистрация: 30.01.2012
Сообщений: 6
05.03.2012, 14:28  [ТС] 4
Пожалуйста, помагаем

нам сказали с формой делать надо.. нужно создать Новый проект
VCL Application.. ввод матрицы нужно переделывать под ручной и вывод тоже другой будет. Хотя это делается достаточно быстро, у меня уж точно уйдет пару дней что б грамотно все сделать.. помогите пожалуйста переделать.. завтра уже сдавать.. не успею сама при всем желании(
0
NewZ
14 / 14 / 2
Регистрация: 01.09.2010
Сообщений: 287
06.03.2012, 00:24 5
Не 10 минут, ну ладно

А вообще зачем на программиста пошла ?
0
Вложения
Тип файла: rar MatrixVCL.rar (369.5 Кб, 21 просмотров)
ЮличкаСергеевна
0 / 0 / 0
Регистрация: 30.01.2012
Сообщений: 6
06.03.2012, 16:27  [ТС] 6
обстоятельства вынуждали) был бы выбор-не поступала бы на программера) спасибо за помощь!!)
0
06.03.2012, 16:27
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.03.2012, 16:27

Массив: Найти среднее арифметическое в каждой строке матрицы A и вычесть его из всех элементов этой строки...
Разработать программу для решения задачи. Протестировать разработанную программу методом...

Найти номера элементов, меньших среднего арифметического элементов того же массива
Программа-В массиве c=(c1,c2,...cn) найти номера элементов, меньших среднего арифметического...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru