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

Двумерные массивы. Побочная диагональ.

19.02.2010, 21:34. Просмотров 1477. Ответов 5
Метки нет (Все метки)

Найти максимум и минимум на побочной диагонали и их местоположение.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.02.2010, 21:34
Ответы с готовыми решениями:

Массивы.Побочная диагональ
Подсчитать кол-во элементов побочной диагонали, которые больше заданого числа

Побочная диагональ
Побочная диагональ может быть только в квадратной матрице или в...

Побочная диагональ матрицы!
Ребят срочно нужна ваша помощь в решении задачи: В квадратной матрице найти...

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

Побочная диагональ и нули. Исправьте ошибку.
Не могу понять почему не работает прога. Условие: должна читать из тескстового...

5
yanyk1n
4331 / 1463 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
19.02.2010, 21:43 2
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
uses crt;
const n=5;
var a:array[1..n,1..n]of integer;
i,j,max,min,k,b:integer;
 
begin
 clrscr;
 randomize;
 writeln('Исходный массив');
 for i:=1 to n do
 begin 
  for j:=1 to n do
  begin
    a[i,j]:=-50+random(100);
    write(a[i,j]:4);
  end;
  writeln;
 end;
 
 min:=1;
 max:=2;
 for i:=1 to n do if a[i,i]<a[min,min] then min:=i else if a[i,i]>a[max,max] then max:=i;
 writeln('MIN - ',min,' = ',a[min,min]);
 writeln('MAX - ',max,' = ',a[max,max]);
 readln;
end.
0
Нюся18
0 / 0 / 0
Регистрация: 19.02.2010
Сообщений: 8
19.02.2010, 21:53  [ТС] 3
k1ry4, прошу прощения, но здесь получается поиск на главной диагонали, а в задаче необходимо на побочной...
0
Inadequate
Retired
7710 / 2543 / 670
Регистрация: 17.10.2009
Сообщений: 5,100
19.02.2010, 22:42 4
Ну так поставь заместо a[i,i] a[i,N-i+1] и будет тебе счастье
0
Нюся18
0 / 0 / 0
Регистрация: 19.02.2010
Сообщений: 8
20.02.2010, 00:17  [ТС] 5
тогда вообще бред получается! Вы посмотрите внимательно или объясните что именно и где заменить!
0
Inadequate
Retired
7710 / 2543 / 670
Регистрация: 17.10.2009
Сообщений: 5,100
20.02.2010, 00:28 6
Нюся18, может все таки ты посмотришь внимательнее? Я тебе сказал все, что нужно чтобы переделать далее самостоятельно если чуть чуть пораскинуть мозгами
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
uses crt;
const n=5;
var a:array[1..n,1..n]of integer;
i,j,max,min,k,b:integer;
 
begin
 clrscr;
 randomize;
 writeln('ÈñõîäГ*ûé Г¬Г*Г±Г±ГЁГў');
 for i:=1 to n do
 begin
  for j:=1 to n do
  begin
    a[i,j]:=random(10)-5;
    write(a[i,j]:4);
  end;
  writeln;
 end;
 
 min:=1;
 max:=2;
 for i:=1 to n do if a[i,N-i+1]<a[min,N-min+1] then min:=i else if a[i,N-i+1]>a[max,N-max+1] then max:=i;
 writeln('MIN - a[',min,',',N-min+1,'] = ',a[min,N-min+1]);
 writeln('MAX - a[',max,',',N-max+1,'] = ',a[max,N-max+1]);
 readln;
end.
1
20.02.2010, 00:28
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.02.2010, 00:28

Квадратная матрица. Главная и побочная диагональ
Создать квадратную матрицу. Найти максимальное значение строки, параллельной...

Сформировать одномерный массив из его диагональных элементов( диагональ и побочная )
Для заданной квадратной матрицы сформировать одномерный массив из её...

Двумерные массивы
Сформировать матрицу A при помощи произвольно заданной матрицы B.


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

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

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