Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/7: Рейтинг темы: голосов - 7, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 07.12.2009
Сообщений: 50
1

Напечатать индексы двух равных элементов матрицы

16.12.2009, 13:40. Показов 1447. Ответов 10
Метки нет (Все метки)

Вычислить след заданной квадратной матрицы A[N,N]. След квадратной матрицы - это число, равное сумме элементов главной диагонали.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.12.2009, 13:40
Ответы с готовыми решениями:

Найти максимальное значение матрицы и индексы всех элементов, равных ему
В целочисленной матрице размером 10x10 найдите максимальное значение и индексы всех элементов,...

Вычислить,сколько в матрице различных элементов; двух равных,трёх равных и т.д
Есть задача Вычислить,сколько в матрице различных элементов; двух равных,трёх равных и т.д...

В матрице определить индексы равных элементов
Составить программу, которая для задаваемого пользователем двумерного числового массива размером...

Напечатать индексы минимального элемента побочной диагонали матрицы W(20,20).
Доброй ночи, помогите решить 2 задачи:) 1.Напечатать индексы минимального элемента побочной...

10
4116 / 992 / 191
Регистрация: 09.04.2009
Сообщений: 4,223
16.12.2009, 13:42 2
ну дык тут все просто...
Pascal
1
2
3
s:=0;
for i:=1 to n do
s:=s+a[i,i];
1
UNIX-way
712 / 495 / 49
Регистрация: 15.01.2009
Сообщений: 1,720
16.12.2009, 13:44 3
Pascal
1
2
3
4
5
6
7
8
9
10
const n=5;//взял "от фонаря". возьми нужное.
var
 sum,i:integer;
 A:array[1..n,1..n]of integer;
begin
//ввод матрицы
sum:=0;
for i:=1 to n do sum:=sum+A[i,i];
//вывод результата
end.
1
0 / 0 / 0
Регистрация: 07.12.2009
Сообщений: 50
16.12.2009, 13:44  [ТС] 4
Дан двухмерный целочисленный массив А[1..3,1..4]. Известно, что среди его элементов два и только два равны между собой. Напечатать их индексы.



*может и с этой поможите?
0
4116 / 992 / 191
Регистрация: 09.04.2009
Сообщений: 4,223
16.12.2009, 13:46 5
Вычислить след заданной квадратной матрицы A[N,N]. След квадратной матрицы - это число, равное сумме элементов главной диагонали.
так если полностью
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
var
i,j,n,s:integer;
a:array[1..100,1..100] of integer;
begin
writeln('porjadok matricu');
readln(n);
randomize;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=random(199)-99;
write(a[i,j]:4);
end;
writeln;
end;
s:=0;
for i:=1 to n do
s:=s+a[i,i];
writeln('sled=',s);
readln;
end.
1
0 / 0 / 0
Регистрация: 07.12.2009
Сообщений: 50
16.12.2009, 13:48  [ТС] 6
спасибо...но есть большая просьба посмотрите вторую...
0
4116 / 992 / 191
Регистрация: 09.04.2009
Сообщений: 4,223
16.12.2009, 13:56 7
Цитата Сообщение от Настёна_19 Посмотреть сообщение
Дан двухмерный целочисленный массив А[1..3,1..4]. Известно, что среди его элементов два и только два равны между собой. Напечатать их индексы.
ищет только первую попавшеюся пару
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
uses crt;
var
ii,jj,i,j:integer;
a:array[1..3,1..4] of integer;
begin
for i:=1 to 3 do begin
for j:=1 to 4 do begin
writeln('vvedite a[',i,',',j,']');
readln(a[i,j]);
end;
end;
for i:=1 to 3 do begin
for j:=1 to 4 do begin
for ii:=1 to 3 do begin
for jj:=1 to 4 do begin
if (a[i,j]=a[ii,jj]) and ((i<>ii) or (j<>jj)) then begin
writeln('para ',i,',',j,' i ',ii,',',jj);
i:=3;
ii:=3;
j:=4;
jj:=4;
end;
end;
end;
end;
end;
end.
1
0 / 0 / 0
Регистрация: 07.12.2009
Сообщений: 50
16.12.2009, 13:59  [ТС] 8
Большое спасибо!!!
0
UNIX-way
712 / 495 / 49
Регистрация: 15.01.2009
Сообщений: 1,720
16.12.2009, 14:09 9
Цитата Сообщение от Jazon_deenAlt Посмотреть сообщение
ищет только первую попавшеюся пару
Код
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
uses crt;
var
ii,jj,i,j:integer;
a:array[1..3,1..4] of integer;
begin
for i:=1 to 3 do begin
for j:=1 to 4 do begin
writeln('vvedite a[',i,',',j,']');
readln(a[i,j]);
end;
end;
for i:=1 to 3 do begin
for j:=1 to 4 do begin
for ii:=1 to 3 do begin
for jj:=1 to 4 do begin
if (a[i,j]=a[ii,jj]) and ((i<>ii) or (j<>jj)) then begin
writeln('para ',i,',',j,' i ',ii,',',jj);
i:=3;
ii:=3;
j:=4;
jj:=4;
end;
end;
end;
end;
end;
end.
Интересный способ торможения циклов Только Делфи, например, будет выдавать
[Error] Project1.dpr(24): Assignment to FOR-Loop variable 'i'
Потому, имхо, не стоит так привыкать писать.
Вот мой вариант. Компилируется и работает 100%.
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
uses crt;
label en;
var
i,j,x,y:integer;
a:array[1..3,1..4] of integer;
begin
for i:=1 to 3 do
  begin
  for j:=1 to 4 do
    begin
    write('A[',i,',',j,']=');
    readln(a[i,j]);
    end;
  end;
for x:=1 to 3 do
 for y:=1 to 4 do
  begin
  for i:=1 to 3 do
   for j:=1 to 4 do
    begin
    if (a[i,j]=a[x,y]) and (not((x=i)and(y=j))) then
      begin
      writeln('A[',i,',',j,']=A[',x,',',y,']');
      goto en;
      end;
    end;
  end;
en:
readln;
end.
Версия для Делфи
Delphi
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
program Project1;
 
{$APPTYPE CONSOLE}
uses
  SysUtils;
label en;
var
i,j,x,y:integer;
a:array[1..3,1..4] of integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
for i:=1 to 3 do
  begin
  for j:=1 to 4 do
    begin
    write('A[',i,',',j,']=');
    readln(a[i,j]);
    end;
  end;
for x:=1 to 3 do
 for y:=1 to 4 do
  begin
  for i:=1 to 3 do
   for j:=1 to 4 do
    begin
    if (a[i,j]=a[x,y]) and (not((x=i)and(y=j))) then
      begin
      writeln('A[',i,',',j,']=A[',x,',',y,']');
      goto en;
      end;
    end;
  end;
en:
readln;
end.
1
4116 / 992 / 191
Регистрация: 09.04.2009
Сообщений: 4,223
16.12.2009, 15:25 10
Delphin_KKC, согласен что метки лучче. но судя по самому заданию метки скорее всего не учились, а следовательно могут восприниматса с насторожением... хотя ваш вариант 100% лучче
0
UNIX-way
712 / 495 / 49
Регистрация: 15.01.2009
Сообщений: 1,720
16.12.2009, 15:28 11
Цитата Сообщение от Jazon_deenAlt Посмотреть сообщение
Delphin_KKC, согласен что метки лучче. но судя по самому заданию метки скорее всего не учились, а следовательно могут восприниматса с насторожением... хотя ваш вариант 100% лучче
Условия и циклы ж учились. А стало быть логично ожидать что и метки уже выучены (ибо любой цикл можно представить как проверку условия с переходом на метку).
Хотя, некоторые преподы их (метки) недолюбливают. Но, имхо, в таких случаях - это самое оно.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.12.2009, 15:28

Для заданной матрицы А(н,м) напечатать индексы всех ее седловых точек.
Помогите пожалуйста! Дана седловая точка-элемент матрицы. Он наименьший в своей строке и...

Напечатать индексы всех седловых точек данной матрицы целых чисел
Дана матрица целых чисел размером 10х12. Напечатайте индексы всех ее седловых точек. (Седловой...

Для заданной целой матрицы размером (M*N) напечатать индексы всех ее седловых точек
Элемент матрицы назовем седловой точкой, если он является наименьшим в своей строке и...

Для заданной целой матрицы размером 10×15 напечатать индексы всех ее седловых точек
Элемент матрицы назовем седловой точкой, если он является наименьшим в своей строке и одновременно ...


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

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

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