Создание массива и сортировка его в сред TurboPascal

[MaKKeY]

Здравствуйте, Уважаемые программисты и сисадмины. У меня проблемка с задачей на TP. Мне задали вот такую задачу: "Заданы стоимость различных деталей, выпускаемых мастерской, и их названия. Отсортируйте их по стоимости и алфавиту". Надо составить такую программу без всяких "выкрутасов" как сказал преподаватель, т.е. чем она "легче", тем лучше. Заранее Спасибо всем тем, кто откликнется. P.S. Программирование не моя основная специальность, поэтому не разбираюсь в ней.

[GetMax]

Проще всего ( по моему мнению) здесь использовать записи. Создать запись и отсортировать детали по стоимости можно так

Type
  Detali = record
                Nazv:String[20];
                Cena:Word
              End;
Var
  Mas:Array[1..3] of Detali;
  I,Kol:Byte;
  Buf:Word;
  Obmen:Boolean;
begin
   For i:=1 to 3 do With Mas[i] do
   Begin
     Write('Vvedite nazvanie ',i,' detali ');
     Readln(Nazv);
     Write('Vvedite cenu ',i,' detali ');
     Readln(Cena)
   End;
   Kol:=3;
   Repeat
     Obmen:=False;
     For i:=1 to Kol-1 do With Mas[i] do
     If Mas[i].Cena < Mas[i+1].Cena then
     Begin
       Buf:=Mas[i].Cena;
       Mas[i].Cena:=Mas[i+1].Cena;
       Mas[i+1].Cena:=Buf;
       Obmen:=True
     End;
     Dec(Kol)
   Until Not Obmen;
   For i:=1 to 3 do With Mas[i] do
   Writeln(Nazv,' ':25-Length(Nazv),Cena);
   Readln
End;

Сортировку деталей по алфавиту можно точно так же

[MaKKeY]

Спасибо большое. Но вот в чем задачка то еще. Надо не использовать Запись, I, Kol:Byte; Buf:Word; Obmen:Boolean; Until, Dec, так как мы их "типа еще не проходили и не сможем составить программу и воспользоваться ей". Есть ли такая возможность составить такую программу? P.S. А возможно ли составить программу без использования массива?
Надо сделать как-то так: "Если Цена < Цена+1, то присваиваем g:=cena; cena:=cena+1; cena+1:=g". Вот что то типа того должно быть со слов преподавателя.

[MaKKeY]

program LN;
uses crt;
var Massiv:Array [1..5,1..5] of string;
    i,n:integer;
    g:string;
    j:string;
begin
clrscr;
writeln ('Введите количество деталей');
readln (n);
for i:=1 to n do
 begin
writeln ('Введите название ',i,' детали');
readln (Massiv[i,1]);
writeln ('Введите стоимость ',i,' детали');
readln (Massiv[i,2]);
 end;
for i:=1 to n do
if Massiv[i,2]  > Massiv[i+1,2]  then
 begin
 g:=Massiv[i,2];
 Massiv[i,2]:=Massiv[i+1,2];
 Massiv[i+1,2]:=g;
end;
for i:=1 to n do
writeln(Massiv[i,2],'');
end.

Вот что получилось. у меня в сортировке что-то на мудрено. Не правильно сортирует. Проверьте, пожалуйста, и исправьте меня. По аналогичной схеме надо будет сделать сортировку по алфавиту, я прав?

[Mad_Cat]

Не правильно сортирует

так как строка '100'< строки '20'
ты 2 массива обьяви один string второй real
real-массив -сортируй и при обмене меняй соответствующие зн-я в string-массиве
2GetMax
у тя меняет только цену а должен менять записи полностью

buf:detail;
{....}
       Buf:=Mas[i];
       Mas[i]:=Mas[i+1];
       Mas[i+1]:=Buf;
       Obmen:=True
     End;
{....}

[MaKKeY]

Если не затруднит, то можешь написать как это будет выглядеть в самой сортировке?

[Mad_Cat]

var buf:real;buf2:string;
{...}
Repeat
     Obmen:=False;
     For i:=1 to Kol-1 do 
     If Mas1[i] < Mas1[i+1]then
     Begin
       Buf:=Mas1[i];
       Mas1[i]:=Mas1[i+1];
       Mas1[i+1]:=Buf;
        Buf2:=Mas2[i];
       Mas2[i]:=Mas2[i+1];
       Mas2[i+1]:=Buf2;
       Obmen:=True
     End;
     Dec(Kol)
   Until Not Obmen;
{....}

[MaKKeY]

Спасибо большушее, сортировка работает, но я опять что то намудрил. Надо чтобы напротив каждого значение стоимости стояло его деталь, а у меня выводится по порядку, которые я ввел.

for i:=1 to n do
if Massiv[i,2]  > Massiv[i+1,2]  then
 begin
 Buf:=Massiv2[i];
 Massiv2[i]:=Massiv2[i+1];
 Massiv2[i+1]:=Buf;
 Buf2:=Massiv[i,2];
 Massiv[i,2]:=Massiv[i+1,2];
 Massiv[i+1,2]:=Buf2;
 Obmen:=True;
end;
for i:=1 to 6 do
writeln(Massiv[i,2],'',Massiv[i,1]);
end.