0 / 0 / 0
Регистрация: 27.10.2015
Сообщений: 28

Найти максимальный элемент среди стоящих на главной и побочной диагоналях матрицы

25.11.2015, 23:52. Показов 995. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
составить программу заданной обработки матрицы целых чисел,используя перестановки элементов внутри массива не создавая новых.заполнение исходного массива организовать с помощью генератора случайных чисел.исходный и обработанный массив выводить на экран.

дана матрица A(m*n) все элементы которой различны.найти наибольший элемент среди стоящих на главной и побочной диагоналях и поменять ее местами с элементом стоящим на пересечении этих диагоналей.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
25.11.2015, 23:52
Ответы с готовыми решениями:

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

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

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

3
 Аватар для JuriiMW
5091 / 2659 / 2353
Регистрация: 10.12.2014
Сообщений: 10,055
26.11.2015, 10:06
У матрицы размера 3х5 как найти элементы диагоналей?
0
охотник
 Аватар для vint-81
1011 / 535 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
26.11.2015, 15:48
Кликните здесь для просмотра всего текста
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
69
70
71
72
73
74
const nmax=20;mmax=20;
type mas=array[1..nmax,1..mmax] of integer;
var a:mas;
    n,m,i,j,tmp:integer;
procedure vmas(var x:mas);
var i,i1,j,j1,k,tmp:integer;
begin
 randomize;k:=1;
 for i:=1 to n do
  for j:=1 to m do
   begin
    a[i,j]:=k;inc(k)
   end;
 for i:=1 to n do
  for j:=1 to m do
   begin
    i1:=1+random(n);j1:=1+random(m);
    tmp:=a[i,j];a[i,j]:=a[i1,j1];a[i1,j1]:=tmp
   end
end;
procedure omas(x:mas;s:string);
var i,j:integer;
begin
 writeln(s);
 for i:=1 to n do
  begin
   for j:=1 to m do write(x[i,j]:3);
   writeln
  end
end;
function maxgld(x:mas):integer;
var i,max:integer;
begin
  max:=1;i:=2;
  while (i<=n)and(i<=m) do
   begin
    if a[i,i]>a[max,max]then max:=i;
    inc(i)
   end;
  maxgld:=max
 end;
function maxpod(x:mas):integer;
var i,max,nm:integer;
begin
  if n>m then nm:=m else nm:=n;
  max:=n;i:=n-1;
  while (i>=1)and(n-i+1<=nm)do
   begin
    if a[i,n-i+1]>a[max,n-max+1] then max:=i;
    dec(i)
   end;
 maxpod:=max
end;
procedure zam(var a:mas;ig,ip:integer);
var tmp:integer;
begin
 tmp:=a[ig,ig];a[ig,ig]:=a[ip,n-ip+1];a[ip,n-ip+1]:=tmp
end;
begin
 writeln('введите n и m: ');readln(n,m);
 vmas(a);omas(a,'A:');
 i:=maxgld(a);j:=maxpod(a);
 writeln('максимальный элемент на главной диагонали: ',a[i,i]);
 writeln('максимальный элемент на побочной диагонали: ',a[j,n-j+1]);
 if (not odd(n))or(n div 2>m) 
  then writeln('нет элемента на пересечении диагоналей')
  else
   begin
    if a[i,i]>a[j,n-j+1] 
      then begin tmp:=a[i,i];a[i,i]:=a[n div 2+1,n div 2+1];a[n div 2+1,n div 2+1]:=tmp end
      else begin tmp:=a[j,n-j+1];a[j,n-j+1]:=a[n div 2+1,n div 2+1];a[n div 2+1,n div 2+1]:=tmp end;
    omas(a,'A'':')
   end 
end.
0
0 / 0 / 0
Регистрация: 27.10.2015
Сообщений: 28
26.11.2015, 21:40  [ТС]
отлично все работает спасибо большое
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
26.11.2015, 21:40
Помогаю со студенческими работами здесь

Найти наибольший элемент среди стоящих на главной и побочной диагоналях
14.Дана действительная квадратная матрица порядка N (N — нечетное), все элементы которой различны. Найти наибольший элемент среди стоящих...

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

Наибольший элемент среди стоящих на главной и побочной диагоналях поменять местами с элементом , стоящим на пересичении этих диагоналей.
В квадратном массиве из n строк , где n - нечетное число , все элементы различны.Наибольший элемент среди стоящих на главной и побочной...

Найти наибольший элемент матрицы среди стоящих на главной и побочной диагоналях
Дана действительная квадратная матрица порядка N (N — нечетное), все элементы которой различны. Найти наибольший элемент среди стоящих...

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


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

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

Новые блоги и статьи
Шаблоны и протоколы для создания устойчивых микросервисов
ArchitectMsa 19.04.2025
Микросервисы — архитектурный подход, разбивающий сложные приложения на небольшие, независимые компоненты. Вместо монолитного гиганта, система превращается в созвездие небольших взаимодействующих. . .
Изменяемые и неизменяемые типы в Python
py-thonny 19.04.2025
Python славится своей гибкостью и интуитивной понятностью, а одна из главных его особенностей — это система типов данных. В этом языке все, включая числа, строки, функции и даже классы, является. . .
Интеграция Hangfire с RabbitMQ в проектах C#.NET
stackOverflow 18.04.2025
Разработка современных . NET-приложений часто требует выполнения задач "за кулисами". Это может быть отправка email-уведомлений, генерация отчётов, обработка загруженных файлов или синхронизация. . .
Построение эффективных запросов в микросервисной архитектуре: Стратегии и практики
ArchitectMsa 18.04.2025
Микросервисная архитектура принесла с собой много преимуществ — возможность независимого масштабирования сервисов, технологическую гибкость и четкое разграничение ответственности. Но как часто бывает. . .
Префабы в Unity: Использование, хранение, управление
GameUnited 18.04.2025
Префабы — один из краеугольных элементов разработки игр в Unity, представляющий собой шаблоны объектов, которые можно многократно использовать в различных сценах. Они позволяют создавать составные. . .
RabbitMQ как шина данных в интеграционных решениях на C# (с MassTransit)
stackOverflow 18.04.2025
Современный бизнес опирается на множество специализированных программных систем, каждая из которых заточена под решение конкретных задач. CRM управляет отношениями с клиентами, ERP контролирует. . .
Типы в TypeScript
run.dev 18.04.2025
TypeScript представляет собой мощное расширение JavaScript, которое добавляет статическую типизацию в этот динамический язык. В JavaScript, где переменная может свободно менять тип в процессе. . .
Погружение в Kafka: Концепции и примеры на C# с ASP.NET Core
stackOverflow 18.04.2025
Apache Kafka изменила подход к обработке данных в распределенных системах. Эта платформа потоковой передачи данных выходит далеко за рамки обычной шины сообщений, предлагая мощные возможности,. . .
Коммуникация в реальном времени с SignalR в C# на примере создания чата
UnmanagedCoder 17.04.2025
Современный веб стремительно эволюционирует от статичных страниц к динамичным приложениям, где пользователи ожидают мгновенной реакции на свои действия. Представим, что вы отправляете сообщение. . .
Реализация CQRS с MediatR на C# .NET
stackOverflow 17.04.2025
Современная разработка программного обеспечения постоянно ищет пути повышения эффективности организации кода. Архитектурные паттерны появляются, эволюционируют, и те, что проявляют свою. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru