Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Написание процедуры с масивом

Автор: Ranger 28.09.2005 16:49

Народ! помогите составить процедуру подсчета суммы значений элементов в одномерном массиве и
...с помощью этой процедуры сосчитать суммы элементов строк произвольно заданной матрицы А

все что получилось это посчтитать сумму в одномерном массиве, но как связать это с процедурой, я надеюсь узнать ...

Код

program sum;
var
sum:real;
element:array[1..7]of real;
i:integer;
begin
for i:=1 to 7 do
 begin
write(i,'=');
read(element[i]);
sum:=sum+element[i];
end;
writeln('sum=',sum);
end.

Автор: volvo 28.09.2005 17:28

const
n = 7;
type
arrType = array[1 .. n] of real;

Procedure Sum(arr: arrType; Var s: real);
begin
s := 0;
for i := 1 to n do
s:=s+arr[i];
end;

const
m = 4; { для примера }
type
matrixType = array[1 .. m] of arrType;
var
mx: matrixType;
s: real;

begin
{ Тут - заполнение матрицы mx }
for i := 1 to m do begin
sum(mx[i], s);
writeln('сумма строки №', i, ' = ', s);
end;
end.

Хотя лучше было бы использовать не процедуру, а функцию... Она здесь больше подойдет... :yes:

Автор: Ranger 29.09.2005 1:48

Пожалуйста, напишите работающую программу а то я в паскале не очень понимаю sad.gif

Автор: volvo 29.09.2005 16:57

Я уже практически все написал - осталось добавить только заполнение матрицы нужными значениями.

Это делай самостоятельно, тем более что тема неоднократно обсуждалась на форуме...