Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.68/19: Рейтинг темы: голосов - 19, средняя оценка - 4.68
Arslan
0 / 0 / 0
Регистрация: 02.07.2014
1

Получить новую матрицу путем деления всех элементов данной матрицы на ее наибольший по модулю элемент

06.12.2008, 23:41. Просмотров 3569. Ответов 4
Метки нет (Все метки)

Дана действительная матрица размера n*m. в которой не все элементы равны нулю. Получить новую матрицу путем деления всех элементов данной матрицы на ее наибольший по модулю элемент.
program zadacha_19;
uses crt;
var
a:array[1..100,1..100] of integer; {исходная матрица}
b:array[1..100,1..100] of single; {конечная матрица}
i:integer; {номер строки}
j:integer; {номер столбца}
n:integer; {количество строк}
m:integer; {количество столбцов}
max:integer; {наибольший по модулю элемент}
begin
clrscr;
writeln ('Количество строк');
readln(n);
writeln ('Количество столбцов');
readln(m);
for i:=1 to n do {ввод элементов исходной матрицы}
for j:=1 to m do
begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
writeln ('Исходная матрица:');
for i:=1 to n do {вывод элементов матрицы}
begin
for j:=1 to m do
begin
write(a[i,j]);
end;
writeln;
end;
max:=abs(a[1,1]); {нахождение наиб. элемента по модулю}
for i:=1 to n do
for j:=1 to m do
begin
if abs(a[i,j])>max then
max:=abs(a[i,j]);
end;
writeln ('Наибольший по модулю элемент: ',max);
for i:=1 to n do {деление каждого эл. нового массива на max}
for j:=1 to m do
begin
b[i,j]:=a[i,j]/max;
end;
writeln(('Конечная матрица:');
for i:=1 to n do {вывод элементов конечной матрицы}
begin
for j:=1 to m do
begin
write(b[i,j]);
end;
writeln;
end;
readln;
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.12.2008, 23:41
Ответы с готовыми решениями:

Получить новую матрицу путем деления всех элементов данной матрицы на её наибольший по модулю элемент.
Дана действительная матрица размером n×m, в которой не все элементы равны 0....

Получить новую матрицу путем деления всех элементов исходной матрицы на ее наибольший по модулю элемент
Дана действительная матрица размера x, в которой не все элементы равны нулю....

Получить новую матрицу путём деления всех элементов исходной матрицы на её максимальной по модулю элемент
Задание. Дана прямоугольная матрица. Получить новую матрицу путём деления всех...

Получить новый массив путем деления всех элементов данного массива на его больший по модулю элемент
Дан действительный массив размерностью n*m, в которой не все элементы равны...

Получить новую матрицу {b ij} n, n, элемент bij которой равен сумме элементов данной матрицы
Данная Действительная квадратная матрица {a ij} n, n. Получить новую матрицу {b...

4
Puporev
Модератор
55472 / 42576 / 29425
Регистрация: 18.05.2008
Сообщений: 100,722
07.12.2008, 15:08 2
Ну и в чем вопрос?
0
arslan1984
0 / 0 / 0
Регистрация: 04.12.2008
Сообщений: 1
07.12.2008, 16:51 3
Цитата Сообщение от Тёма Посмотреть сообщение
где сосиськи компомос

Добавлено через 4 минуты 19 секунд
больше чем у тя урод
Как это будет выглядить в Delphi с вводом/ выводом StringGrid.
0
Puporev
Модератор
55472 / 42576 / 29425
Регистрация: 18.05.2008
Сообщений: 100,722
07.12.2008, 19:22 4
Держи, все как-то некогда было. Кое-что поправил, будут вопросы, спрашивай. На форме красоту наведи.
0
Вложения
Тип файла: rar Матрица-Ф2.rar (3.8 Кб, 166 просмотров)
serious-den
0 / 0 / 0
Регистрация: 06.07.2015
Сообщений: 1
24.06.2009, 17:31 5
Цитата Сообщение от Puporev Посмотреть сообщение
Держи, все как-то некогда было. Кое-что поправил, будут вопросы, спрашивай. На форме красоту наведи.
Спасибо большое очень пригодилось.
0
24.06.2009, 17:31
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.06.2009, 17:31

Дан двумерный массив. Получить новый массив путем деления всех элементов строки на наименьший по модулю эл
Дан двумерный массив. Получить новый массив путем деления всех элементов строки...

Из двумерного массива получить новый путем деления всех эл-тов строки на наименьший по модулю эл-т строки
Дан двумерный массив.Получить новый массив путем деления всех элементов строки...

Найти произведение элементов строки матрицы, содержащие наибольший по модулю элемент
В матрице размера 4х3, все элементы которые различны, найти произведение...


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

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

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