Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Перестановка элементов матрицы

84K
03 декабря 2012 года
marmarina
4 / / 29.10.2012
Помогите пожалуйста! Нужно перевернуть задом-наперед элементы второй диагонали квадратной матрицы.
  • Вторая диагональ - что это такое? от wanja, 04 декабря 2012 года
87K
05 декабря 2012 года
Cunning_Chinese
6 / / 05.12.2012
Да там делать нечего!!!!
86K
05 декабря 2012 года
lafesta
8 / / 23.11.2012
Код:
program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

//uses
//  System.SysUtils;
const
  m = 1000;

var
  n,i,j:integer;
  a: array[1..m,1..m] of integer;
begin
  randomize;
  write('array size = '); readln(n);
  writeln;
  for i:= 1 to n do
    begin
      for j:= 1 to n do
        begin
          a[i,j]:=random(200)-100;
          write(a[i,j]:4);  
        end;
      writeln;
    end;
  writeln;
  for i:= 1 to n do
    begin
      if i<n/2 then
        begin
          a[i,n+1-i]:= a[i,n+1-i] - a[n+1-i,i];
          a[n+1-i,i]:= a[i,n+1-i] + a[n+1-i,i];
          a[i,n+1-i]:= a[n+1-i,i] - a[i,n+1-i];
        end;
      for j:= 1 to n do
        write(a[i,j]:4);
      writeln;
    end;

  readln
end.
87K
06 декабря 2012 года
Диз_
3 / / 02.12.2012
Cunning_Chinese, говнокодерам вообще делать нечего, это верно!! Не прикасайся грязными лапами к священному коду, дабы не прокляли тебя светлые умы этого сайта!

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог