Форум программистов, компьютерный форум, киберфорум
Наши страницы

PascalABC.NET

Войти
Регистрация
Восстановить пароль
 
EltonFir
0 / 0 / 0
Регистрация: 18.01.2014
Сообщений: 19
#1

Посчитать суммы столбцов массива, используя цикл - PascalABC.NET

11.06.2014, 04:04. Просмотров 216. Ответов 1
Метки нет (Все метки)

Есть программа которая должна посчитать суммы столбцов массива, помогите пожалуйста сделать цикл.
Вот программа:
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
const
  n = 4;
  m = 6;
 
type
  mas = array[1..n,1..m] of integer;
 
var
  i,j: integer;
  sum1,sum2,sum3,sum4:integer;
  A: mas;
 
begin
{
  Заполнение массива
}
For i:=1 to n do
  Begin
    For j:= 1 to m do
      A[i,j]:=random(11);
  End;
{
  Вывод массива
}
For i:= 1 to n do
  Begin
    For j:= 1 to m do
      Write('[',A[i,j],']');
      WriteLN;
  End;
{
  Вычисление суммы
}
j:=1;
  For i:= 1 to n do
      sum1:=sum1+A[i,j];
 
j:=2;
  For i:= 1 to n do
      sum2:=sum2+A[i,j];
      
j:=3;
  For i:= 1 to n do
      sum3:=sum3+A[i,j];
 
j:=4;
  For i:= 1 to n do
      sum4:=sum4+A[i,j];
 
WriteLN('--------------------');
Write('[',sum1,']','[',sum2,']','[',sum3,']','[',sum4,']');
  end.
А вот что нужно поправить, я не знаю как сделать. :с

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
j:=1;
  For i:= 1 to n do
      sum1:=sum1+A[i,j];
 
j:=2;
  For i:= 1 to n do
      sum2:=sum2+A[i,j];
      
j:=3;
  For i:= 1 to n do
      sum3:=sum3+A[i,j];
 
j:=4;
  For i:= 1 to n do
      sum4:=sum4+A[i,j];
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.06.2014, 04:04
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Посчитать суммы столбцов массива, используя цикл (PascalABC.NET):

Цикл: посчитать количество положительных нечетных чисел - PascalABC.NET
напишите программу надо вводить с клавиатуры целые числа она должна посчитать количество положительных нечетных чисел обращаю...

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

Суммы элементов столбцов матрицы - Pascal
неподддаётся решению задачка помагите плиз!!!!!!!!!!!!! В матрице размером n на m (1<n, m<10)(ввод n,m и матрицы с клавиатуры) в каждом...

Подсчитать используя цикл for.to.do - Pascal
S=1*2+...+2*3*4+...+n*(n+1)*...*2*n;

Найти суммы всех строк массива и вывести все суммы на экран - PascalABC.NET
Вести массив состоящий из 5 строк по 6 вещественных чисел в строке. Найти суммы всех строк и вывести все суммы на экран.

Вычислить разность суммы положительных и абсолютного значения суммы отрицательных элементов массива - Pascal
Ввести с клавиатуры вещественный массив из n элементов (задано константой). Вычислить разность суммы положительных и абсолютного значения...

1
ermolay
3421 / 2360 / 686
Регистрация: 04.12.2011
Сообщений: 3,963
11.06.2014, 09:14 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Цитата Сообщение от EltonFir Посмотреть сообщение
А вот что нужно поправить
Оно как бы правильно, но не очень рационально (здесь добавлены еще два столбца):
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
const
  n = 4;
  m = 6;
 
type
  mas = array[1..n, 1..m] of integer;
 
var
  i, j: integer;
  sum1, sum2, sum3, sum4, sum5, sum6: integer;
  A: mas;
 
begin
  {
    Заполнение массива
  }
  for i := 1 to n do
  begin
    for j := 1 to m do
      A[i, j] := random(11);
  end;
  {
    Вывод массива
  }
  for i := 1 to n do
  begin
    for j := 1 to m do
      Write('[', A[i, j], ']');
    WriteLN;
  end;
  {
    Вычисление суммы
  }
  j := 1;
  for i := 1 to n do
    sum1 := sum1 + A[i, j];
  
  j := 2;
  for i := 1 to n do
    sum2 := sum2 + A[i, j];
  
  j := 3;
  for i := 1 to n do
    sum3 := sum3 + A[i, j];
  
  j := 4;
  for i := 1 to n do
    sum4 := sum4 + A[i, j];
    
  j := 5;
  for i := 1 to n do
    sum5 := sum5 + A[i, j];
    
  j := 6;
  for i := 1 to n do
    sum6 := sum6 + A[i, j];
  
  WriteLN('--------------------');
  Write('[', sum1, ']', '[', sum2, ']', '[', sum3, ']', '[', sum4, ']', '[', sum5, ']','[', sum6, ']');
end.
так будет значительно короче:
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
const
  n = 4;
  m = 6;
 
type
  mas = array[1..n, 1..m] of integer;
 
var
  i, j: integer;
  sum: integer;
  A: mas;
 
begin
  {
    Заполнение и вывод массива
  }
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      A[i, j] := random(11);
      write(A[i, j]:4);
    end;
    writeln;
  end;
  
  WriteLN('   --------------------');
  {
    Вычисление суммы
  }
  for j := 1 to m do
  begin
    sum := 0;
    for i := 1 to n do
      sum := sum + A[i, j];
    write(sum:4);
  end;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.06.2014, 09:14
Привет! Вот еще темы с ответами:

Программа находит суммы столбцов матрицы - Pascal
Вечер добрый! uses crt; const n=3; m=4; var a:array of integer; sum:array of integer; i,j:integer; begin

Вычислить, используя один цикл - Pascal
Вычислить, используя один цикл: S=\sum_{i=1}^{8}i^2+\sum_{i=4}^{25}i+\sum_{i=16}^{49}\sqrt{i}

Написать программу используя цикл for - Pascal
Написать программу, которая выводит таблицу значений функции у =|х + 2|. Диапазон изменения аргумента — от -4 до 4. плииииз помогите

Нарисовать пирамидку, используя цикл For - PascalABC.NET
Здравствуйте ещё раз). Как можно нарисовать пирамидку, используя цикл For ? Я составил программу, где части пирамиды с боку и сверху...


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

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

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