Одномерный массив из 10 элементов отсортировать в порядке возрастания

@God-Cerbin · Регистрация: 25.10.2018

Одномерный массив из 10 элементов отсортировать в порядке возрастания. Метод сортировки любой. Результат вывести на экран и записать в файл
(Одномерный массив считывается из файла или создаётся в процессе работы программы)

@Puporev · 25.10.2018, 09:47

Pascal

procedure TForm1.Button1Click(Sender: TObject);
const n=10;
var a:array[1..n] of integer;
    f:textfile;
    i,j,x:integer;
begin
randomize;
assignfile(f,'massiv.txt');
rewrite(f);
writeln(f,UTF8ToAnsi('Исходный файл'));
Label2.Caption:='';
for i:=1 to n do
 begin
   a[i]:=10+random(90);
   Label2.Caption:=Label2.Caption+inttostr(a[i])+'  ';
   write(f,a[i],'  ');
  end;
writeln(f);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
 begin
   x:=a[i];
   a[i]:=a[j];
   a[j]:=x;
 end;
writeln(f,UTF8ToAnsi('Отсортированный файл'));
Label4.Caption:='';
for i:=1 to n do
 begin
   Label4.Caption:=Label4.Caption+inttostr(a[i])+'  ';
   write(f,a[i],'  ');
  end;
closefile(f);
ShowMessage('Данные записаны в файл massiv.txt, расположенный в папке с программой');
end;

@Puporev · 25.10.2018, 09:54

Одномерный массив создаётся в процессе работы программы/

@God-Cerbin · 22.11.2018, 07:30 **[ТС]**

Нужна ещё помощь, теперь мне нужно на вторую кнопку добавить быструю сортировку или сортировку методом пузырька

@Puporev · 22.11.2018, 08:35

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

@God-Cerbin 0 / 0 / 0 Регистрация: 25.10.2018 Сообщений: 11
		1
	Одномерный массив из 10 элементов отсортировать в порядке возрастания 25.10.2018, 09:15. Показов 4460. Ответов 4 Метки задача, одномерный массив (Все метки) Одномерный массив из 10 элементов отсортировать в порядке возрастания. Метод сортировки любой. Результат вывести на экран и записать в файл (Одномерный массив считывается из файла или создаётся в процессе работы программы) 0

@Puporev Почетный модератор 64275 / 47574 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	25.10.2018, 09:54	3
	Одномерный массив создаётся в процессе работы программы/ 0

@God-Cerbin 0 / 0 / 0 Регистрация: 25.10.2018 Сообщений: 11
	22.11.2018, 07:30 [ТС]	4
	Нужна ещё помощь, теперь мне нужно на вторую кнопку добавить быструю сортировку или сортировку методом пузырька 0

@Puporev Почетный модератор 64275 / 47574 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	22.11.2018, 08:35	5
	Ну так найдите в Поиске, лучше в разделе Паскаль любую сортировку и вставьте в свой проект. Я же не нанимался исполнять все Ваши прихоти. 0

Опции темы