Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
SDVIIG
0 / 0 / 0
Регистрация: 24.05.2015
Сообщений: 3
1

Вычисление суммы элементов нечётных строк матрицы

13.06.2015, 13:14. Просмотров 1030. Ответов 4
Метки нет (Все метки)

Подпрограмма для
1) Вычисления суммы элементов нечётных строк матрицы
2) Перемножения матриц

Причём первое действие должно выполняться для заданной матрицы, а второе для рандомной
Я тут немного написал, но вот дальше что-то не получается
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Program podprog;
type
arr=array [1..5,1..5] of integer;
const
a:arr=((3,4,1,6,2),
(1,5,1,6,7),
(5,4,2,7,1),
(4,5,1,7,3),
(1,8,2,4,3));
var i,j:integer;
b:arr;
function sum(const a:arr):integer;
var
s:integer;
begin
s:=0;
for i:=1to 5 do
if (i mod 1)=0 then
for j:=1 to 5 do
s:=s+a[i,j];
sum :=s;
end;
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.06.2015, 13:14
Ответы с готовыми решениями:

Составить программу вычисления суммы строк элементов матрицы. Вычисление суммы оформть в виде процедуры.
Составить программу вычисления суммы строкэлементов матрицы. Вычисление суммы...

Составить программу вычисления суммы четных строк элементов матрицы. Вычисление суммы и вывод исходных данных оформись в виде процедуры
Составить программу вычисления суммы четных строк элементов матрицы....

Вычисление суммы элементов нечетных строк матрицы
Это лабораторная работа 9 Вычисление суммы элементов нечетных строк матрицы....

Вычисление суммы элементов четных строк матрицы
Помогите пожалуйста, буду благодарен 1. Вычисление суммы элементов четных...

Вычисление суммы элементов четных строк матрицы
Вычисление суммы элементов четных строк матрицы

4
Puporev
Модератор
55060 / 42327 / 29230
Регистрация: 18.05.2008
Сообщений: 100,025
13.06.2015, 15:02 2
Цитата Сообщение от SDVIIG Посмотреть сообщение
а второе для рандомной
А второе выполняется для двух матриц.
http://www.cyberforum.ru/post7444343.html
1
SDVIIG
0 / 0 / 0
Регистрация: 24.05.2015
Сообщений: 3
14.06.2015, 07:30  [ТС] 3
Ну у меня получилась такая вот кракозёбра, ошибок в ней немало, начиная с 23 строки : Переменная цикла for должна описываться в том же блоке, что и цикл for.
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
Program podprog;
uses crt;
type
aw = array [1..5,1..5] of integer;
bw = array [1..5,1..5] of integer;
arr=array [1..5,1..5] of integer;
c = array [1..5,1..5] of integer;
const
a:arr=((3,4,1,6,2),
(1,5,1,6,7),
(5,4,2,7,1),
(4,5,1,7,3),
(1,8,2,4,3));
var i,j,k:integer;
b:arr;
q:aw;
z:bw;
function sum(const a:arr):integer;
var
s:integer;
begin
s:=0;
for i:= 1 to 5 do
if (i mod 1)=0 then
for j:=1 to 5 do
s:=s+a[i,j];
sum :=s;
end;
procedure ymm (q:aw; var z:bw);
begin
for i:=1 to n do
for j:=1 to n do
 begin
  c[i,j]:=0;
  for k:=1 to n do
  c[i,j]:=c[i,j]+q[i,k]*z[k,j];
 end;
end;
begin
clrscr;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    q[i,j]:=random(5)+1;
end;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    z[i,j]:=random(5)+1;
end;
writeln (sum(a));
end;
ymm (q,z);
writeln;
readln;
end;
end.
В общем Help
0
Puporev
Модератор
55060 / 42327 / 29230
Регистрация: 18.05.2008
Сообщений: 100,025
14.06.2015, 07:46 4
Лучший ответ Сообщение было отмечено SDVIIG как решение

Решение

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
70
71
72
73
74
75
uses crt;
const n=5;
type mtr=array [1..n,1..n] of integer;
const a:mtr=((3,4,1,6,2),
            (1,5,1,6,7),
            (5,4,2,7,1),
            (4,5,1,7,3),
            (1,8,2,4,3));
function sum:integer;
var i,j:byte;
    s:integer;
begin
s:=0;
for i:=1 to n do
if odd(i) then
for j:=1 to n do
s:=s+a[i,j];
sum :=s;
end;
procedure ymm (q,z:mtr; var c:mtr);
var i,j,k:byte;
begin
for i:=1 to n do
for j:=1 to n do
 begin
  c[i,j]:=0;
  for k:=1 to n do
  c[i,j]:=c[i,j]+q[i,k]*z[k,j];
 end;
end;
var i,j:integer;
    q,z,c:mtr;
begin
clrscr;
writeln('Матрица A');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln
 end;
writeln('Сумма элементов в нечетных строках=',sum);
write('Нажмите Enter');
readln;
clrscr;
writeln('Матрица Q');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    q[i,j]:=random(5)+1;
    write(q[i,j]:4);
   end;
  writeln
 end;
writeln('Матрица Z');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    z[i,j]:=random(5)+1;
    write(z[i,j]:4);
   end;
  writeln
 end;
ymm (q,z,c);
writeln('Матрица C=Q*Z');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(c[i,j]:4);
  writeln
 end;
readln;
end.
1
SDVIIG
0 / 0 / 0
Регистрация: 24.05.2015
Сообщений: 3
14.06.2015, 07:58  [ТС] 5
Благодарю)
0
14.06.2015, 07:58
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.06.2015, 07:58

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

Найти суммы элементов всех её нечётных строк
Составить блок-схему алгоритма и написать программу обработки двумерного...

Сформировать одномерный массив из нечётных элементов нечётных столбцов матрицы
Сформировать одномерный массив из нечётных элементов нечётных столбцов матрицы...


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

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

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