Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.64/11: Рейтинг темы: голосов - 11, средняя оценка - 4.64
0 / 0 / 2
Регистрация: 09.10.2016
Сообщений: 15

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

18.11.2016, 13:03. Показов 2297. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Для заданной квадратной матрицы сформировать одномерный массив из её диагональных элементов. Найти след матрицы, суммируя элементы одномерного массива. Преобразовать исходную матрицу по правилу: чётные строки разделить на полученное значение, нечётные оставить без изменения.
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
18.11.2016, 13:03
Ответы с готовыми решениями:

Сформировать одномерный массив из диагональных элементов матрицы
Для заданои квадратнои матрицы сформировать одномерныи массив из ее диаголальных элементов. Наити след матрицы, суммируя элементы...

Сформировать одномерный массив из диагональных элементов матрицы
Ребята,любой пример объясните хочу понять массивы и подпрограммы ,или если есть готовые примеры ,скиньте пожалуйста! 1.Дана квадратная...

Сформировать одномерный массив из диагональных элементов матрицы
Задан двумерный массив размером n*n. Сформировать из его диагональных элементов одномерный массив

1
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
18.11.2016, 14:53
Лучший ответ Сообщение было отмечено NOHOMO как решение

Решение

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
uses crt;
const n=9;
var a:array[1..n,1..n] of real;
    b:array[1..n] of real;
    i,j:byte;
    s:real;
begin
writeln('Исходная матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=10*random;
    if j=i then b[i]:=a[i,j];
    write(a[i,j]:6:2);
   end;
  writeln;
 end;
writeln('Массив диагональных элементов');
s:=0;
for i:=1 to n do
 begin
  write(b[i]:6:2);
  s:=s+b[i];
 end;
writeln;
writeln('След матрицы=',s:0:2);
writeln('Преобразованная матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if i mod 2=0 then a[i,j]:=a[i,j]/s;
    write(a[i,j]:6:2);
   end;
  writeln;
 end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
18.11.2016, 14:53
Помогаю со студенческими работами здесь

Сформировать одномерный массив из диагональных элементов матрицы
Как сформировать одномерный массив из диагональных элементов матрицы A(n,m) в Visual Studio 2010 Ultimate?

Сформировать из диагональных элементов матрицы одномерный массив
Проблемы с лабораторными работами по информатике. Так как совсем не понимаю что в этом VBA надо делать и как делать. Прошу помощи...

Двумерные массивы. Сформировать одномерный массив из диагональных элементов
Ребят, помогите пожалуйста. Нужен ПОЛНЫЙ КОД. Вот задача: Для заданной квадратной матрицы сформировать одномерный массив из ее...

Как сформировать одномерный массив из диагональных элементов матрицы
как сформировать одномерный массив из диагональных элементов матрицы?

Для заданной квадратной матрицы сформировать одномерный массив из ее диагональных элементов
Здравствуйте, помогите разработать программу "Для заданной квадратной матрицы сформировать одномерный массив из ее диагональных элементов....


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Жизнь в неопределённости
kumehtar 23.03.2026
Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .
Модель здравоСохранения: работники работают быстрее после её введения.
anaschu 23.03.2026
geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .
1С: Контроль уникальности заводского номера
Maks 23.03.2026
Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .
Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения
anaschu 22.03.2026
e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git
1С: Программный отбор элементов справочника по группе
Maks 22.03.2026
Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .
Как я обхитрил таблицу Word
Alexander-7 21.03.2026
Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a
AmbA 21.03.2026
без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
1С: Программный отбор элементов справочника по значению перечисления
Maks 21.03.2026
Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru