Сортировки( метод просеивания)

[SVing]

Что с этим делать не понимаю вообще.Методичка не помошник.Надежда на вас!


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

[astecenko]

Про последовательности: http://clck.ru/W/0ynMZ
Про сортировку: http://www.intuit.ru/department/algo...2/1.html#sect4

[SVing]

это не поможет(

[BDA]

Чем вас не устроило мое решение в предыдущей теме?

[SVing]

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

[BDA]

Извините, через какой файл???
(дублирую код сюда)

uses CRT;

const
	T1=100;
	T2=100;

var
  a:array[1..T1,1..T2] of real;
  n,m,i,j,q,pos:integer;
  t:boolean;
  max,tmp:real;
  
label printer;

begin
  writeln('Input n*m:');
  readln(n,m);
  max:=-1000000;
  t:=false;
  for i:=1 to n do
	for j:=1 to m do
	begin
		write('a[',i,',',j,']: ');
		readln(a[i,j]);
		if a[i,j]>max then
		begin
			max:=a[i,j];
			pos:=i;
		end;
	end;
  if pos<>2 then
	goto printer;
  i:=1;
  while (i<m)and not t do
  begin
	if a[2,i]<a[2,i+1] then
		t:=true;
	inc(i);
  end;
  if t then
	goto printer;	
  for i:=1 to m do
	for j:=1 to n-1 do
		for q:=j+1 to n do
			if a[j,i]>a[q,i] then
			begin
				tmp:=a[j,i];
				a[j,i]:=a[q,i];
				a[q,i]:=tmp;		
			end;
  printer:
  for i:=1 to n do
  begin
	for j:=1 to m do
		write(a[i,j]:5:2,' ');
	writeln;
  end; 
  readln;
end.

[SVing]

там где константа ,матрица сама походу бралась из файла чтоб её не вводить

[BDA]

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

[SVing]

ага,окей.попрубую этот вариант.спасибо большое,что помогаешь.

[SVing]

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