Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Lumber_Mill
0 / 0 / 0
Регистрация: 20.03.2016
Сообщений: 17
1

Найти среднее арифметическое первого столбца массива

27.03.2016, 06:02. Просмотров 370. Ответов 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
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
const n=3;
type mas=array[1..n,1..n] of real;
procedure srednie_arifmeticheskie1(A:mas; i,j:integer; var sar1: real);
begin
  j := 1;
   sar1 := 0;
   for i := 1 to n do
      sar1 := sar1 + A[i, j];
    writeln('Среднее арифметическое в столбце 1', j, ' = ', sar1 / n:0:2);
  end;
procedure srednie_arifmeticheskie2(A:mas; i,j:integer; var sar1, sar2: real);
begin 
 begin
  j := 1;
   sar1 := 0;
   for i := 1 to n do
      sar1 := sar1 + A[i, j];
    sar1 := sar1 / n;
  end;
 begin
  j := 2;
   sar2 := 0;
   for i := 1 to n do
      sar2 := sar2 + A[i, j];
      sar2 := sar2 / n;
    writeln('Среднее арифметическое в столбце 1 и 2', j, ' = ', ((sar1 + sar2) / 2):0:2);  
   end;
  end; 
procedure srednie_arifmeticheskie3(A:mas; i,j:integer; var sar1, sar2, sar3: real);
begin
 begin
  j := 1;
   sar1 := 0;
   for i := 1 to n do
      sar1 := sar1 + A[i, j];
    sar1 := sar1 / n;
  end;
 begin
  j := 2;
   sar2 := 0;
   for i := 1 to n do
      sar2 := sar2 + A[i, j];
      sar2 := sar2 / n;
      sar2 := (sar1 + sar2) / 2;  
   end;
  begin
   j := 3;
    sar3 := 0;
    for i := 1 to n do
     sar3 := sar3 + A[i, j];
     sar3 := sar3 / n;
      writeln('Среднее арифметическое в столбце 1 , 2 и 3', j, ' = ', ((sar1 + sar2 + sar3) / 3):0:2);  
   end;
  end; 
var
A : mas;
i, j: integer;
sar1, sar2, sar3: real;
 begin
   for i := 1 to n do
    for j := 1 to n do
    begin
      write('A[', i, ',', j, ']=');
      readln(A[i, j]);
    end;
   sar1 :=  srednie_arifmeticheskie1(A);
   sar2 :=  srednie_arifmeticheskie2(A);
   sar3 :=  srednie_arifmeticheskie3(A);
end.
На 4 строчке снизу пишет : Неверное число параметров процедуры. Вопрос, что мне надо исправить в таком случае? Если кто знает, напишите.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.03.2016, 06:02
Ответы с готовыми решениями:

Для каждого столбца массива найти среднее арифметическое элементов
Помогите составить условие в двумерном динамическом массиве for i:=0 to n-1 do begin for...

Массив: Найти среднее арифметическое положительных чисел каждого столбца.
Ввести двумерный массив чисел, содержащий N строк и М столбцов. Значения N и М ...

Для каждого столбца матрицы найти среднее арифметическое элементов, которые делятся нацело на последнюю цифру
1)программа для каждого столбца массива находит среднее арифметическое элементов, у которых...

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

Вычислить среднее арифметическое каждого столбца массива и отсортировать элементы по возрастанию
дан двумерный массив (n*n) 1)необходимо вычислить среднее арифметическое каждого столбца массива...

1
Puporev
Модератор
57102 / 43596 / 30128
Регистрация: 18.05.2008
Сообщений: 103,944
27.03.2016, 08:30 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
const n=3;
type mas=array[1..n,1..n] of real;
procedure srednie_arifmeticheskie(A:mas; k:integer; var sar: real);
var i,j:integer;
begin
sar := 0;
for j:=1 to k do
for i := 1 to n do
sar := sar + A[i, j];
writeln('Среднее арифметическое в столбцах номер 1..',k,'=', sar / (n*k):0:2);
end;
var
A : mas;
i, j: integer;
sar: real;
begin
for i := 1 to n do
for j := 1 to n do
 begin
  write('A[', i, ',', j, ']=');
  readln(A[i, j]);
 end;
srednie_arifmeticheskie(A,1,sar);
srednie_arifmeticheskie(A,2,sar);
srednie_arifmeticheskie(A,3,sar);
end.
Добавлено через 1 минуту
Цитата Сообщение от Lumber_Mill Посмотреть сообщение
sar1 := *srednie_arifmeticheskie1(A);
Нельзя вызывать процедуру как функцию и число параметров при описании и вызове должно быть одинаковым.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.03.2016, 08:30

Найти среднее арифметическое последнего столбца в матрице (процедура)
Дана матрица 10 на 10.Найти среднее арифметическое последнего столбца в матрице с помощью процедуры

В двумерном динамическом массиве S найти среднее арифметическое каждого столбца
В двумерном динамическом массиве S найти среднее арифметическое каждого столбца. Результаты...

Найти среднее арифметическое положительных элементов каждого столбца матрицы
Привет! Помогите пожалуйста Я должен найти среднее арифметическое положительных элементов...


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

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

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