Страница 1 из 1

Pascal, массивы, Function

Добавлено: 08 май 2008, 18:03
Pascal.net
Даны 3 квадратные матрицы A[5,5], B[7,7], C[10,10]. Найти длину вектора X=(x1, x2, x3), где x1, x2, x3 - суммы элементов матриц A, B, C. Оформить в виде ФУНКЦИИ (FUNCTION)

Re: Pascal, массивы, Function

Добавлено: 11 май 2008, 22:28
Хыиуду
В чем проблема? Пройти в двух циклах по каждой матрице, просуммировать все элементы. Потом сложить квадраты этих сумм и взять кубический корень. В качестве функции можно оформить нахождение суммы элементов одной матрицы.

Re: Pascal, массивы, Function

Добавлено: 11 май 2008, 22:37
Pascal.net
я не знаю как оформить в виде функции нахождение суммы элементов, подскажите пожалуйста

Re: Pascal, массивы, Function

Добавлено: 12 май 2008, 09:10
Vovchik
Pascal.net, у тебяже количество строк и столбцов в матрицах разное поетому передаёш в функцыю их количество потом в ней запускаеш работать цыкл

Код: Выделить всё

for i:=1 ot n do
for j:=1 to m do
где n,m количество строк и столбцов которые ты передаёш в функцию вот и всё.

Re: Pascal, массивы, Function

Добавлено: 12 май 2008, 11:18
Хыиуду
Vovchik, тогда неплохо бы еще передавать в функцию и саму матрицу

Re: Pascal, массивы, Function

Добавлено: 12 май 2008, 21:51
Vovchik
Хыиуду, можно не спорю :)

Re: Pascal, массивы, Function

Добавлено: 13 май 2008, 16:19
Pascal.net
Хыиуду писал(а):В чем проблема? Пройти в двух циклах по каждой матрице, просуммировать все элементы. Потом сложить квадраты этих сумм и взять кубический корень. В качестве функции можно оформить нахождение суммы элементов одной матрицы.

Если бы я знал, как это сделать, я бы не спрашивал об этом на форуме.
Я в принципе знаю как это все сделать, я посмотрел алгоритм, но не работает у меня программа! Как должно быть в общем виде, можете привести подобный пример

Re: Pascal, массивы, Function

Добавлено: 13 май 2008, 20:37
Vovchik
Pascal.net, а ты покажы как ты это сделал мы посмотрим и поможем !

Re: Pascal, массивы, Function

Добавлено: 14 май 2008, 10:59
Хыиуду
В общем виде тебе большую часть кода Vovchik привел

for i:=1 to m do
for j:=1 to n do
sum:=sum+A[i,j];
Вот и весь общий вид (не считая объявления переменных