8 / 8 / 2
Регистрация: 08.11.2009
Сообщений: 78
1

Получить среднеарифметическое элементов матрицы, кратных 2 и среднеарифметическое элементов матрицы, кратных 3

20.01.2011, 12:48. Показов 513. Ответов 1
Метки нет (Все метки)

Задание:
Дана матрица A[1:7;1:6]. Получить среднеарифметическое элементов матрицы, кратных 2 и среднеарифметическое элементов матрицы, кратных 3. Получение среднеарифметических заданной кратности реализовать одной функцией и одной процедурой. В процедуре дополнительно получить в виде выходных параметров значения сумм и количества заданных элементов и вывести их значения в программе на печать.

Заранее благодарен...

Добавлено через 53 минуты
Мои наработки:
Pascal
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
uses crt;
const n=7;
      m=6;
type matr=array[1..n,1..m] of integer;
 
function SrTRI(a:matr):real;
var i,j,k:byte;
    s:real;
begin
s:=0;k:=0;
for i:=1 to n do
for j:=1 to m do
if (a[i,j] mod 3=0) then
 begin
  k:=k+1;
  s:=s+a[i,j];
 end;
if k=0 then SrTRI:=0
else SrTRI:=s/k;
end;
 
procedure SrOtr(a:matr;var sm,sr:real;var k:byte);
var i,j:byte;
begin
sm:=0;k:=0;
for i:=1 to n do
for j:=1 to m do
if (a[i,j] mod 2=0) then
 begin
  k:=k+1;
  sm:=sm+a[i,j];
 end;
if k=0 then sr:=0
else sr:=sm/k;
end;
 
var a:matr;
    i,j,k_dva,k_tri:byte;
    sum_dva,sum_tri,sr_dva:real;
begin
clrscr;
randomize;
writeln('Массив:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(10);
    write(a[i,j], ' ');
   end;
  writeln;
 end;
writeln;
writeln('Среднее арифметическое кратных трем=',SrTRI(a):0:2, ' их количество=',k_tri,'  сумма=',sum_tri:0:2);
SrOtr(a,sum_dva,sr_dva,k_dva);
write('Среднее арифметическое кратных двум=',sr_dva:0:2,' их количество=',k_dva,'  сумма=',sum_dva:0:2);
end.
не смог только сделать чтоб колличество и сумму считало для среднего арифметического кратных трем... Если кто знает подскажите
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.01.2011, 12:48
Ответы с готовыми решениями:

Вычислить среднеарифметическое значение элементов матрицы
Создать матрицу 5*5. Вычислить среднеарифметическое значение элементов матрицы S. Вычислить сколько...

Среднеарифметическое элементов матрицы с применением процедуры и функции
Задание: Дана матрица A. Получить среднеарифметическое положительных элементов матрицы, и...

в массиве из 10 элементов найти сумму элементов кратных 3м и среднеарифметическое остальных элементов.
в массиве из 10 элементов найти сумму элементов кратных 3м и среднеарифметическое остальных...

Определите среднее арифметическое элементов кратных 3, но не кратных 5 для каждой строки матрицы
народ помогите кто может.просто препод мне дал 50 заданий.нужно решить до конца мая.вот я сдал с...

1
Почетный модератор
64272 / 47571 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
20.01.2011, 12:49 2
1.Функция.

Pascal
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
uses crt;
const n=7;
      m=6;
type matr=array[1..n,1..m] of integer;
function Sred(a:matr;k:byte):real;
var i,j,kol:byte;
    s:integer;
begin
kol:=0;
s:=0;
for i:=1 to n do
for j:=1 to m do
if a[i,j] mod k=0 then
 begin
  kol:=kol+1;
  s:=s+a[i,j];
 end;
if kol=0 then Sred:=0
else Sred:=s/kol;
end;
var a:matr;
    i,j:byte;
begin
clrscr;
randomize;
writeln('Матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(50);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
writeln('Среднеарифметическое кратных 2=',Sred(a,2):0:2);
writeln('Среднеарифметическое кратных 3=',Sred(a,3):0:2);
readln
end.
2. Процедура.
Pascal
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
uses crt;
const n=7;
      m=6;
type matr=array[1..n,1..m] of integer;
procedure Sred(a:matr;k:byte;var sum:integer; var kol:byte; var srd:real);
var i,j:byte;
begin
kol:=0;
sum:=0;
for i:=1 to n do
for j:=1 to m do
if a[i,j] mod k=0 then
 begin
  kol:=kol+1;
  sum:=sum+a[i,j];
 end;
if kol=0 then srd:=0
else srd:=sum/kol;
end;
var a:matr;
    i,j,k:byte;
    sm:integer;
    sr:real;
begin
clrscr;
randomize;
writeln('Матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(50);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
Sred(a,2,sm,k,sr);
writeln('Сумма кратных 2=',sm,' количество=',k,' cреднеарифметическое=',sr:0:2);
Sred(a,3,sm,k,sr);
writeln('Сумма кратных 3=',sm,' количество=',k,' cреднеарифметическое=',sr:0:2);
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.01.2011, 12:49
Помогаю со студенческими работами здесь

Найти номер строки матрицы, для которой среднеарифметическое значение ее элементов наименьшее
Дан целочисленный массив X (n и m вводятся пользователем).Найти номер строки, для которой...

Определить среднеарифметическое элементов четвертого столбца, кратных четырём
дан двухмерный массив целых чисел. определить среднеарифметическое элементов четвертого столбца,...

Вычислите количество элементов матрицы, кратных 3 и произведение элементов, кратных 9
Дана матрица. Вычислите количество элементов, кратных 3 и произведение элементов, кратных 9. Вывод...

среднеарифметическое значение элементов нижнетреугольной части матрицы
У меня скоро экзамен по информатике, а я совсем не шарю в C#! Напишите, ПЛИИИЗ, прогрммы для...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru