Предыдущая страница реферата | 7  8  9  10  11  12  13  14  15  16  17 | Следующая страница реферата

     tek:=2;

   end;

   yd:=false;

end;

procedure sort(iz,t:integer; var rab:cc); {Сортировка по полю}

var po:integer;

  te1,te2,tem:cc;

  str1,str2:string;

  ttrtt:tabl2;

begin

  tabl1(tek,rab,true);

  writeln('Введите номер столбца по которому надо отсортировать данные');

  readln(po);

  te1:=rab;

  while te1<>nil do begin

    te2:=te1^.sled;

    while te2<>nil do begin

      case po of

        1:begin str1:=te1^.tabl.t1; str2:=te2^.tabl.t1; end;

        2:begin str1:=te1^.tabl.t2; str2:=te2^.tabl.t2; end;

        3:begin str1:=te1^.tabl.t3; str2:=te2^.tabl.t3; end;

        4:begin str1:=te1^.tabl.t4; str2:=te2^.tabl.t4; end;

        5:begin str1:=te1^.tabl.t5; str2:=te2^.tabl.t5; end;

      end;

      if str1>str2 then begin

Рекомендуем скачать другие рефераты по теме: сочинение изложение, курсовые работы бесплатно.



Предыдущая страница реферата | 7  8  9  10  11  12  13  14  15  16  17 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки