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

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

10.12.2012, 12:22. Просмотров 1113. Ответов 4
Метки нет (Все метки)

Вычислить суммы положительных элементов каждой строки для данных двумерных таблиц A(n,m) и B(k,t) на Паскале

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

0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.12.2012, 12:22
Ответы с готовыми решениями:

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

Вычислить суммы положительных элементов каждой строки для матриц А(4,5) в виде блок схемы
пожалуйста сделайте Вычислить суммы положительных элементов каждой строки для...

Вычисление суммы положительных элементов каждой строки матрицы
Использование суб-функцию для вычисления суммы положительных элементов каждой...

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

Вычислить суммы элементов каждой строки матрицы
помогите пожалуста. Задана матрица A(5,4). Вычислить суммы элементов каждой...

4
ermolay
3430 / 2369 / 2131
Регистрация: 04.12.2011
Сообщений: 3,965
10.12.2012, 16:39 #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
50
51
52
53
54
55
56
57
58
59
60
61
const
  nmax=20;
  
type
  ar=array[1..nmax,1..nmax] of integer;
  
procedure init(var a: ar; n,m: byte);
var i,j: byte;
begin
  for i:=1 to n do
    for j:=1 to m do
      a[i,j]:=random(199)-99;
end;
 
procedure outPut(a: ar; n,m: byte);
var i,j: byte;
begin
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(a[i,j]:4);
    writeln;
  end;
  writeln;
end;
 
procedure summa(a: ar; n,m: byte);
var 
  i,j: byte;
  sum: integer;
begin
  for i:=1 to n do
  begin
    for j:=1 to m do
      if a[i,j]>0 then sum:=sum+a[i,j];
    writeln('Сумма положительных элементов ',i,' строки = ',sum);
  end;
  writeln;
end;
 
var
  a,b: ar;
  n,m,k,t: byte;
begin
  randomize;
  write('Введите размеры n, m первой матрицы: ');
  readln(n,m);
  write('Введите размеры k, t второй матрицы: ');
  readln(k,t);
  
  init(a,n,m);
  writeln('Первая матрица:');
  outPut(a,n,m);
  summa(a,n,m);
 
  init(b,k,t);
  writeln('Вторая матрица:');
  outPut(b,k,t);
  summa(b,k,t);
  readln;
end.
3
nadya1994
0 / 0 / 0
Регистрация: 08.12.2012
Сообщений: 8
12.12.2012, 15:14  [ТС] #3
спасибо большое)))


 Комментарий модератора 
правила форума, п.3.6 Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста.
0
Hooch13
0 / 0 / 0
Регистрация: 11.09.2013
Сообщений: 26
23.10.2013, 12:18 #4
Ребят, а можно сделать так, чтобы ответ записывался не вот так 'Сумма положительных элементов ',i,' строки = ',sum);
А чтобы создавалась матрица в одну строчку и через ',' выписывались все положительные элементы
0
ermolay
3430 / 2369 / 2131
Регистрация: 04.12.2011
Сообщений: 3,965
23.10.2013, 17:02 #5
Hooch13, подправил прежнее решение
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
const
  nmax=20;
 
type
  ar=array[1..nmax,1..nmax] of integer;
 
procedure init(var a: ar; n,m: byte);
var i,j: byte;
begin
  for i:=1 to n do
    for j:=1 to m do
      a[i,j]:=random(199)-99;
end;
 
procedure outPut(a: ar; n,m: byte);
var i,j: byte;
begin
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(a[i,j]:4);
    writeln;
  end;
end;
 
procedure summa(a: ar; n,m: byte);
var
  i,j: byte;
  sum: integer;
begin
  writeln('Ñóììû ïîëîæèòåëüГ*ûõ ýëåìåГ*òîâ ñòðîê:');
  for i:=1 to n do
  begin
    sum:=0;
    for j:=1 to m do
      if a[i,j]>0 then sum:=sum+a[i,j];
    if i=n then write(sum,'.') else write(sum,', ');
  end;
  writeln; writeln;
end;
 
var
  a,b: ar;
  n,m,k,t: byte;
begin
  randomize;
  write('Ââåäèòå Г°Г*çìåðû n, m ïåðâîé Г¬Г*òðèöû: ');
  readln(n,m);
  write('Ââåäèòå Г°Г*çìåðû k, t âòîðîé Г¬Г*òðèöû: ');
  readln(k,t);
 
  init(a,n,m);
  writeln('ÏåðâГ*Гї Г¬Г*òðèöГ*:');
  outPut(a,n,m);
  summa(a,n,m);
 
  init(b,k,t);
  writeln('ÂòîðГ*Гї Г¬Г*òðèöГ*:');
  outPut(b,k,t);
  summa(b,k,t);
  readln;
end.
1
23.10.2013, 17:02
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.10.2013, 17:02

Вычислить суммы элементов каждой строки матрицы
Задача№1: Вычислите суммы элементов каждой строки матрицы B(8;8), определите...

Вычислить в программе-процедуре суммы Sn элементов каждой строки матрицы
Пожалуйста помогите с задачей?(( то мне конец!(( Вычислить в...

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


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

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

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