Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Технологии > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 04.12.2011, 22:13   #1
vadiprog
Форумчанин
 
Регистрация: 24.09.2011
Сообщений: 96
Репутация: -19
По умолчанию Упорядочить по убыванию побочную диагональ матрицы.

Упорядочить по убыванию побочную диагональ матрицы.
Напишите пожалуйста программу на Делфи.
vadiprog вне форума   Ответить с цитированием
Старый 04.12.2011, 22:49   #2
vadiprog
Форумчанин
 
Регистрация: 24.09.2011
Сообщений: 96
Репутация: -19
По умолчанию

Вот начало написал, рэндомно записывает массив, добавьте сортировку пожалуйста
Код:
var
 A:array[1..1000,1..1000] of integer;
 i,j,n,m:integer;
begin
 readln(n,m);
Randomize;
  writeln('Masiv:');
  for i:=1 to n do begin
   for j:=1 to m do begin
   A[i,j]:=random(100);
   write(' ',A[i,j]:2);
   end;
   writeln;
  end;
vadiprog вне форума   Ответить с цитированием
Старый 04.12.2011, 22:55   #3
<- DelpHIFanat ->
Форумчанин
 
Аватар для <- DelpHIFanat ->
 
Регистрация: 07.11.2011
Адрес: Эх, если б я его помнил!..
Сообщений: 58
Репутация: 12
По умолчанию

Код:
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Const
  N0=100;

Var
  A: Array[0..N0-1, 0..N0-1] Of Integer;
  Mas: Array[0..N0-1] Of Integer;
  M: Integer;
  i, j, k, N: Byte;

begin

  Repeat
    Write(' N = ');
    ReadLn(N);
  Until (N In [1..100]);

  k:=0;
  Randomize;
  For i:=0 To N-1 Do
    Begin
      For j:=0 To N-1 Do
        Begin
          A[i, j]:=Random(100);
          Write(' ', A[i, j]: 3);
          If (i+j=N-1) Then
            Begin
              Mas[k]:=A[i, j];
              Inc(k);
            End;
        End;
      WriteLn;
    End;

  For i:=0 To N-2 Do
    For j:=i+1 To N-1 Do
      If (Mas[i]<Mas[j]) Then
        Begin
          M:=Mas[i];
          Mas[i]:=Mas[j];
          Mas[j]:=M;
        End;

  WriteLn;
  WriteLn('-------------------------------');
  WriteLn;

  j:=N-1;
  For i:=0 To N-1 Do
    Begin
      A[i, j]:=Mas[j];
      Dec(j);
    End;

  For i:=0 To N-1 Do
    Begin
      For j:=0 To N-1 Do
        Write(' ', A[i, j]: 3);
      WriteLn;
    End;

  ReadLn;
end.
Вот прога, но сортировать массивы, научиться всё-таки придётся.

Последний раз редактировалось <- DelpHIFanat ->; 04.12.2011 в 23:02.
<- DelpHIFanat -> вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Двухмерный массив - Упорядочить элементы матрицы А, расположив их по убыванию в строках. U4-nik Помощь студентам 3 13.05.2011 22:59
упорядочить строки по убыванию характеристик STUDENTKA-DKE Паскаль 2 20.01.2011 12:35
На главную диагональ матрицы поместить наибольшие элементы этой матрицы mivel Помощь студентам 2 23.12.2009 22:19
Помогите упорядочить строки матрицы по убыванию kitty Помощь студентам 1 07.12.2007 00:23
Упорядочить символьный список по убыванию элементов - язык Пролог yulia Помощь студентам 4 07.10.2007 18:53


09:47.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.