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

УСЛОВИЕ:

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

РЕШЕНИЕ:

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.

Есть вопрос по решению?
Нашли ошибку?

ОТВЕТ:

в решение

Добавил slava191, просмотры: ☺ 677 ⌚ 16.01.2014. информатика 10-11 класс

Решения пользователелей

Хочешь предложить свое решение? Войди и сделай это!
Увы, но свой вариант решения никто не написал... Будь первым!

Написать комментарий

Последнии решения
Получается, что мальчики вдвоем съели одну коробку конфет, а другая коробка на двоих осталась.
Ответ: 12 конфет.
[удалить]
✎ к задаче 29340
(прикреплено изображение) [удалить]
✎ к задаче 29318
(прикреплено изображение) [удалить]
✎ к задаче 29326
(прикреплено изображение) [удалить]
✎ к задаче 29323
(прикреплено изображение) [удалить]
✎ к задаче 29324