Сортировка массива методом пузырька

@AntonDJ · Регистрация: 08.06.2014

Author24 — интернет-сервис помощи студентам

Приветствую всех. Прошу помощи у знающих людей с написанием программы.

Итак, условия - дан числовой массив 15x15, который берется из текстового файла. Нужно отсортировать числа массива по возрастанию от наименьшего к большему и вывести его в другой текстовый файл.

Pascal

const
     n=15;
var
     f:text;
     a:array[1..225] of integer;
     i,j,s,e,c:integer;
begin
     assign(f,'E:\input.txt');
     reset(f);
              write ('Исходный массив: ');
              for i:=1 to n do
              for j:=1 to n do
              begin
                   read(f,a[i]);
                   write(a[i],' ');
              end;
     c:=224;
     for i:=1 to c do
 
     begin
          if a[i]>a[i+1] then
             begin
                  s:=a[i];
                  a[i]:=a[i+1];
                  a[i+1]:=s;
             end;
     end;
     c:=c-1;
 
     for i:=1 to c do
     begin
          if a[i]>a[i+1] then
             begin
                  s:=a[i];
                  a[i]:=a[i+1];
                  a[i+1]:=s;
             end;
     end;
end.

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

@Puporev · 08.06.2014, 19:26

Вот вариант сортировки двухмерного массива,предложенный UI.
У вас будет 15х15

Pascal

uses crt;
const
  R = 5;
  C = 10;
var
  a : array[1 .. R, 1 .. C] of integer;
 
function Col(i : Integer) : Integer;
begin
 Result := Succ(Pred(i) mod C)
end;
function Row(i : Integer) : Integer;
begin
 Result := Succ(Pred(i) div C)
end;
 
var
  i, j : Integer;
  T : Integer;
begin
randomize;
writeln('Исходная матрица');
for i:=1 to r do
 begin
  for j:=1 to c do
   begin
    a[i,j]:=random(100);
    write(a[i,j]:4)
   end;
  writeln
 end;
for i := 1 to R * C do
for j := R * C downto Succ(i) do
if a[Row(j - 1), Col(j - 1)] > a[Row(j), Col(j)] then
 begin
   T := a[Row(j - 1), Col(j - 1)];
   a[Row(j - 1), Col(j - 1)] := a[Row(j), Col(j)];
   a[Row(j), Col(j)] := T;
 end;
writeln('Отсортированная матрица');
for i:=1 to r do
 begin
  for j:=1 to c do
  write(a[i,j]:4);
  writeln
 end;
end.

@AntonDJ · 08.06.2014, 19:32 **[ТС]**

Сообщение от Puporev

Вот вариант сортировки двухмерного массива,предложенный UI.
У вас будет 15х15

К сожалению данная вами программа вообще не запускается. Неизвестный идентификатор пишет.

С моим кодом можете помочь ? Вся проблема с выводом.

@Puporev · 08.06.2014, 19:41

Сообщение от AntonDJ

Вся проблема с выводом.

Да нет, не только, массив должен быть двумерным

Pascal

1	a:array[1..n,1..n] of integer;

Добавлено через 4 минуты

Сообщение от AntonDJ

К сожалению данная вами программа вообще не запускается.

Нормально запускается, не сочиняйте, просто нужно чуть поправить под Турбо Паскаль.

Pascal

uses crt;
const
  R = 5;
  C = 10;
var
  a : array[1 .. R, 1 .. C] of integer;
 
function Col(i : Integer) : Integer;
begin
 Col := Succ(Pred(i) mod C)
end;
function Row(i : Integer) : Integer;
begin
 Row := Succ(Pred(i) div C)
end;
 
var
  i, j : Integer;
  T : Integer;
begin
randomize;
writeln('Исходная матрица');
for i:=1 to r do
 begin
  for j:=1 to c do
   begin
    a[i,j]:=random(100);
    write(a[i,j]:4)
   end;
  writeln
 end;
for i := 1 to R * C do
for j := R * C downto Succ(i) do
if a[Row(j - 1), Col(j - 1)] > a[Row(j), Col(j)] then
 begin
   T := a[Row(j - 1), Col(j - 1)];
   a[Row(j - 1), Col(j - 1)] := a[Row(j), Col(j)];
   a[Row(j), Col(j)] := T;
 end;
writeln('Отсортированная матрица');
for i:=1 to r do
 begin
  for j:=1 to c do
  write(a[i,j]:4);
  writeln
 end;
readln
end.

Добавлено через 33 секунды

Сообщение от AntonDJ

С моим кодом можете помочь ? Вся проблема с выводом.

Бог поможет.

@AntonDJ · 08.06.2014, 19:44 **[ТС]**

Сообщение от Puporev

Нормально запускается, не сочиняйте, просто нужно чуть поправить под Турбо Паскаль.

К сожалению я не особо знаю язык, как вы наверное уже поняли.

Да, сейчас все работает, спасибо, а с вводом и выводом поможете разобраться ?

@Puporev · 08.06.2014, 20:01

Вот гибрид из двух программ.

Pascal

uses crt;
const n=15;
 
function Col(i:integer):integer;
begin
 Col:=Succ(Pred(i) mod n)
end;
function Row(i:integer):integer;
begin
 Row:=Succ(Pred(i) div n)
end;
 
var f:text;
    a:array[1..n,1..n] of integer;
    i,j,t:integer;
begin
clrscr;
assign(f,'input.txt');
reset(f);
writeln('Исходный массив: ');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    read(f,a[i,j]);
    write(a[i,j]:4);
   end;
  writeln
 end;
close(f);
for i:=1 to n*n do
for j:=n*n downto Succ(i) do
if a[Row(j-1),Col(j-1)]>a[Row(j),Col(j)] then
 begin
   t:=a[Row(j-1),Col(j-1)];
   a[Row(j-1),Col(j-1)]:=a[Row(j),Col(j)];
   a[Row(j),Col(j)]:=t;
 end;
writeln('Отсортированный массив');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln
 end;
readln
end.

Добавлено через 1 минуту
Если не знаешь, то
succ(i) номер следующего элемента
pred(i) номер предыдущего элемента

@AntonDJ · 08.06.2014, 20:29 **[ТС]**

Сообщение от Puporev

Вот гибрид из двух программ.

Огромное спасибо. Последний вопрос, сделал вывод в файл output, но почему-то выводит в строчку, а не матрицей, не подскажите как правильно сделать ?

@Puporev · 08.06.2014, 20:32

Pascal

writeln('Отсортированный массив');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    write(a[i,j]:4);
    writeln(f,a[i,j]:4);
   end;
  writeln;
  writeln(f)
 end;
close(f);
readln
end.

@AntonDJ · 08.06.2014, 20:59 **[ТС]**

Pascal

uses crt;
const n=15;
 
function Col(i:integer):integer;
begin
 Col:=Succ(Pred(i) mod n)
end;
function Row(i:integer):integer;
begin
 Row:=Succ(Pred(i) div n)
end;
 
var f:text;
    a:array[1..n,1..n] of integer;
    i,j,t:integer;
begin
clrscr;
assign(f,'E:\input.txt');
reset(f);
writeln('Исходный массив: ');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    read(f,a[i,j]);
    write(a[i,j]:4);
   end;
  writeln
 end;
close(f);
for i:=1 to n*n do
for j:=n*n downto Succ(i) do
if a[Row(j-1),Col(j-1)]>a[Row(j),Col(j)] then
 begin
   t:=a[Row(j-1),Col(j-1)];
   a[Row(j-1),Col(j-1)]:=a[Row(j),Col(j)];
   a[Row(j),Col(j)]:=t;
 end;
  assign(f,'E:\output.txt');
rewrite(f);
writeln('Отсортированный массив');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    write(a[i,j]:4);
    writeln(f,a[i,j]:4);
   end;
  writeln;
  writeln(f)
 end;
close(f);
readln
end.

Вот полный код, сейчас вывод происходит в 1 столбик.

Добавлено через 4 минуты
А, все, разобрался извиняюсь. Огромное спасибо вам за помощь.

@AntonDJ 0 / 0 / 0 Регистрация: 08.06.2014 Сообщений: 5
	08.06.2014, 19:32 [ТС]	3
	Сообщение от Puporev Вот вариант сортировки двухмерного массива,предложенный UI. У вас будет 15х15 К сожалению данная вами программа вообще не запускается. Неизвестный идентификатор пишет. С моим кодом можете помочь ? Вся проблема с выводом. 0

@AntonDJ 0 / 0 / 0 Регистрация: 08.06.2014 Сообщений: 5
	08.06.2014, 19:44 [ТС]	5
	Сообщение от Puporev Нормально запускается, не сочиняйте, просто нужно чуть поправить под Турбо Паскаль. К сожалению я не особо знаю язык, как вы наверное уже поняли. Да, сейчас все работает, спасибо, а с вводом и выводом поможете разобраться ? 0

@AntonDJ 0 / 0 / 0 Регистрация: 08.06.2014 Сообщений: 5
	08.06.2014, 20:29 [ТС]	7
	Сообщение от Puporev Вот гибрид из двух программ. Огромное спасибо. Последний вопрос, сделал вывод в файл output, но почему-то выводит в строчку, а не матрицей, не подскажите как правильно сделать ? 0

	08.06.2014, 20:59

Сортировка массива методом пузырька

Решение