ЗАДАЧА 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 , просмотры: ☺ 537 ⌚ 16.01.2014. информатика 10-11 класс
КОД ВСТАВКИ

РЕШЕНИЯ ПОЛЬЗОВАТЕЛЕЙ
Написать своё решение

Только зарегистрированные пользователи могут писать свои решения.
Увы, но свой вариант решения никто не написал... Будь первым!

НАПИСАТЬ КОММЕНТАРИЙ

Мы ВКонтакте
Последние решения

slava191 ✎ Через месяц куртка стала стоить: [r]3800 - 3800*0.1= 3800 - 380 = 3420[/r] Через 2 месяца куртка стала стоить: [r]3420 + 3420*0.2 = 3420 + 684 = 4104[/r] [b]Ответ: [/b] 4104 рубля к задаче 17606

vygar ✎ S=F(-6)-F(-8)=(-6)^3-21*(-6)^2-144*(-6)-11/4-((-8)^3-21*(-8)^2-144*(-8)-11/4)=-216-756+864+512+1344-1152=596 Ответ.596 к задаче 17559

slava191 ✎ Эпителиальная к задаче 17637

u859314469 ✎ Извините, в фото попадает несколько задач, решение там, где номер 18. Вопросы по телефону 495-720-09-51 или почте prois@mail.ru к задаче 17190

u859314469 ✎ Извините, в фото попадает несколько задач, решение там, где номер 15. Вопросы по телефону 495-720-09-51 или почте prois@mail.ru к задаче 17187