Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
cravil
0 / 0 / 1
Регистрация: 22.04.2012
Сообщений: 14
#1

Матрица. Переставить местами элементы главной и побочной диагоналей - Turbo Pascal

10.05.2012, 06:17. Просмотров 562. Ответов 1
Метки нет (Все метки)

В квадратной матрице переставить местами элементы главной и побочной диагоналей.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.05.2012, 06:17
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Матрица. Переставить местами элементы главной и побочной диагоналей (Turbo Pascal):

Матрица. Поменять местами элементы главной и побочной диагоналей
Задана матрица Х (Н) (Н<=15). Поменять местами элементы главной и побочной...

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

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

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

Дано двумерный массив(4*4). Поменять местами элементы главной и побочной диагоналей.
Дано двумерный массив(4*4). Поменять местами элементы главной и побочной...

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

1
BumerangSP
4287 / 1409 / 463
Регистрация: 16.12.2010
Сообщений: 2,941
Записей в блоге: 3
10.05.2012, 09:00 #2
Лучший ответ Сообщение было отмечено cravil как решение

Решение

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
46
47
48
49
50
51
52
uses crt;
const n=7;
var a: array [1..n,1..n] of integer;
    b,c: array [1..30] of integer;
   i,j,k,l: integer;
begin
 clrscr;
 randomize;
 k:=1;
 l:=1;
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     a[i,j]:=random(10);
     if j=n-i+1 then
      begin
       b[k]:=a[i,j];
       inc(k);
      end; 
      if i=j then
      begin
       c[l]:=a[i,j];
       inc(l);
      end; 
     write(a[i,j]:3);
    end;
    writeln;
    end;
   writeln;
 k:=1;
 l:=1;  
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     if i=j then
      begin
       a[i,j]:=b[l];
       inc(l);
      end;
     if j=n-i+1 then
      begin
       a[i,j]:=c[k];
       inc(k);
      end; 
     write(a[i,j]:3);
    end;
    writeln;
    end;
 readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.05.2012, 09:00
Привет! Вот еще темы с решениями:

Элементы главной и побочной диагоналей
В двумерном массиве, поменять местами главную и побочную диагонали.

Равны ли элементы главной и побочной диагоналей
Дана матрица,заполненная целыми числами, размерностью n*n Проверить, равны ли...

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

Дана квадратная матрица порядка M. Найти сумму элементов ее главной и побочной диагоналей
Помогите решить с помощью процедур. program f1; uses crt; const Nmax =...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru