Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
Андрей_Андре
0 / 0 / 0
Регистрация: 04.09.2013
Сообщений: 15
#1

Подпрограммы: найти максимальное значение абсолютных величин элементов каждой матрицы

04.09.2013, 12:38. Просмотров 623. Ответов 1
Метки нет (Все метки)

найти максимальное значение абсолютных величин элементов каждой матрицы A(n m) , B(k l) , C(p x).
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.09.2013, 12:38
Ответы с готовыми решениями:

В заданной матрице найти минимум сумм абсолютных величин элементов матрицы по столбцам
в заданной матрице a(n*m) найдите минимум всех сумм абсолютных величин...

Найти минимальное/максимальное значение в каждой строке/столбце матрицы
Помогите пожалуйста составить программу Т_Т: Дана матрица размера 5 x 10. Найти...

Найти максимальное значение матрицы и индексы всех элементов, равных ему
В целочисленной матрице размером 10x10 найдите максимальное значение и индексы...

Найти наименьшее значение элементов каждой строчки матрицы А
Товарищи помогите пожалуйста 1) дана матрица А размера m n x. Найти наименьшее...

Упорядочьте строки матрицы по возрастанию их величин. (Подпрограммы)
Нужно решить задачу: Упорядочьте строки матрицы по возрастанию их величин....

1
ermolay
3430 / 2369 / 2131
Регистрация: 04.12.2011
Сообщений: 3,965
04.09.2013, 15:58 #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
62
const
  nmax=20;
 
type
  tar=array[1..nmax,1..nmax] of integer;
 
procedure init(var ar: tar; n1,m1: integer);
var i,j: integer;
begin
  for i:=1 to n1 do
    for j:=1 to m1 do
      ar[i,j]:=random(199)-99;
end;
 
procedure output(ar: tar; n1,m1: integer);
var i,j: integer;
begin
  writeln('ГЊГ*Г±Г±ГЁГў:');
  for i:=1 to n1 do
  begin
    for j:=1 to m1 do
      write(ar[i,j]:4);
    writeln;
  end;
  writeln;
end;
 
function maxim(ar: tar; n1,m1: integer): integer;
var
  max,i,j: integer;
begin
  max:=abs(ar[1,1]);
  for i:=1 to n1 do
    for j:=1 to m1 do
      if abs(ar[i,j])>abs(max) then max:=ar[i,j];
  maxim:=max;
end;
 
var
  a,b,c: tar;
  n,m,k,l,p,x: integer;
begin
  randomize;
  write('Ââåäèòå Г°Г*çìåðû Г¬Г*Г±Г±ГЁГўГ* n, m: ');
  readln(n,m);
  init(a,n,m);
  output(a,n,m);
  writeln('ГЊГ*ГЄГ±ГЁГ¬Г*ëüГ*ûé ýëåìåГ*ГІ = ',maxim(a,n,m));
  
  write('Ââåäèòå Г°Г*çìåðû Г¬Г*Г±Г±ГЁГўГ* k, l: ');
  readln(k,l);
  init(b,k,l);
  output(b,k,l);
  writeln('ГЊГ*ГЄГ±ГЁГ¬Г*ëüГ*ûé ýëåìåГ*ГІ = ',maxim(b,k,l));
  
  write('Ââåäèòå Г°Г*çìåðû Г¬Г*Г±Г±ГЁГўГ* p, x: ');
  readln(p,x);
  init(c,p,x);
  output(c,p,x);
  writeln('ГЊГ*ГЄГ±ГЁГ¬Г*ëüГ*ûé ýëåìåГ*ГІ = ',maxim(a,n,m));
  readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.09.2013, 15:58

Найти сумму элементов каждой четной строки матрицы и произведение элементов каждой нечетной
В матрице D(10,15) найти сумму элементов каждой четной строки и...

Найти максимальное и минимальное значение матрицы
Дан двухмерный массив найти его Макс. И мин. Значения.

Разработать программу, которая находит максимальное значение и его расположение среди элементов матрицы
Задана матриця X(n,n) , n ≤15 та множини номерів рядків S1 і стовпців S2 ....


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

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

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