✎ Задать свой вопрос   *более 30 000 пользователей получили ответ на «Решим всё»

Задача 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, просмотры: ☺ 999 ⌚ 16.01.2014. информатика 10-11 класс

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

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

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

Последние решения
(прикреплено изображение)
✎ к задаче 45682
3.
y`=3\cdot (3x^5+8x^3+7x^2-\sqrt{3})^{4}\cdot (3x^5+8x^3+7x^2-\sqrt{3})`

y`=3\cdot (3x^5+8x^3+7x^2-\sqrt{3})^{4}\cdot (15x^4+24x^2+4x)

y`=3\cdot (15x^4+24x^2+4x)\cdot 3x^5+8x^3+7x^2-\sqrt{3})^{4}

4.

y`=\frac{(2-5x)`}{2\sqrt{2-5x}}+6\cdot(3x-5)^{4}\cdot(3x-5)`

y`=\frac{(-5)}{2\sqrt{2-5x}}+6\cdot(3x-5)^{4}\cdot 3

y`=-\frac{5}{2\sqrt{2-5x}}+18\cdot(3x-5)^{4}

✎ к задаче 45683


2.
y`=-sin(x+\frac{2\pi}{3}) \cdot (x+\frac{2\pi}{3})`-\frac{1}{cos^2(x-\frac{\pi}{4})}\cdot (x-\frac{\pi}{4})`

y`=-sin(x+\frac{2\pi}{3}) \cdot1-\frac{1}{cos^2(x-\frac{\pi}{4})}\cdot 1

y`=-sin(x+\frac{2\pi}{4})-\frac{1}{cos^2(x-\frac{\pi}{4})}

✎ к задаче 45682
СD-BD=CВ
✎ к задаче 45680
(прикреплено изображение)
✎ к задаче 45679