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

@hpjet003 · Регистрация: 11.04.2012

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

произвести сортировку файлов целых чисел методом пузырька.

@Puporev · 13.04.2012, 10:07

Pascal

uses crt;
var f:file of integer;
    n,a,b,i,j:integer;
begin
clrscr;
randomize;
assign(f,'fileF');
rewrite(f);
write('Сколько чисел записать в файл n=');
readln(n);
for i:=1 to n do
 begin
  a:=random(50);
  write(f,a);
 end;
writeln('Содержание исходного файла:');
reset(f);
for i:=0 to filesize(f)-1 do
 begin
  read(f,a);
  write(a:4);
 end;
writeln;
writeln;
seek(f,0);
for i:=0 to filesize(f)-2 do
for j:=filesize(f)-1 downto i+1 do
 begin
  seek(f,j-1);
  read(f,a);
  seek(f,j);
  read(f,b);
  if a>b then
  begin
   seek(f,j-1);
   write(f,b);
   seek(f,j);
   write(f,a);
  end;
 end;
seek(f,0);
writeln('Содержание отсортированного файла:');
for i:=0 to filesize(f)-1 do
 begin
  read(f,a);
  write(a:4);
 end;
close(f);
readln
end.

@hpjet003 0 / 0 / 0 Регистрация: 11.04.2012 Сообщений: 15
		1
	Сортировка целых чисел методом пузырька 13.04.2012, 07:48. Показов 1938. Ответов 1 Метки нет (Все метки) произвести сортировку файлов целых чисел методом пузырька. 0

	13.04.2012, 10:07

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

Решение