✎ Задать свой вопрос   *более 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, просмотры: ☺ 884 ⌚ 16.01.2014. информатика 10-11 класс

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

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

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

Последние решения
1.1
log_(2)x=-3 ⇒ x=2^(-3); [b]x=1/8[/b]

1.2
0,00032=0,2^5
корень пятой степени из 0,2^5 равен [b]0,2[/b]
[удалить]
✎ к задаче 38868


Замена переменной:
sqrt((x+1)/(x+y))=u, u>0
sqrt((x+y)/(x+1))=1/u

sqrt((x+1)/(y+2))=v, v > 0
sqrt((y+2)/(x+1))=1/v

Система примет вид:

{u+(1/u)=2 ⇒ (u^2-2u+1)/u=0 ⇒ u=1
{v-(1/v)=(3/2) ⇒ (2v^2-3v-2)/v=0 ⇒ v=2 или v=-1/2 ( не удовл v>0)

sqrt ((x+1)/(x+y))=1 ⇒ (x+1)/(x+y)=1 ⇒ x+1=x+y ⇒ y=1; любое, х ≠ -1

sqrt((x+1)/(у+2))=2 ⇒ (x+1)/(y+2)=4 ⇒ x+1=4y+8, у ≠ -2; х ≠ -1

{y=1
{x+1=4y+8 ⇒ x=11

О т в е т. (11;1)
[удалить]
✎ к задаче 38866
P=I(1+0,2)cos^2θ [удалить]
✎ к задаче 38857
Справа изменения для ваших чисел (прикреплено изображение) [удалить]
✎ к задаче 38855
(прикреплено изображение) [удалить]
✎ к задаче 38847