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

Общие вопросы: версии и диалекты, синтаксис языка, cтруктуры и типы данных (массивы, строки, списки...), обработка данных и т.д.
Ответить
dvpvitas
Сообщения: 2
Зарегистрирован: 14 июн 2015, 09:10

07 фев 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.dim>a[j].dim then
begin
tmp:=a;
a:=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.dim);
end;
begin
clrscr;
writeln('Заполните данные о планетах');
write('Введите кол-во планет: ');
read(n);
for i:=1 to n do
begin
writeln(i,'-я планета');
write('-номер планеты:');
readln(a.nom);
write('-название планеты:');
readln(a.nazv);
write('-диаметр:');
readln(a.dim);
end;
writeln;
puz(a,n);
vivod(a,n);
readln;
end.
Сортировка методом пузырька не получается.
Ответить