Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 10, средняя оценка - 4.70
Нюся18
0 / 0 / 0
Регистрация: 19.02.2010
Сообщений: 8
#1

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

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

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

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

Побочная диагональ - Pascal
Побочная диагональ может быть только в квадратной матрице или в любой??????????? Чем отличается массив от матрицы???

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

Матрица: главная и побочная диагональ - Pascal
Найти сумму среднее геометрическое элементов главной диагонали и минимальное отрицательное побочной дигонали матрицы x(5,5). const...

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

Побочная диагональ и нули. Исправьте ошибку. - Pascal
Не могу понять почему не работает прога. Условие: должна читать из тескстового файла массив, лепить из него матрицу, вывести на экран...

5
yanyk1n
4331 / 1462 / 152
Регистрация: 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
7708 / 2541 / 184
Регистрация: 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
7708 / 2541 / 184
Регистрация: 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
Привет! Вот еще темы с ответами:

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

двумерные массивы - Pascal
Целочисленная прямоугольная матрица заполняется с помощью генератора случайных чисел значениями из промежутка . Найти сумму элементов в тех...

Двумерные массивы, 3*4 - Pascal
Помогите написать программу: Ввести двумерный массив размером 3*4. Найти максимальный элемент массива . Поменять столбец, содержащий...

двумерные массивы - Pascal
помогите в решении: 1) Задан массив целых случайных чисел, принадлежащих промежутку . Найти сумму тех элементов массива, которые...


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

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

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