VPF::[Pascal] Сортировка массива - Форум программистов

SunRaider

Дата 11.5.2007, 20:45 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 76
Регистрация: 10.5.2007

Репутация: -1
Всего: -1

"Массив размером M строк N столбцов заполняется числами из входного текстового файла. Исходный массив распечатывается. Столбец с максимальным последним элементом упорядочить по возрастанию методом обмена. Переделанный массив распечатать."

Мне не удается выполнить сортировку:

Код

var
m,n,jmax,i,j,i1,ki : integer;
amax, pr           : real;
a : array[1..10,1..10] of integer;
b : array[1..10] of integer;
fin, fout : text;

Label
vvod_m, vvod_n;

begin

assign (fout,'L.dat');
assign (fin,'dati.txt');
reset (fout);
rewrite (fin);

vvod_m:
  writeln('Vvedite 4islo strok massiva: ');
readln(m);

if(m<2) or (m>10) then
begin
  writeln('Nedopustimoe zna4enie!!!'); 
  goto vvod_m;
end;

vvod_n:
  writeln('Vvedite 4islo stolbchov massiva: ');
readln(n);

if(n<2) or (n>10) then
begin
  writeln('Nedopustimoe zna4enie!!!'); 
  goto vvod_n;
end;

for i:=1 to m do
for j:=1 to n do
  read(fout,a[i,j]);


writeln(fin,' Исходный массив из ',M,'x',N,
               ' элементов');
  for i:=1 to m do
  begin
    for j:=1 to n do
      write(fin,a[i,j]); 
    writeln(fin);
  end;

Пожалуйста, помогите!

Присоединённый файл ( Кол-во скачиваний: 2 )

L.dat 0,21 Kb

SunRaider

Дата 11.5.2007, 21:51 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 76
Регистрация: 10.5.2007

Репутация: -1
Всего: -1

Цитата

SunRaider, ищи в инете "сортировка вставкой", это классический алгоритм

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

SunRaider

Дата 11.5.2007, 22:43 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 76
Регистрация: 10.5.2007

Репутация: -1
Всего: -1

Код

const
size=5;

var
a:array[1..size] of integer;
i,k,buf:integer;

begin
writeln('Vvesti ',size,' 4isel');
for k:=1 to size-1 do
read(a[k]);
readln(a[size]); 

writeln('Sortirovka');
for i:=1 to size-1 do
begin
if a[k]>a[k+1] then
begin
buf:=a[k];
a[k]=a[k+1];
a[k+1]:=buf;
end;
for k:=1 to size do write(a[k],'');
writeln;
end;

writeln;
writeln('massiv otsortirovan');
for k:=1 to size do write(a[k],'');
readln;
end.

Guedda

Дата 12.5.2007, 09:26 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 6
Всего: 78

А что именно не получается?

--------------------

Ll 2

SunRaider

Дата 12.5.2007, 14:22 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 76
Регистрация: 10.5.2007

Репутация: -1
Всего: -1

Сложный ввод массива потому, что задание дебил придумал! А можно пример правильной сортировки? Желательно в применении к моему массиву!

SunRaider

Дата 12.5.2007, 21:12 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 76
Регистрация: 10.5.2007

Репутация: -1
Всего: -1

Большое спасибо! А сортировка обменом - это и есть пузырьковая. Sorry, надо было сразу так написать :-( Так просто в тупых учебниках любят писать!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »