Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
guess
0 / 0 / 0
Регистрация: 10.11.2009
Сообщений: 13
1

Массив и диагонали

10.11.2009, 23:11. Просмотров 436. Ответов 3
Метки нет (Все метки)

Помогите пожалуйста решить.
Дана действительная квадратная матрица порядка n, все элементы которой различны. Найти наибольший элемент среди стоящих на главной и побочной диагоналях и поменять его местами с элементом, стоящим на пересечении этих диагоналей.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.11.2009, 23:11
Ответы с готовыми решениями:

Целочисленный массив. Найти сумму элементов его правой диагонали и произведение элементов левой диагонали
Дан целочисленный массив В. Найти сумму элементов его правой диагонали и...

Дан двумерный массив размером 10*10. Вывести на экран часть массива расположенную выше главной диагонали. Массив заполняется случайными числами.
Дан двумерный массив размером 10*10. Вывести на экран часть массива...

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

Массив: поменять местами диагонали
Дан массив размером Ann. В нем есть главная и побочная диагонали. За главной...

Массив. Рассчитать среднее арифметическое главной диагонали
нарисовать блок схему : дано 7значное число. определить есть ли в нем...

3
Inadequate
Retired
7710 / 2543 / 670
Регистрация: 17.10.2009
Сообщений: 5,100
10.11.2009, 23:21 2
guess, условие какое то неверное, представим такую ситуацию, дана матрица 4х4, тогда подумайте немного и вы сами поймете что такого элемента в матрице нет.. Поэтому у вас наверняка должны быть матрицы нечетного порядка, т.е. n>1 и odd(n)=true
0
guess
0 / 0 / 0
Регистрация: 10.11.2009
Сообщений: 13
10.11.2009, 23:35  [ТС] 3
Inadequate, наверно опечатка в учебнике.. можете помочь с программой, если принять во внимание ваше условие?
0
Inadequate
Retired
7710 / 2543 / 670
Регистрация: 17.10.2009
Сообщений: 5,100
11.11.2009, 00:19 4
guess, да сейчас дорешаю и помогу.

Добавлено через 24 минуты
guess, уже почти дорешал но возник еще один логический вопрос, максимумы главной и побочной диагоналей меняют один и тот элемент. Что сначала вам менять элемент главной а потом элемент побочной, или наоборот?

Добавлено через 42 секунды
Извините туплю, понял что нужно сделать шас пришлю решение

Добавлено через 16 минут
вот решение:
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
uses
  crt;
const
  n=3;{здесь меняете порядок матрицы только на нечетные значения}
var
  a:array [1..n,1..n] of real;
  i,j,tempj,tempi:integer;
  temp,max:real;
begin
  clrscr;
  {здесь еще можно проверку на нечетный порядок сделать чтобы прога чушь не считала}
  if (odd(n)=false) or (n=1) then
  begin
    writeln('Неверно задан порядок матрицы!');
    exit
  end;
  {заполняем и выыводим матрицу}
  writeln('Исходная матрица:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j]:2:0,' ')
    end;
    writeln
  end;
  {определяем максимум главной и побочной диагоналей}
  max:=a[1,1];
  tempi:=1;
  tempj:=1;
  for i:=1 to n do
    for j:=1 to n do
      if (i=j) or (n-i+1=j) then
        if a[i,j]>max then
        begin
          max:=a[i,j];
          tempi:=i;
          tempj:=j
        end;
  writeln('Максимум диагоналей = ',max,'. Это элемент a[',tempi,',',tempj,']');
  temp:=a[(n div 2)+1,(n div 2)+1];
  a[(n div 2)+1,(n div 2)+1]:=a[tempi,tempj];
  a[tempi,tempj]:=temp;
  {выводим матрицу}
  writeln('Полученная матрица:');
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j]:2:0,' ');
    writeln
  end;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.11.2009, 00:19

Отсортировать двумерный массив по побочной диагонали по возрастанию
Отсортировать двумерный массив по побочной диагонали по возрастанию. Можно...

Двумерный массив: найти сумму элементов главной и обратной диагонали
1. Дан двумерный массив размером n x m. Найти сумму элементов главной и...

Проверьте, является ли двумерный массив симметричным относительно главной диагонали
Здравствуйте. Помогите пожалуйста неумехе. Плохо понимаю Pascal :( Задания:...


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

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

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