Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
4ch
19 / 19 / 5
Регистрация: 24.10.2012
Сообщений: 72
#1

Определить сумму элементов каждой строки и сумму элементов каждого столбца - Turbo Pascal

31.10.2012, 19:52. Просмотров 570. Ответов 5
Метки нет (Все метки)

Всем доброго вечера. Посмотрите, что не так я написал в программе.
Дана матрица A(6,5). Определить сумму элементов каждой строки и сумму элементов каждого столбца.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program as1;
uses crt;
type
matrixtype=array[1..6,1..5] of real;
var
sum:array[1..6] of real;
a:matrixtype;
i,j:integer;
sum:real;
begin
clrscr;
writeln('vvedite matricy 6x5')
for i:=1 to 6 do
sum[i,j]:=0;
for i:=1 to 6 do
for j:=1 to 5 do
sum[i,j]:=sum[i,j]+a[i,j];
for i:=1 to 6 do
writeln('sum[i,j];);
readln
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.10.2012, 19:52
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Определить сумму элементов каждой строки и сумму элементов каждого столбца (Turbo Pascal):

Подсчитать сумму элементов каждой строки и сумму элементов каждого столбца
Сама задача: Дан двумерный массив. Найти: а)Суму элементов каждой строки;...

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

Определить массу каждого состава (сумму элементов каждой строки матрицы)
Дана матрица A масс грузов в Q составах, каждый из которых состоит из P...

Для каждой строки и столбца матрицы найти сумму элементов
Дана матрица размера MxN. Для каждой строки и столбца матрицы найти сумму...

Найти и вывести сумму элементов каждой строки и максимальную сумму элементов матрицы
Ввести матрицу А(5,7). Найти и вывести сумму элементов каждой строки и...

Определить сумму элементов каждого столбца матрицы и наибольшую среди сумм
помогите пожалуйста с программой " Задан двумерный массив целых чисел(таблица)...

5
Nirvanovec
25 / 31 / 22
Регистрация: 25.01.2010
Сообщений: 321
Записей в блоге: 1
31.10.2012, 19:59 #2
var
sum:array[1..6] of real;
//в варе у вас описана (вектор) строка.
.....
sum[i,j]:=0;
//а в программе как матрица
0
4ch
19 / 19 / 5
Регистрация: 24.10.2012
Сообщений: 72
31.10.2012, 20:04  [ТС] #3
Цитата Сообщение от Nirvanovec Посмотреть сообщение
var
sum:array[1..6] of real;
//в варе у вас описана (вектор) строка.
.....
sum[i,j]:=0;
//а в программе как матрица
На что ее нужно заменить? На sum:array[1..6,1..5] of real ?
1
Nirvanovec
25 / 31 / 22
Регистрация: 25.01.2010
Сообщений: 321
Записей в блоге: 1
31.10.2012, 20:05 #4
Цитата Сообщение от 4ch Посмотреть сообщение
На что ее нужно заменить? На sum:array[1..6,1..5] of real ?
все верно, потом удалить 9 строку, на 12 строке ; поставить в конце
после 13 добавить for j:=1 to 5 do

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program as1;
uses crt;
type
matrixtype=array[1..6,1..5] of real;
var
sum:array[1..6,1..5] of real;
a:matrixtype;
i,j:integer;
begin
clrscr;
writeln('vvedite matricy 6x5');
for i:=1 to 6 do
for j:=1 to 5 do
sum[i,j]:=0;
for i:=1 to 6 do
for j:=1 to 5 do
sum[i,j]:=sum[i,j]+a[i,j];
for i:=1 to 6 do
writeln(sum[i,j]:2:3);
readln
end
.

// более менее правильный вариант, но в этой вашей программе он считает сумму всех членов матрицы
1
4ch
19 / 19 / 5
Регистрация: 24.10.2012
Сообщений: 72
31.10.2012, 20:43  [ТС] #5
Цитата Сообщение от Nirvanovec Посмотреть сообщение
все верно, потом удалить 9 строку, на 12 строке ; поставить в конце
после 13 добавить for j:=1 to 5 do


// более менее правильный вариант, но в этой вашей программе он считает сумму всех членов матрицы
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program as1;
uses crt;
type
matrixtype=array[1..6,1..5] of real;
var
sum:array[1..6] of real;
a:matrixtype;
i,j:integer;
begin
clrscr;
writeln('vvedite matricy 6x5');
for i:=1 to 6 do
sum:=0;
for i:=1 to 6 do
for j:=1 to 5 do
sum:=sum+a[i,j];
for i:=1 to 6 do
writeln(sum:2:3);
readln;
end
А если сделать так, то он подсчитает сумму строк?
1
Nirvanovec
25 / 31 / 22
Регистрация: 25.01.2010
Сообщений: 321
Записей в блоге: 1
31.10.2012, 21:25 #6
Цитата Сообщение от 4ch Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program as1;
uses crt;
type
matrixtype=array[1..6,1..5] of real;
var
sum:array[1..6] of real;
a:matrixtype;
i,j:integer;
begin
clrscr;
writeln('vvedite matricy 6x5');
for i:=1 to 6 do
sum:=0;
for i:=1 to 6 do
for j:=1 to 5 do
sum:=sum+a[i,j];
for i:=1 to 6 do
writeln(sum:2:3);
readln;
end
А если сделать так, то он подсчитает сумму строк?
Скорей всего нет, т.к. вы указываете sum как вектор поэтому у него должен быть индекс sum[i], и во вторых в цикле у вас так же сумма всех членов матрицы

Добавлено через 12 минут
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
program matrix;
uses crt;
var a:array[1..6,1..5] of integer;i,j:integer;
sum:array[1..5] of integer;
begin
clrscr;
randomize;
 
for i:=1 to 6 do begin
for j:=1 to 5 do begin
a[i,j]:=random(19)-9;
write(a[i,j]:3);
end;
writeln;
end;
writeln;
 
for i:=1 to 6 do begin
for j:=1 to 5 do begin
sum[i]:=a[i,j]+sum[i];
end;
writeln('summa ',i,' stroki = ',sum[i]:3);
end;
readkey;
end.
Вот рабочая программа, матрицу заполняет произвольными числами integer от -9 до 9

Добавлено через 27 минут
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
program matrix;
uses crt;
var a:array[1..6,1..5] of integer;i,j:integer;
sum:array[1..5] of integer;
begin
clrscr;
randomize;
 
for i:=1 to 6 do begin
for j:=1 to 5 do begin
a[i,j]:=random(19)-9;
write(a[i,j]:3);
end;
writeln;
end;
writeln;
 
for i:=1 to 6 do begin
for j:=1 to 5 do begin
sum[i]:=a[i,j]+sum[i];
end;
writeln('summa ',i,' stroki = ',sum[i]:3);
end;
 
for j:=1 to 6 do begin
sum[j]:=0;
end;
writeln;
 
for j:=1 to 5 do begin
for i:=1 to 6 do begin
sum[j]:=a[i,j]+sum[j];
end;
writeln('summa ',j,' stolbca',sum[j]:3);
end;
readkey;
end.
Вводит произвольные числа от -9 до 9 складывает строки, и столбцы
0
31.10.2012, 21:25
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.10.2012, 21:25
Привет! Вот еще темы с решениями:

Матрицы. Найти сумму элементов 5-го столбца и сумму элементов последней строки
Даны две матрицы А(mxn) и В(m1xn1). Программа находит и распечатывает сумму...

Подпрограммы. Вычислите сумму элементов каждого столбца для трех исходных матриц и определите наибольшую сумму
Вычислите сумму элементов каждого столбца для трех исходных матриц и определите...

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

Определить сумму найденных элементов строки и столбца
3.Дана квадратная матрица.Если номер столбца с максимальной суммой элементов...


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

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

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