Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Инфоурок / Информатика / Другие методич. материалы / Программы сортировки массива разными способами на языке Паскаль

Программы сортировки массива разными способами на языке Паскаль

  • Информатика

Поделитесь материалом с коллегами:

Программы сортировки массива разными способами на языке программирования Паскаль


Сортировка массива выбором с использованием дополнительного массива.


program Сортировка выбором;

const

N=10;

var

A,B:array[1..N] of integer;

J,I,Jmin,Min,Max:integer;


begin

for J:=1 to N do

A[J]:=random(100);

Max:=A[1];

for J:=2 to N do

if A[J]> Max then Нахождение максимального

Max:=A[J];


For I:=1 to N do

begin

Min:=A[1];

Jmin:=1;


for J:=2 to N do

begin

if A[J]< Min then

begin Нахождение минимального

Min:= A[J];

Jmin:=J;

еnd;

end;


B[I]:=Min;

A[Jmin]:=Max;

end;

end.


Сортировка массива выбором без использования дополнительного массива.

program бездомас;

const

N=10;

var

A:array[1..N] of integer;

J,I,Max,Min,Jmin,C:integer;

begin

for J:=1 to N do

A[J]:=random(100);


for I:=1 to N-1 do

begin

Min:=A[I];

Jmin:=I;


for J:=I+1 to N do

begin

if A[J]< Min then

begin

Min:=A[J];

Jmin:=J;

end;

end;

C:= A[I];

A[I]:=Min;

A[Jmin]:=C;

end;

for J:=1 to N do

writeln('A=',A[J]);

end.







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



program пузырек;

const

N=10;

var

A:array[1..N] of integer;

J,M,Vr,Flag:integer;

begin

for J:=1 to N do

A[J]:=random(100);

M:=N;

Flag:= 0;

while Flag = 0 do

begin

Flag:=0;

for J:=1 to M-1 do

if A[J]> A[J+1] then

begin

Vr:=A[J];

A[J]:=A[J+1];

A[J+1]:=Vr;

Flag:=1;

end;

M:=M-1;

end;

end.












Демонстрационный вариант.


var k,i,j, tmp, N: integer;

a:array [1..1000] of integer;

begin

N:=0;

readln(k);

while k<>0 do begin

N:=N+1;

a[N] :=k;

readln(k);

end;

for i:=1 to N-1 do

for j:=1 to N-i do

if a[j]> a[j+1] then begin

tmp:=a[j]; a[j]:=a[j+1]; a[j+1]:=tmp;

end;

for i:=1 to N do writeln(a[i]) ;

end.



Автор
Дата добавления 18.10.2016
Раздел Информатика
Подраздел Другие методич. материалы
Просмотров25
Номер материала ДБ-272230
Получить свидетельство о публикации
Похожие материалы

Включите уведомления прямо сейчас и мы сразу сообщим Вам о важных новостях. Не волнуйтесь, мы будем отправлять только самое главное.
Специальное предложение
Вверх