Задача 484 Отсортировать кубики по цветам, внутри...

slava191

16 января 2014 г.

Отсортировать кубики по цветам, внутри одного цвета – по размеру, а внутри од–ного размера – по весу.

type
kubik=record
color:string;
size:integer;
weight:integer;
end;

var
m:array [1..N] of kubik;
i:integer;d:string;j:integer;
d2:integer;
begin
for i:=1 to N do begin
writeln('Цвет ', i, ' кубика');
readln(m[i].color);
writeln('Размер ', i, ' кубика');
readln(m[i].size);
writeln('Вес ', i,' кубика');
readln(m[i].weight);
end;

for j:=1 to N do
for i:=1 to N–j do
begin
if m[i].weight>m[i+1].weight then

begin
d2:=m[i].weight;
m[i].weight:=m[i+1].weight;
m[i+1].weight:=d2;
end;
end;

for j:=1 to N do
for i:=1 to N–j do
begin
if m[i].size>m[i+1].size then
begin
d2:=m[i].size;
m[i].size:=m[i+1].size;
m[i+1].size:=d2;
end;
end;

for j:=1 to N do
for i:=1 to N–j do
begin
if m[i].color>m[i+1].color then
begin
d:=m[i].color;
m[i].color:=m[i+1].color;
m[i+1].color:=d;
end;
end;

for i:=1 to N do
writeln('цвет: ',m[i].color,' размер: ',m[i].size,' вес: ',m[i].weight);

end.

Ответ: в решение