Задача на тему: "Матрицы".

@definetly · Регистрация: 25.05.2009

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

Дана матрица А, состоящая из m строк и n стобцов. Заменить матрице на 1 каждый положительный элемент, на 0 - каждый отрицательный. Для каждого столбца найти среднее арифметическое исходных значений элементов. (PS помогите пожалуйста)

@Puporev · 25.05.2009, 20:13

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

Pascal

for j:=1 to n do
 begin
  sr:=0;
  for i:=1 to m do
  sr:=sr+a[i,j]/m;
  writeln('В столбце ',j,' среднее=',sr:0:2);
 end;

Заменить в матрице на 1 каждый положительный элемент, на 0 - каждый отрицательный.

Pascal

for i:=1 to m do
for j:=1 to n do
 begin
   if a[i,j]>0 then a[i,j]:=1;
   if a[i,j]<0 then a[i,j]:=0;
 end;

@sVoy · 25.05.2009, 20:22

Pascal

Program n1;
uses crt;
var 
a:array[1..100,1..100]of integer;
n,m,i,j:integer;sr:real;
begin
clrscr;
writeln('введите размер');
write('кол-во столбцов');readln(n);
write('кол-во строк');readln(m);
 
for i:=1 to n do
for j:=1 to m do begin
write('a(',i,',',j,')=');readln(a[i,j]); end;
 
for j:=1 to m do begin sr:=0;
for i:=1 to n do sr:=sr+a[i,j];
sr:=sr/n; writeln('ср. ариф. столбца №',i,'=',sr);end;
 
for i:=1 to n do
for j:=1 to m do
if a[i,j]>=0 then a[i,j]:=1
         else a[i,j]:=0;
 
for i:=1 to n do
for j:=1 to m do
writeln('a(',i,',',j,')=',a[i,j]);
readkey;
end.

при условии что 0 положительный....

@Puporev · 25.05.2009, 21:17

при условии что 0 положительный....

И где это учат, что ноль положительный?

Добавлено через 2 минуты 52 секунды

sr:=sr/n;

В столбце кстати m элементов.

@di3zel · 25.05.2009, 21:21

Cашка ))))

ПЯВУ ))))

@sVoy · 25.05.2009, 21:28

Puporev, в делфи .... 0... при чтении масивов, файлов - 0 это первый элемент...
диски, их щёт идёт от 0

хотя в паскале 0 это отсуствие ....

@Puporev · 25.05.2009, 21:35

0 это первый элемент...

А никто и не говорит, что ноль десятый. Однако ноль как число, а не индекс, не относится ни к отрицателным, ни к положительным числам. А индекс в массиве может начинаться и с -100 и с символа, при чем тут ноль?

@definetly 0 / 0 / 0 Регистрация: 25.05.2009 Сообщений: 5
		1
	Задача на тему: "Матрицы". 25.05.2009, 19:55. Показов 1573. Ответов 6 Метки нет (Все метки) Дана матрица А, состоящая из m строк и n стобцов. Заменить матрице на 1 каждый положительный элемент, на 0 - каждый отрицательный. Для каждого столбца найти среднее арифметическое исходных значений элементов. (PS помогите пожалуйста) 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	25.05.2009, 21:17	4
	при условии что 0 положительный.... И где это учат, что ноль положительный? Добавлено через 2 минуты 52 секунды sr:=sr/n; В столбце кстати m элементов. 0

@di3zel 7 / 7 / 2 Регистрация: 24.05.2009 Сообщений: 51
	25.05.2009, 21:21	5
	Cашка )))) ПЯВУ )))) 0

@sVoy 15 / 15 / 0 Регистрация: 18.05.2009 Сообщений: 52
	25.05.2009, 21:28	6
	Puporev, в делфи .... 0... при чтении масивов, файлов - 0 это первый элемент... диски, их щёт идёт от 0 хотя в паскале 0 это отсуствие .... 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	25.05.2009, 21:35	7
	0 это первый элемент... А никто и не говорит, что ноль десятый. Однако ноль как число, а не индекс, не относится ни к отрицателным, ни к положительным числам. А индекс в массиве может начинаться и с -100 и с символа, при чем тут ноль? 0