Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.12.2009, 11:09   #1
Chyvis
Пользователь
 
Регистрация: 07.12.2009
Сообщений: 11
По умолчанию Сортиировка и Поиск

Задать и отсортировать последовательность чисел используя встроенные средства Delphi.
Дана вещественная квадратная матрица А порядка m (m<=10). Сформировать массив X, компоненты которого есть элементы главной диагонали матрицы А, упорядоченные по неубыванию.
Кто чем может помочь, помогите!
ХеееелП
Chyvis вне форума Ответить с цитированием
Старый 07.12.2009, 12:49   #2
Aniker
 
Регистрация: 23.04.2009
Сообщений: 5
По умолчанию

Код:
program matrix;

{$APPTYPE CONSOLE}

uses
  SysUtils;

procedure Swap(var a,b:real);
var c:real;
begin
c:=a;
a:=b;
b:=c;
end;

const Max = 10;

var A:array [1..Max,1..Max] of real; // матрица
var X:array [1..Max]of real;             // нужный массив Х
m,i,f:integer;
begin
read(m);
Randomize; // заполняем матрицу случайными числами (тест)
for i:=1 to m do
 for f:=1 to m do
 begin
  A[i,f]:=random(10000)/1000;
  if random(2) = 1 then A[i,f]:=+A[i,f] else A[i,f]:=-A[i,f];
 end;
for i:=1 to m do X[i]:=A[i,i];   // берем диагональ и копируем в X
f:=0;
while f=0 do             // сортируем X пузырьком, т.к. элементов немного
 begin
 f:=1;
 for i:=1 to m-1 do
  if X[i]>X[i+1] then
   begin
   swap(X[i],X[i+1]);
   f:=0;
   end;
 end;
writeln; 
for i:=1 to m do                    // выводим матрицу А
begin
 for f:=1 to m do
  write(A[i,f]:2:5,' ');
writeln;  
end;
writeln;
for i:=1 to m do Write(X[i]:2:5,' ');   // Выводим X;
end.
Aniker вне форума Ответить с цитированием
Старый 07.12.2009, 13:30   #3
Chyvis
Пользователь
 
Регистрация: 07.12.2009
Сообщений: 11
По умолчанию

огромное спасибо, выручил
Есть просьба, не мог бы переделать, из консоля, в обычную форму, шо бы в мемо грузил..
А то я нуб, не дапру до этого
Chyvis вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Поиск БД Михаил Юрьевич БД в Delphi 5 17.08.2009 15:33
Поиск MAKEDON Общие вопросы Delphi 2 22.02.2008 22:47
Поиск Vital_k Паскаль, Turbo Pascal, PascalABC.NET 4 22.02.2008 13:01
как осуществить поиск в компоненте WebBrowser1 в delphi 7 SonClan Работа с сетью в Delphi 5 20.11.2007 12:43
Поиск по БД. Шурик БД в Delphi 1 18.09.2007 02:04