Помогите с задачей

[Гудвин]

Задана матрица размером NxM. Упорядочить ее строки по неубыванию их наибольших элементов.

[Sazary]

Чем помочь? Где вопросы и ваши наработки?

[Гудвин]

Задачу нужно сделать в Delphi. Я пробовал сортировку методом "пузырька". Но не получается из максимальных элементов сделать массив (если он надо?). Дальше связать со строками. Код получился такой:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls;

type
TForm1 = class(TForm)
Memo1: TMemo;
btnCompute: TButton;
strgrA: TStringGrid;
strgrY: TStringGrid;
procedure FormCreate(Sender: TObject);
procedure btnComputeClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
const M=2; N=4;
var
A:array[1..M,1..N] of real;
Y:array[1..M,1..N] of real;
k,d,i,j:integer;
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Clear;
Memo1.Lines.Add('CJ');

{задание числа строк и столбцов в таблицах}
strgrA.ColCount:=M+1;
strgrA.RowCount:=N+1;
strgrY.ColCount:=M+1;
strgrY.RowCount:=N+1;

{ввод в левую верхнюю ячейку таблицы названия массива}
strgrA.Cells[0,0]:='Массив А:';
strgrY.Cells[0,0]:='Массив Y:';

end;

procedure TForm1.btnComputeClick(Sender: TObject);
var

max,P:real;
begin
{заполнение массива A элементами из таблицы strgrA}
for i:=1 to M do
for j:=1 to N do
A[i,j]:= StrToFloat(strgrA.Cells[i,j]);

for j:=1 to N do
begin
max:=A[i,1];
for i:=1 to M do
if A[i,j]>=max then max:=A[i,j];
Memo1.Lines.Add('max в строке ='+FloatToStrF(max,ffFixed,6,2));
end;

for i:=1 to M do
for j:=1 to N do
Y[i,j]:= StrToFloat(strgrA.Cells[i,j]);


for k:=n downto 1 do
for i:=1 to k do
for d:=m-1 downto 1 do
for j:=1 to d do
if Y[i,j]>Y[i,j+1]
then
begin

P:=Y[i,j];
Y[i,j]:=Y[i,j+1]; Y[i,j+1]:=P;
end;

for i:=1 to M do
for j:=1 to N do
strgrY.Cells[i,j]:=FloatToStrF(Y[i,j],ffFixed,6,0);

end;
end.

[Sazary]

Если честно, сейчас не хочется разбираться со всякими гридами и прочим. Написал на паскале.
Поменяется только ввод-вывод, который, у вас, вроде как, уже сделан.
Я выделил кусок, который делает то, что требуется.

uses crt;
const M=4; N=4;
var
A : array[1..M,1..N] of integer;
i,j,k,max,tmp : integer;
mas : array[1..M] of integer;  { массив для максимумов }

begin
clrscr;
randomize;
for i:=1 to M do
 begin
 for j:=1 to N do
  begin
  a[i,j] := random(30)+1;
  write(a[i,j]:4);
  end;
 writeln;
 end;
writeln;
writeln;
{---------}

{==========================================================}
{ ищем максимумы в строках }
for i:=1 to M do
 begin
 mas[i] := a[i,1];
 for j:=1 to N do
  if a[i,j]>mas[i] then mas[i] := a[i,j];
 end;
{ -- максимумы найдены. Теперь сортируем по ним --- }

for i:=1 to M-1 do
 begin
 max := i;
 for k:=i+1 to M do
  if mas[k]<mas[max] then max := k;

 for j:=1 to N do
  begin
  tmp := a[i,j];
  a[i,j] := a[max,j];
  a[max,j] := tmp;
  end;
 tmp := mas[i];
 mas[i] := mas[max];
 mas[max] := tmp;

 end;
{---------}
{====================================================}

for i:=1 to M do
 begin
 for j:=1 to N do
  write(a[i,j]:4);
 writeln;
 end;

readln;
end.

[Гудвин]

СПАСИБО ОГРОМНОЕ!!!!!!!!!!!!!!!!!!!!!!

[Taures_tek]

Здравствуйте сразу хочу сказать я ещё не студент, только абитуриент, но на подготовительных курсах нам задали задачу повышенной сложности я думаю знаюшщие люди могут помочь

[Taures_tek]

Необходимо создать программу, чтобы она воспроизводила 20 медиафайлов, при этом при нажатии проигрывать плейлист - чтобы файлы проигрывались не в одном порядке, а хаотично. УВажаемые знающие люди скажите пожалуйста как мне справиться с этим, может быть кто то может написать ?

[Костя КС]

Taures_tek,
а какой язык?

[Taures_tek]

не указали - сказали сделать - то есть в каком кто ссможет то есть на курсах мы пока токо изучали Pascal и то бегло.
ну то есть для нас абитуриентов - задание оч повышенной сложности то есть кто как может .

[Костя КС]

ну я, в принципе, мог совершенно бескорыстно попробовать сделать в делфи. Если конечно не найдется более "знающий" человек, которому некуда девать время.
Если мое предложение тебя интересует, то давай как-нибудь свяжемся не через форум, не хочется получать штраф за болтавню не по теме