Упорядочить список...

@АнтиРЛелик · Регистрация: 02.05.2010

Author24 — интернет-сервис помощи студентам

Имеется N транспортных средств (ТС). Каждое ТС характеризуется ценой, мощностью двигателя и грузоподъемностью. Упорядочить список ТС: по мощности двигателя, по грузоподъемности.

Добавлено через 24 минуты

Pascal

type ts=record
          dvigok,cena:integer;
          end;
var a:array[1..100] of ts;
    x:ts;
    n,i,j:byte;
    begin
write('введите количество транспортных средств n=');
readln(n);
writeln('введите данные:');
for i:=1 to n do
 begin
  writeln('тс ',i);
  write('цена ');readln(a[i].cena);
  write('мощность двигателя ');readln(a[i].dvigok);
 end;
 
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i].dvigok>a[j].dvigok then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
writeln('по мощности с наименьшей');
for i:=1 to n do
writeln(a[i].cena,'  ',a[i].dvigok);
readln
end.

Добавлено через 2 минуты
это я по мощности отсортировал...а как бы еще впихнуть ГРУЗОПОДЪЕМНОСТЬ сюда

подскажите прошу ,кто сообразил...

@lera8 · 17.05.2010, 21:54

Вам по мощности и по грузоподъёмность нужно я так поняла?

@АнтиРЛелик · 17.05.2010, 21:56 **[ТС]**

Сообщение от lera8

Вам по мощности и по грузоподъёмность нужно я так поняла?

ага,чтобы сначала написало... по мощности с наименьшей,птом ниже по грузоподъемности...вот так бы хотелось..

@lera8 · 17.05.2010, 22:00

Так почему бы вам не сделать то же самое как тут

for i:=1 to n-1 do
for j:=i+1 to n do
if a[i].dvigok>a[j].dvigok then
begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
writeln('по мощности с наименьшей');
for i:=1 to n do
writeln(a[i].cena,' ',a[i].dvigok);

но только с грузоподъёмностью или не совсем хорошо понимаю смысл задачи?

@АнтиРЛелик · 17.05.2010, 22:08 **[ТС]**

Сообщение от lera8

Так почему бы вам не сделать то же самое как тут но только с грузоподъёмностью или не совсем хорошо понимаю смысл задачи?

так пытаюсь... ерунда получается

я исходник переделываю..
вы если разобрались,киньте что получилось .

@lera8 · 17.05.2010, 22:13

Я подправила не знаю так не так вам нужно

Pascal

type ts=record
          dvigok,cena,gruzpod:integer;
          end;
var a:array[1..100] of ts;
    x:ts;
    n,i,j:byte;
    begin
write('введите количество транспортных средств n=');
readln(n);
writeln('введите данные:');
for i:=1 to n do
 begin
  writeln('тс ',i);
  writeln('цена ');readln(a[i].cena);
  writeln('мощность двигателя ');readln(a[i].dvigok);
  writeln('грузоподъёмность ');readln(a[i].gruzpod);
 end;
 
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i].dvigok>a[j].dvigok then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
writeln('по мощности с наименьшей');
for i:=1 to n do
writeln(a[i].cena,'  ',a[i].dvigok);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i].gruzpod>a[j].gruzpod then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
writeln('по грузопод с наименьшей');
for i:=1 to n do
writeln(a[i].cena,'  ',a[i].gruzpod);
readln
end.

@АнтиРЛелик · 17.05.2010, 22:19 **[ТС]**

спасибочки,хоть смотрю код и сравниваю со своим ,один в один вроде бы ...а мой не работает

а как бы ,для наглядности ,вывести в итог номера тс ,индексы им приклеить...иначе только по цене отличить можно ,а если цена одинаковая...

@lera8 · 17.05.2010, 22:30

ну значит вам нужно поправить немного

Pascal

type ts=record
          nom,dvigok,cena,gruzpod:integer;
          end;
var a:array[1..100] of ts;
    x:ts;
    n,i,j:byte;
    begin
write('введите количество транспортных средств n=');
readln(n);
writeln('введите данные:');
for i:=1 to n do
 begin
  writeln('тс ',i);
  a[i].nom:=i;
  writeln('цена ');readln(a[i].cena);
  writeln('мощность двигателя ');readln(a[i].dvigok);
  writeln('грузоподъёмность ');readln(a[i].gruzpod);
 end;
 
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i].dvigok>a[j].dvigok then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
writeln('по мощности с наименьшей');
for i:=1 to n do
writeln(a[i].nom,' ',a[i].cena,'  ',a[i].dvigok);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i].gruzpod>a[j].gruzpod then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
writeln('по грузопод с наименьшей');
for i:=1 to n do
writeln(a[i].nom,' ',a[i].cena,'  ',a[i].gruzpod);
readln
end.

@lera8 636 / 219 / 64 Регистрация: 03.11.2009 Сообщений: 488
	17.05.2010, 21:54	2
	Вам по мощности и по грузоподъёмность нужно я так поняла? 0

@АнтиРЛелик 2 / 2 / 1 Регистрация: 02.05.2010 Сообщений: 92
	17.05.2010, 21:56 [ТС]	3
	Сообщение от lera8 Вам по мощности и по грузоподъёмность нужно я так поняла? ага,чтобы сначала написало... по мощности с наименьшей,птом ниже по грузоподъемности...вот так бы хотелось.. 0

@lera8 636 / 219 / 64 Регистрация: 03.11.2009 Сообщений: 488
	17.05.2010, 22:00	4
	Так почему бы вам не сделать то же самое как тут for i:=1 to n-1 do for j:=i+1 to n do if a[i].dvigok>a[j].dvigok then begin x:=a[i]; a[i]:=a[j]; a[j]:=x; end; writeln('по мощности с наименьшей'); for i:=1 to n do writeln(a[i].cena,' ',a[i].dvigok); но только с грузоподъёмностью или не совсем хорошо понимаю смысл задачи? 0

@АнтиРЛелик 2 / 2 / 1 Регистрация: 02.05.2010 Сообщений: 92
	17.05.2010, 22:08 [ТС]	5
	Сообщение от lera8 Так почему бы вам не сделать то же самое как тут но только с грузоподъёмностью или не совсем хорошо понимаю смысл задачи? так пытаюсь... ерунда получается я исходник переделываю.. вы если разобрались,киньте что получилось . 0

@АнтиРЛелик 2 / 2 / 1 Регистрация: 02.05.2010 Сообщений: 92
	17.05.2010, 22:19 [ТС]	7
	спасибочки,хоть смотрю код и сравниваю со своим ,один в один вроде бы ...а мой не работает а как бы ,для наглядности ,вывести в итог номера тс ,индексы им приклеить...иначе только по цене отличить можно ,а если цена одинаковая... 0

	17.05.2010, 22:30