Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Вычислить значение выражения немогу перевисти хелп. https://www.cyberforum.ru/ turbo-pascal/ thread182400.html	Turbo Pascal База данных ФИО+Телефон Нужна база данных в которой бы хранились записи о ФИО и телефоне, с возможностью просмотра, добавления записей, обновления записей, удаления записей, поиска, сортировки и выхода. Добавлено через...
Turbo Pascal Определить, во сколько заканчивается k- тый урок https://www.cyberforum.ru/ turbo-pascal/ thread182369.html вот дали 15 задач, первые не могу понять как решить, не доходит)) просто недавно начал изучать паскаль :) дайте толчек в правильную сторону Задача №1. Конец К-ого урока В школе...	Turbo Pascal Скорректируйте модуль работы с таблицей Скорректируйте пожалуйста мой модуль работы с таблицей,,ввод происходит,,вывод в файл вродь делает,, делаю редактирование и ост. действия выдает разбросанные символы...Unit Firma; Interface Uses... https://www.cyberforum.ru/ turbo-pascal/ thread182360.html
Turbo Pascal Осуществить циклический сдвиг элементов Осуществить циклический сдвиг элементов прямоугольной матрицы на n элементов вправо,n может быть больше количества элементов в строке	Turbo Pascal Подскажите как сюда впарить бесконечный цикл? program Caesar; const n=3; function asc2(toCode:string):string; var x,y:integer; begin for x:=1 to length(toCode) do begin y:=(Ord(toCode)+n); toCode:=Chr(y); end; https://www.cyberforum.ru/ turbo-pascal/ thread182356.html
Turbo Pascal Посчитать количество четных чисел из 21, что вводит пользователь https://www.cyberforum.ru/ turbo-pascal/ thread182353.html Посчитать количество парных чисел из 21 что вводит пользователь.	Количество изменений знака в каждой строке массива Turbo Pascal Дано файл в котором записана прямоугольная матрица целых чисел.Для каждой строки подсчитать количество изменений знаков и вывести ее в результирующий файл. var a: array of integer; i, j, n,...
Turbo Pascal Упорядочить по возрастания элементы, Упорядочить по возрастания элементы,находящиеся между минимальными и максимальными элементами целочисленного массива Y https://www.cyberforum.ru/ turbo-pascal/ thread182340.html	Turbo Pascal Возведение в степень https://www.cyberforum.ru/ turbo-pascal/ thread182337.html Написать подпрограмму возведения числа в целую степень. Проверить ее работу на следующих данных: 2 в 10-той, З в 5-той,7 в 0-вой.
геометричное моделирование Turbo Pascal помогите пожалуйста решить задачу, кто может... нужно написать обучающую программу по геометрию демонстрационного типа, которая поэтапно демонстрирует построение с помощью циркуля и линейки:...	Turbo Pascal Метод Симпсона и трапеций https://www.cyberforum.ru/ turbo-pascal/ thread182313.html Задание: 1.Вычислить разность в количестве итераций, необходимых для получения значения определенного интеграла (в прикрепленных файлах под номером 1) с точностью 0,001 методами трапеций и Симпсона....

Puporev

Почетный модератор

64279 / 47578 / 32739

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

Сообщений: 115,182

27.10.2010, 18:30

Матрица. В квадратной матрице поменять местами элементы симметричные отностиельно главной диагонали - Turbo Pascal - Ответ 1062974

27.10.2010, 18:30. Показов 1880. Ответов 1

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

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

Решение

Pascal

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j:byte;
    x:integer;
begin
clrscr;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     a[i,j]:=random(50);
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
 begin
  x:=a[i,j];
  a[i,j]:=a[j,i];
  a[j,i]:=x;
 end;
writeln('Отражение по главной диагонали:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
readln;
end.

Вернуться к обсуждению:
Матрица. В квадратной матрице поменять местами элементы симметричные отностиельно главной диагонали Turbo Pascal

Programming

Эксперт

94731 / 64177 / 26122

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

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

27.10.2010, 18:30

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

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

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

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

В матрице целых чисел 7х7 поменять местами элементы, расположенные симметрично относительно главной диагонали.
задания вывести на экран с комментариями исходный и результирующий массивы: В матрице целых чисел...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

27.10.2010, 18:30

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

В матрице целых чисел 7х7 поменять местами элементы, расположенные симметрично относительно главной диагонали.
В матрице целых чисел 7х7 поменять местами элементы, расположенные симметрично относительно главной...

Поменять местами элементы матрицы, симметричные относительно побочной диагонали
люди помогите решить задачку!!! Разработка в среде Turbo Pascal программы перестановки местами...

Сформировать из одной матрицы другую, поменяв местами элементы, симметричные относительно главной диагонали
Квадратный массив С(m,n) преобразовать в массив D(m,n), в котором элементы массива C поменяются...

В квадратной матрице найти максимальные элементы ниже главной диагонали
Дана матрица А .Найти max элементы ниже главной диагонали .Квадратная матрица ,ввод и вывод был...

Наверх