Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
2 / 2 / 3
Регистрация: 06.10.2009
Сообщений: 123
1

Вычисление суммы положительных элементов каждой строки матрицы (подпрограмма)

16.11.2009, 21:01. Показов 1312. Ответов 1
Метки нет (Все метки)

1. Написать программу решения следующей задачи: Вычислить и запомнить суммы положительных элементов каждой строки матриц A(6,6) и B(5,5).

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

то есть саму прогу без функции !!!

вот я пытался сделать Вычислить и запомнить суммы положительных элементов пока для матрицы A(6,6),но не пполучилось
направьте на путь, знаю,что надоел,но ужж извините меня



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
var i,j:integer;
a:array[1..100,1..100] of real;
S:array[1..100] of real;
begin
for i:=1 to 6 do
 
for j:=1 to 6 do
begin
writeln('Ââåäèòå a','[',i ,']', '[',j,']=');
read(a[i,j]);
end;
 
for i:=1 to 6 do
begin
 
s[i]:=0;
for j:=1 to 6 do
 
 
 
if a[i,j]>0 then
 
s[i]:=s[i]+a[i,j];
end;
 
for i:=1 to 6 do
 
writeln('Ñóììà ïîëîæèòåëüíûõ ýëåìåíòîâ ìàòðèöû ðàâíà =', S[i]);
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.11.2009, 21:01
Ответы с готовыми решениями:

Вычислить суммы положительных элементов каждой строки матрицы X(10x10)
вычислить суммы положительных элементов каждой строки матрицы X(10x10), определить наибольшее...

Из суммы положительных элементов каждой строки матрицы сформировать новый массив.
Дан двумерный массив целых чисел, состоящий из n строк и mстолбцов, заполненный случайным...

Найти суммы положительных и отрицательных элементов каждой строки матрицы отдельно и вывести их на экран
Привет, всем. Народ где ошибка у меня в задачи? Сформировать двумерный массив А размером 5*7 с...

Вычисление суммы элементов матрицы, замена положительных элементов отрицательными, подсчет нулей
Помогите пожалуйста с написанием программы.... С помощью оператора case организовать диалоговое...

1
Модератор
63394 / 47082 / 32451
Регистрация: 18.05.2008
Сообщений: 114,122
17.11.2009, 08:24 2
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
uses crt;
type mas=array[1..6] of integer;
     matr=array[1..6] of mas;
procedure Vvod(var mt:matr;x:byte;c:char);
var i,j:byte;
begin
writeln('Матрица ',c);
for i:=1 to x do
 begin
  for j:=1 to x do
   begin
    mt[i,j]:=random(20)-5;
    write(mt[i,j]:5);
   end;
  writeln;
 end;
end;
function Summ(v:mas;x:byte):integer;
var i:byte;
    s:integer;
begin
s:=0;
for i:=1 to x do
if v[i]>0 then s:=s+v[i];
Summ:=s;
end;
procedure Vektor(mt:matr;x:byte;var v:mas;c:string);
var i:byte;
begin
writeln('Вектор ',c);
for i:=1 to x do
 begin
  v[i]:=Summ(mt[i],x);
  write(v[i],' ');
 end;
writeln;
writeln;
end;
var a,b:matr;
    va,vb:mas;
begin
clrscr;
randomize;
Vvod(a,6,'A');
Vektor(a,6,va,'Va');
Vvod(b,5,'B');
Vektor(b,5,vb,'Vb');
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.11.2009, 08:24

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Вычислить суммы положительных элементов каждой матрицы X(10x10)
вычислить суммы положительных элементов каждой матрицы X(10x10), определить наибольшее значение...

Вычислить суммы положительных элементов каждой строки для матриц A(10,12) и B(15,10)
Вычислить суммы положительных элементов каждой строки для матриц A(10,12) и B(15,10). вот...

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

Вычисление суммы положительных элементов матрицы A, стоящих выше побочной диагонали
Составьте программу вычисления суммы положительных элементов матрицы A, стоящих выше побочной...


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

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

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