Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Zadiraazat
0 / 0 / 0
Регистрация: 27.05.2014
Сообщений: 13
#1

Дана матрица размером МxN. Найти номер ее строки с наибольшей суммой элементов и вывести данный номер - Turbo Pascal

27.05.2014, 16:16. Просмотров 863. Ответов 3
Метки нет (Все метки)

Помните написать программу с использование функций или процедур
Дана матрица размером МxN. Найти номер ее строки с наибольшей суммой элементов и вывести данный номер, а так же значение наибольшей суммы.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.05.2014, 16:16
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Дана матрица размером МxN. Найти номер ее строки с наибольшей суммой элементов и вывести данный номер (Turbo Pascal):

Найти номер ее столбца с наименьшим произведением элементов и вывести данный номер
Дана матрица размера M×N. Найти номер ее столбца с наименьшим произведением...

Дана прямоугольная матрица. Найти строку с наибольшей суммой элементов
Дана прямоугольная матрица. Найти строку с наибольшей суммой элементов.

Дана прямоугольная матрица. Найти строку с наибольшей и наименьшей суммой элементов
Дана прямоугольная матрица.Найти строку с наибольшей и наименьшей суммой...

Дана матрица А порядка n. Найти номер строки матрицы, в которой больше всего нулевых элементов
Дана матрица А порядка n. Найти номер строки матрицы, в которой больше всего...

дана целочисленная матрица размера 5Х10. вывести её номер первой строки, содержашее разное колличество положительных и отрицательных элементов
помогите ришить пожалуйста по паскалю дана целочисленная матрица размера...

Заполнить двумерный массив (5,4) целыми случайными числами в диапазоне от 0 до 20 и найти номер строки с наибольшей суммой чисел.
Заполнить двумерный массив (5,4) целыми случайными числами в диапазоне от 0 до...

3
tomb2002
32 / 32 / 43
Регистрация: 07.02.2014
Сообщений: 89
27.05.2014, 19:19 #2
Лучший ответ Сообщение было отмечено Zadiraazat как решение

Решение

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
Program MassSum;
USES CRT;
Const
nmax = 10;
Type
myarray = array [1..nmax,1..nmax] of integer;
Var
M, N, st, max : Byte;
 
Procedure Index(M,N:byte);
Var
a         : myarray;
i, j, sum : integer;
Begin
WriteLn;
WriteLn('      Elementi massiva     Cymma ');
WriteLn('  |=============================|');
For i:=1 to M do
  Begin
    write(i,' ');
    sum:=0;
    For j:=1 to N do
      Begin
        a[i,j]:=random(45)+1;
        Write('| ',a[i,j]:3,' ');
        sum:=sum + a[i,j]
      End;
    write('|');
    textcolor(14);
    Write(sum:4);
      if sum > max then
        begin
          max:=sum;
          st:=i;
        end;
    textcolor(7);
    WriteLn(' |');
    If i=M then WriteLn('  |=============================|')
           else WriteLn('  |-----+-----+-----+-----+-----|');
  End;
End;
 
BEGIN
clrscr;
Randomize;
max:=0;
textcolor(7);
Write('Введите кол-во строк не больше ',nmax,' в массиве = ');
ReadLn(M);
Write('Введите кол-во столбцов не больше ',nmax,'  в массиве = ');
ReadLn(N);
Index(M,N);
WriteLn;
WriteLn('Номер строки : ',st);
Write('Максимальная сумма = ',max);
Readkey;
END.
0
Миниатюры
Дана матрица размером МxN. Найти номер ее строки с наибольшей суммой элементов и вывести данный номер  
Zadiraazat
0 / 0 / 0
Регистрация: 27.05.2014
Сообщений: 13
27.05.2014, 22:40  [ТС] #3
спасибо. все работает. вот только таблицу не получается сместить)
0
tomb2002
32 / 32 / 43
Регистрация: 07.02.2014
Сообщений: 89
28.05.2014, 21:33 #4
Сместил таблицу на центр экрана.

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 MassSum;
USES CRT;
Const
nmax = 10;
Type
myarray = array [1..nmax,1..nmax] of integer;
Var
M, N, st, max : Byte;
 
Procedure Index(M,N:byte);
Var
a         : myarray;
i, j, sum : integer;
Begin
WriteLn;
GOTOXY(20,4);WriteLn('        Elementi massiva       Cymma ');
GOTOXY(20,5);WriteLn('  |=================================|');
For i:=1 to M do
  Begin
    GOTOXY(19,2*i+4);
    write(i,' ');
    sum:=0;
    For j:=1 to N do
      Begin
        a[i,j]:=random(45)+1;
        GOTOXY(15+j*7,2*i+4);
        Write('| ',a[i,j]:3,' ');
        sum:=sum + a[i,j]
      End;
    write(' |');
    textcolor(14);
    Write(sum:4);
      if sum > max then
        begin
          max:=sum;
          st:=i;
        end;
    textcolor(7);
    WriteLn(' |');
    If i=M then begin GOTOXY(20,2*i+5);WriteLn('  |=================================|'); end
           else begin GOTOXY(20,2*i+5);WriteLn('  |------+------+------+------+-----|'); end;
  End;
End;
 
BEGIN
clrscr;
Randomize;
max:=0;
textcolor(7);
Write('‚ўҐ¤ЁвҐ Є®«-ў® бва®Є *Ґ Ў®«миҐ ',nmax,' ў ¬ ббЁўҐ = ');
ReadLn(M);
Write('‚ўҐ¤ЁвҐ Є®«-ў® бв®«Ўж®ў *Ґ Ў®«миҐ ',nmax,'  ў ¬ ббЁўҐ = ');
ReadLn(N);
Index(M,N);
WriteLn;
WriteLn('Ќ®¬Ґа бва®ЄЁ : ',st);
Write('Њ ЄбЁ¬ «м* п б㬬  = ',max);
Readkey;
END.
0
Миниатюры
Дана матрица размером МxN. Найти номер ее строки с наибольшей суммой элементов и вывести данный номер  
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.05.2014, 21:33
Привет! Вот еще темы с решениями:

Найти столбец с наибольшей суммой элементов и поменять его местами со строкой, имеющей тот же номер
Заполнить двумерный числовой массив А целыми числами. Найти столбец с...

Прямоугольная матрица. Найти строки с наибольшей и наименьшей суммой элементов
Дана прямоугольная матрица размера m×n. Составить программу, которая находит...

Вывести номер столбца матрицы N*N, который обладает наибольшей суммой модулей элементов. Если таких столбиков несколько, то взять первый из них.
Задание: Вывести номер столбца матрицы N*N, который обладает наибольшей суммой...

Дана матрицы размером 5х10. Вывести номер ее последней строки содержащей только положительные элементы. Если таких строк нет, то вывести 0.
Дана матрицы размером 5х10. Вывести номер ее последней строки содержащей только...


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

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

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