Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 24.05.2015
Сообщений: 5
1

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

24.05.2015, 21:49. Показов 1194. Ответов 2
Метки нет (Все метки)

Найти и напечатать индексы тех элементов матрицы G, для которых G(i,j)=G(j,i) помогите!!!!!очень надо, буду очень благодарен
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.05.2015, 21:49
Ответы с готовыми решениями:

Найти и напечатать индексы тех элементов матрицы С, для которых cij=cji, а так же посчитать количество этих элементов
Дано матрицу С размером nxn. Найти и напечатать индексы тех элементов матрицы С, для которых...

Найти числа из промежутка для которых выполняется равенство
Найдите все натуральные числа x, y, z из интревала от 25 до 55, для которых выполняется равенство...

Вывести индексы тех элементов матрицы, значения которых кратны 5
Создать двумерный массив размером n на m Вывести индексы тех элементов, значение которых кратны 5

Найти тройки натуральных чисел, для которых выполняется равенство x^2-y=z^2
найти все такие тройки натуральных чисел x,y,z из интервала от 1 до 20,для которых выполняется...

2
Эксперт Pascal/Delphi
6764 / 4535 / 4804
Регистрация: 05.06.2014
Сообщений: 22,361
25.05.2015, 11:16 2
Лучший ответ Сообщение было отмечено hrohol как решение

Решение

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
{Найти и напечатать индексы тех элементов матрицы G, для которых
G(i,j)=G(j,i)}
uses
  crt;
const
  n=5;
var
  g:array [1..n,1..n] of integer;
  i,j:integer;
begin
  randomize;
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          g[i,j]:=random(n);
          write(g[i,j]:3);
        end;
      writeln;
    end;
  writeln;
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          if (g[i,j]=g[j,i]) and (i<>j) then
            textcolor(Green)
          else
            textcolor(white);
          write(g[i,j]:3);
        end;
      writeln;
    end;
  writeln;
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          if (g[i,j]=g[j,i]) and (i<>j) then
            writeln(g[i,j]:3,' = ',g[j,i]:3,' в строке ',i:3,' в столбце ',j:3);
        end;
    end;
 
  readln;
end.
0
0 / 0 / 0
Регистрация: 24.05.2015
Сообщений: 5
27.05.2015, 11:05  [ТС] 3
Спасибо большое)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.05.2015, 11:05

Найти все натуральные числа, а, в, с из интервала от 1 до 20, для которых выполняется равенство: а + в = с2
4.Найти все натуральные числа, а, в, с из интервала от 1 до 20, для которых выполняется равенство:...

Найти тройки натуральных чисел x,y,z из интервала от 1 до 20, для которых выполняется равенство
Найти все такие тройки натуральных чисел x,y,z из интервала от 1 до 20, для которых выполняется...

Найти все натуральные числа a,b,c из интервала от 10 до 50, для которых выполняется равенство
привет всем, помогите написать программу. Найти все натуральные числа a,b,c из интервала от 10 до...

Найти все натуральные числа a, b, c из интервала от 1 до 20, для которых выполняется равенство a*a*b=c*c
Задачка на вложенные циклы:Найти все натуральные числа a, b, c из интервала от 1 до 20, для которых...

Найти тройки натуральных чисел из интервала от 1 до 20, для которых выполняется равенство: x2+y2=z2.
Найти все такие тройки натуральных чисел x,y,z из интервала от 1 до 20, для которых выполняется...

Найти все натуральные числа a,b,c из интервала от 1 до 20 для которых выполняется равенство a^2+b^2=c^2
помогите найти все натуральные числа a,b,c из интервала от 1 до 20 для которых выполняется...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru