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

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

29.01.2011, 21:13. Просмотров 528. Ответов 1
Метки нет (Все метки)

Всем привет.
Помогите написать код. Задача следующаяя:
В матрице А(n,n) найти максимальный элемент каждого столбца и заменить его элементом, находящимся на побочной диагонали в этом же столбце. Для n>=4 предусмотреть заплнение массива случайными числами в диапозоне от -10 до 10.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.01.2011, 21:13
Я подобрал для вас темы с готовыми решениями и ответами на вопрос В матрице А(n,n) найти максимальный элемент каждого столбца и заменить его элементом находящимся на побочной диаганали в этом же столбце (Turbo Pascal):

В матрице заменить максимальный элемент каждого столбца на противоположный
Матрица 6*7 заполняется случайным образом. 1.В матрице заменить максимальный...

В матрице найти максимальный элемент и поменять его со вторым элементом
в матрице k найти максимальный элемент и поменять его со 2 элесентом срочно...

В каждом столбце матрицы максимальный элемент столбца переставить с первым элементом столбца.
В задание — автоматическое заполнение по формуле: . Дана квадратная матрица...

Найти минимальный элемент в каждом столбце матрицы и поменять его местами с первым элементом этого столбца
Матрица А. Найти минимальный элемент в каждом столбце и поменять его местами с...

Найти максимальный элемент одномерного массива и заменить его первым элементом
Задан одномерный массив целых чисел х(N) , где N-количество элементов....

В матрице 5х3 в первом столбце найти максимальный элемент и поменять его местами с первым
В матрице 5х3 в первом столбце найти максимальный элемент и поменять его...

1
SuPeR XaKer
2844 / 1973 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
29.01.2011, 22:09 #2
Лучший ответ Сообщение было отмечено Fear Beast как решение

Решение

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
Uses
 crt;
Const
 nmax=20;
var
 matr: array [1..nmax,1..nmax] of integer;
 i,j,imax,n,buf: integer;
begin
clrscr;
write('Введите размерность: ');
readln(n);
writeln('Исходная матрица: ');
Randomize;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    matr[i,j]:=Random(21)-10;
    Write(matr[i,j]:5);
   end;
  writeln;
 end;
for j:=1 to n do
 begin
 imax:=1;
  for i:=1 to n do
   if matr[i,j]>matr[imax,j] then
    imax:=i;
  writeln('MAX[',imax,',',j,']:=',matr[imax,j]);
  buf:=matr[imax,j];
  matr[imax,j]:=matr[n-j+1,j];
  matr[n-j+1,j]:=buf;
 end;
writeln('Результирующая матрица: ');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    Write(matr[i,j]:5);
   end;
  writeln;
 end;
readln
end.
Для n>=4 предусмотреть заплнение массива случайными числами в диапозоне от -10 до 10.
Сделал сразу заполнение.Переделывайте сами.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.01.2011, 22:09
Привет! Вот еще темы с решениями:

Найти максимальный элемент и поменять его местами с первым элементом второго столбца массива
Дан двумерный массив, который содержит не более 30 строк и не более 10...

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

Определить максимальный элемент в каждом столбце матрицы и поменять с первым элементом столбца
3.Дана матрица вещественных чисел размерностью MxН определить максимальный...

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


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

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

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