PDA

Просмотр полной версии : Сортировка по диаметру методом пузырька



dvpvitas
07.02.2016, 12:40
1.Описать массив записей, содержащий следующие поля:
 номер планеты по удалению от Солнца;
 название планеты;
 диаметр;
сортировка по диаметру методом пузырька.
uses crt;
type mas=record
nazv:string[30];
nom,dim:integer;
end;
mass=array [1..20] of mas;
var a:mass;
i,n,j:integer;
procedure puz(a:mass;n:integer);
var flag:boolean;
tmp:mas;
begin
for i:=1 to n-1 do begin
flag:=false;
for j:=i+1 to n do
if A[i].dim>a[j].dim then
begin
tmp:=a[i];
a[i]:=a[j];
A[j]:=tmp;
flag:=true;
end;
if flag=false then
break;
end;
end;
procedure vivod(a:mass;n:integer);
begin
for i:=1 to n do
writeln(a[i].dim);
end;
begin
clrscr;
writeln('Заполните данные о планетах');
write('Введите кол-во планет: ');
read(n);
for i:=1 to n do
begin
writeln(i,'-я планета');
write('-номер планеты:');
readln(a[i].nom);
write('-название планеты:');
readln(a[i].nazv);
write('-диаметр:');
readln(a[i].dim);
end;
writeln;
puz(a,n);
vivod(a,n);
readln;
end.
Сортировка методом пузырька не получается.