Заменить элементы первой строки матрицы элементами, состоящими на главной диагонали

03.03.2011, 23:13. **Показов** 976. **Ответов** 2

Студворк — интернет-сервис помощи студентам

дана матрица с(i,j) i=1,5 j=1,5
Заменить элементы первой строки элементами, состоящими на главной диагонали, а элементы главной диагонали, элементами первой строки. Вывести на печать все промежуточные результаты.

искал подобные задачи не нашел, что бы говорилось о замене элементов массива, помогите пожалуйста, можно только программу замены первой строки на диагональ, спасибо!

@Quiet Snow · 04.03.2011, 06:04

Программа:

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
  CLS : R$ = STRING$(17, 196)
  DIM C(5, 5)
  PRINT R$; "Ishodnaya matrica"
FOR iy = 1 TO 5: FOR ix = 1 TO 5
   C(ix, iy) = INT(RND * 51)
   PRINT USING "## "; C(ix, iy);
NEXT: PRINT : NEXT
   FOR i = 1 TO 5
     SWAP C(i, i), C(i, 1)
   NEXT: PRINT R$; "Rezultat"
FOR iy = 1 TO 5: FOR ix = 1 TO 5
   PRINT USING "## "; C(ix, iy);
NEXT: PRINT : NEXT: PRINT R$ + R$

Алгоритм:

PureBasic
1
2
3
   FOR i = 1 TO 5
     SWAP C(i, i), C(i, 1)
   NEXT

Оператор SWAP A, B равносилен последовательности C = A: A = B: B = C

12.03.2011, 09:11

программа работает, а можете команду SWAP заменить программой
я попробовал но эта программа заменяет элементы первой строки на диагональ, а вот диагональ на первою строку нет(

Добавлено через 5 минут
все разобрался, спасибо...
с=с(i,i)
c(i,i)=c(1,i)
c(1,i)=c

Новые блоги и статьи Все статьи Все блоги /
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .

Bulart

	Заменить элементы первой строки матрицы элементами, состоящими на главной диагонали 03.03.2011, 23:13. Показов 976. Ответов 2 Метки нет (Все метки) дана матрица с(i,j) i=1,5 j=1,5 Заменить элементы первой строки элементами, состоящими на главной диагонали, а элементы главной диагонали, элементами первой строки. Вывести на печать все промежуточные результаты. искал подобные задачи не нашел, что бы говорилось о замене элементов массива, помогите пожалуйста, можно только программу замены первой строки на диагональ, спасибо!

Bulart
	12.03.2011, 09:11
	программа работает, а можете команду SWAP заменить программой я попробовал но эта программа заменяет элементы первой строки на диагональ, а вот диагональ на первою строку нет( Добавлено через 5 минут все разобрался, спасибо... с=с(i,i) c(i,i)=c(1,i) c(1,i)=c

Заменить элементы первой строки матрицы элементами, состоящими на главной диагонали

Решение