PascalABC.NET

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
PascalABC.NET Создать файл, содержащий сведения о личной библиотеке книголюба https://www.cyberforum.ru/ pascalabc-net/ thread1049361.html Помогите, пожалуйста, отладить программу: требуется создать файл, содержащий сведения о личной библиотеке книголюба. Структура записи: шифр книги, автор, название, год издания, местоположение (номер стелажа, шкафа, и т. п.). Количество записей – произвольное. Написать программу выдающую следующую информацию: местонахождение книги автора Х название У. Значения Х и У ввести с клавиатуры. Я...	gotoXY PascalABC.NET В одномерном массиве,элементами которого есть записи:год,месяц,день,температура подсчитать количество и вывести на экран все данные,температура которых была ниже средней. Результат необходимо вывести в виде таблицы( через gotoXY). Спасибо заранее! Добавлено через 19 часов 0 минут Люди добрые,помогите пожалуйста!!
PascalABC.NET Определить, являются ли две первые цифры числа простыми числами Срочно нужно написать прогру, а мне не хватает времени.. И я чуть недопонимаю.. Прошу написать эту прогу: 1) Вводится натуральное число, определить являются ли две первые цифры числа простыми числами Спасибо! https://www.cyberforum.ru/ pascalabc-net/ thread1049240.html	PascalABC.NET Расставить по возрастанию элементы массива кратные 5 и расположенные между его max и min элементами. Срочно нужно написать прогру, а мне не хватает времени.. И я чуть недопонимаю.. Прошу написать эту прогу: 2) Дан массив А из n элементов. Расставить по возрастанию элементы массива кратные 5 и расположенные между его max и min элементами. Заранее спасибо! :) https://www.cyberforum.ru/ pascalabc-net/ thread1049238.html
Найти элемент массива с наибольшим числом повторений PascalABC.NET Срочно нужно написать прогру, а мне не хватает времени.. И я чуть недопонимаю.. Прошу написать эту прогу: 3) Дан массив А из n элементов. Найти элемент массива с наибольшим числом повторений Заранее спасибо :)	PascalABC.NET Заменить все элементы массива, меньше 5, нулями Ребята, скоро сессия, полный завал, ничего не успеваю, помогите пожалуйста. Одномерный массив из из 9 элементов заполнить случайным образом числами от 2 до 5. Заменить все элементы массива меньше 5 нулями. Вывести на экран монитора первоначальный и преобразованный массивы в столбик. Заранее спасибо. https://www.cyberforum.ru/ pascalabc-net/ thread1049180.html
PascalABC.NET Найти среднее арифметическое всех элементов массива https://www.cyberforum.ru/ pascalabc-net/ thread1049023.html Дан одномерный массив. 1)Найти среднее арифметическое всех элементов массива. 2)Найти среднее кратных трем элементов массива.	PascalABC.NET Работа с модулем Graph Написать программу для вывода заданного графика функции y=f(x) на отрезке в графическом режиме (n - количество точек в заданном отрезке). Указание: график функции должен быть построен в осях координат с соответствующими подписями. Вариант номер 8 № варианта\|f(x)\|a\|b\|n 1\|sin x\|-π/2\|π/2\|30 2\|cos x\|0\|3π/2\|30 3\|\begin{vmatrix}\sin x\end{vmatrix}+\begin{vmatrix}\cos...
PascalABC.NET Архивация методом упаковки Написать программу на любом языке программирования, которая архивирует файл методом упаковки. Идея метода упаковки заключается в уменьшении количества бит, отводимых для кодирования каждого объекта, при условии, что в сжимаемом массиве данных присутствует не весь возможный набор объектов, а только его небольшая часть. https://www.cyberforum.ru/ pascalabc-net/ thread1049014.html	PascalABC.NET Транспонирование матрицы https://www.cyberforum.ru/ pascalabc-net/ thread1048999.html Дана действительная матрица А(6 , 7), получить транспонированную матрицу В(7 , 6). Указание: значение элементов матриц задать с помощью генератора псевдослучайных чисел, исходные данные вывести вместе с результатом.
Задача про матрицу PascalABC.NET Упорядочить элементы каждой строки заданной матрицы А(5, 4), расположив их в матрице В(5, 4) по убыванию, полученную матрицу напечатать по строкам. Указание: значение элементов матриц задать с помощью генератора псевдослучайных чисел, исходные данные вывести вместе с результатом.	PascalABC.NET ошибка в программе Помогите исправить ошибку в программе и описать программу. буду очень благодарна!! uses GraphABC, System.Windows.Forms; type Token = (FONTNAME,FONTSIZE,SCREEN,BGCOLOR,TITLE,SPEED,S,E); StringMessage=record repeats,width:integer; sColor:Color; https://www.cyberforum.ru/ pascalabc-net/ thread1048760.html

Arigato

Программист

307 / 182 / 176

Регистрация: 05.12.2013

Сообщений: 683

Записей в блоге: 5

20.12.2013, 15:16

Поменять местами элементы главной и побочной диагоналей матрицы по строкам (Блок-схема) - PascalABC.NET - Ответ 5529004

20.12.2013, 15:16. Показов 1492. Ответов 1

Метки (Все метки)

Сообщение было отмечено Памирыч как решение

Решение

Код:

Pascal

// Дана вещественная квадратная матрица размерности n. Поменять местами элементы главной и побочной диагоналей матрицы по строкам; 
 
const
  n = 5;
  
type
  TIndex = 1..n;
  TMatrix = array[TIndex,TIndex] of Real;
  
procedure CreateMatrix(var M: TMatrix);
var
  i, j: TIndex;
begin
  Randomize;
  for i := 1 to n do
    for j := 1 to n do
      M[i,j] := Random(10);
end;
 
procedure PrintMatrix(const M: TMatrix);
var
  i, j: TIndex;
begin
  for i := 1 to n do begin
    for j := 1 to n do
      Write(M[i,j]:4:0);
    WriteLn;
  end;
end;
 
procedure SwapMatrix(var M: TMatrix);
var
  i: TIndex;
  t: Real;
begin
  for i := 1 to n do begin
    t := M[i,i];
    M[i,i] := M[i,n-i+1];
    M[i,n-i+1] := t;
  end;
end;
  
var
  A: TMatrix;
  
begin
  CreateMatrix(A);
  PrintMatrix(A);
  WriteLn;
  SwapMatrix(A);
  PrintMatrix(A);
end.

Вернуться к обсуждению:
Поменять местами элементы главной и побочной диагоналей матрицы по строкам (Блок-схема) PascalABC.NET

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

20.12.2013, 15:16

Готовые ответы и решения:

Для заданной квадратной матрицы порядка n поменять местами элементы главной и побочной диагоналей
1. В однородном массиве, состоящем из n элементов, вычислить: - номер минимального элемента...

Поменять местами элементы половин параллельных диагоналей матрицы над главной и под побочной диагоналями
Дан двумерный целочисленный массив. Нужно поменять друг с другом выделенные красным цветом...

Поменять местами элементы половин параллельных диагоналей матрицы над главной и под побочной диагоналями
Написать программу, меняющую в квадртаном массиве половину строки элементов, параллельной главной...

	20.12.2013, 15:16

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

20.12.2013, 15:16

Помогаю со студенческими работами здесь

Поменять местами элементы главной и побочной диагоналей матрицы
помогите пожайлуста. Поменять местами элементы главной и побочной диагоналей матрицы. делал...

Поменять местами элементы главной и побочной диагоналей матрицы
Задача 2. Дана матрица целых чисел . Поменять местами элементы главной и побочной диагоналей.

7*7 вещественный Поменять местами элементы главной и побочной диагоналей матрицы
7*7 вещественный Поменять местами элементы главной и побочной диагоналей матрицы.

Найти максимальные элементы главной и побочной диагоналей матрицы и поменять их местами
Дана матрица nxn. Найти максимальные элементы главной и побочной диагоналей матрицы и поменять их...

Поменять местами строки, содержащие минимальные элементы главной и побочной диагоналей матрицы
5. Дана матрица А. Поменять местами строки, содержащие минимальные элементы главной и побочной...

Поменять местами элементы главной и побочной диагоналей, симметричные относительно центра матрицы
Задана квадратичная матрица размером nxn поменять местами элементы главной и побочной диагоналей ...

Наверх