С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
impuls__s
0 / 0 / 0
Регистрация: 10.02.2010
Сообщений: 37
1

Вычислить максимальный по модулю элемент матрицы

11.09.2010, 18:39. Просмотров 868. Ответов 1
Метки нет (Все метки)

Необходимо ввод исходных данных и их контрольный вывод оформить как процедуры, а обработку - в виде функции или процедуры. Привести как минимум два тестирующих примера.

Задание. Даны три матрицы А,В,С. Вычислить !!А!!+!!В!!+!!С!!, где !!Х!! - максимальный по модулю элемент матрицы.

если, кто знает помогите мне пожалуйста и если не сложно полную программку....
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.09.2010, 18:39
Ответы с готовыми решениями:

Найти максимальный по модулю элемент матрицы
Задана матрица размером n × m. Найти максимальный по модулю элемент матрицы....

Определить максимальный по модулю элемент матрицы
Задан двумерн. Массив, определить максимальный по модулю элемент

Найти максимальный по модулю элемент матрицы.
Задана матрица А размером n х m. Найти максимальный по модулю элемент матрицы....

Найдите максимальный по модулю элемент матрицы
2.Задана матрица А действительных чисел размерами 5x5.Найдите максимальный по...

Найдите максимальный по модулю элемент матрицы
Найдите максимальный по модулю элемент матрицы М (5,6), номер его строки и...

1
Puporev
Модератор
55502 / 42592 / 29442
Регистрация: 18.05.2008
Сообщений: 100,751
11.09.2010, 19:11 2
Лучший ответ Сообщение было отмечено impuls__s как решение

Решение

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
63
64
65
66
67
68
uses crt;
const nmax=20;
type matr=array[1..nmax,1..nmax] of integer;
procedure Vvod(var a:matr;var n,m:byte;c:char);
var i,j:byte;
begin
writeln('Матрица ',c);
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(51)-25;
clrscr;
end;
procedure Vyvod(var a:matr;n,m:byte;c:char);
var i,j:byte;
begin
writeln('Матрица ',c);
for i:=1 to n do
 begin
   for j:=1 to m do
   write(a[i,j]:4);
   writeln;
 end;
end;
function Max(a:matr;n,m:byte):integer;
var i,j:byte;
    mx:integer;
begin
mx:=abs(a[1,1]);
for i:=1 to n do
for j:=1 to m do
if abs(a[i,j])>mx then mx:=a[i,j];
Max:=mx;
end;
 
var a,b,c:matr;
    k,am,an,bm,bn,cm,cn:byte;
    s:integer;
    w:char;
begin
clrscr;
randomize;
writeln('Выполните не менее двух тестов:');
k:=0;
repeat
clrscr;
Vvod(a,an,am,'A');
Vvod(b,bn,bm,'B');
Vvod(c,cn,cm,'C');
Vyvod(a,an,am,'A');
writeln('Максимальный по модулю=',Max(a,an,am));
Vyvod(b,bn,bm,'B');
writeln('Максимальный по модулю=',Max(b,bn,bm));
Vyvod(c,cn,cm,'C');
writeln('Максимальный по модулю=',Max(c,cn,cm));
writeln('Сумма максимальных по модулю=',Max(a,an,am)+Max(b,bn,bm)+Max(c,cn,cm));
k:=k+1;
writeln('Продолжить? y/Y');
readln(w);
until not(w in ['y','Y'])and(k>1);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.09.2010, 19:11

Найти максимальный по модулю элемент матрицы размером nxm
Задана матрица размером nxm. Найти максимальный по модулю элемент матрицы....

Переставить строки и столбцы матрицы таким образом, чтобы максимальный по модулю элемент был расположен на пересечении k-й строки и k-го столбца.
задана матрица размером M x N. Найти максимальный по модулю элемент...

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


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

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

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