Сортировка записей, где ошибка?? Опции

[-Екатерина-]

такая задача:
есть типизированный файл, сначала ввод данных, потом вывод в отсортированном виде по признакам(код отдела, код лаборатории, табельный номер).

uses crt; 
TYPE
 TZ=RECORD
   code_otd:integer;
   code_lab:integer;
   TN: INTEGER;
   data:integer;
   code_nach:integer;
   sum_nach:integer;
 END;
 mas=array[1..100] of tz;
 tmas=^mas;
 mas1=array [1..100] of string;
 tmas1=^mas1;
VAR
 ZAP: TZ;
 f3: FILE OF TZ;
 fl3: BOOLEAN;
 FILENAME: string;
 ANS,ans1: string;
 Z:tmas;
 st: tmas1;
 c:tz;
 st1,st2,st3: string;
 k,t,i,j: integer;

BEGIN
 clrscr;
   writeLN('enter file name');
   READLN(FILENAME);
   ASSIGN (f3,FILENAME);
   rewrite(f3);
 ans:='y';
 while (ans='y') do
  begin
   writeln ('kod otdela');
   readln (zap.code_otd);
   writeln ('kod laboratorii');
   readln (zap.code_lab);
   writeLN('tab nomer sotrudnika');
   READLN(ZAP.TN);		   
   writeLN('data');
   READLN(ZAP.data );
   writeLN('kod nachisleniya');
   READLN(ZAP.code_nach);
   writeLN('summa nachisleniya');
   READLN(ZAP.sum_nach);
   write (f3, ZAP);
   writeLN('again? ( Y-da )');
   READLN(ANS);
  end;
 close(f3);
 
 reset(f3);
 t:=filesize(f3);
 getmem(Z,t*sizeof(zap));
 k:=0;
 while not(eof(f3)) do
  begin
  read(f3,zap);
  inc(k);
  Z^[k]:=zap;
 end;
 close(f3);
 for i:=1 to k do
  begin
   str(z^[i].code_otd,st1);
   str(z^[i].code_lab,st2);
   str(z^[i].tn,st3);
   st^[i]:=st1+st2+st3;
  end;
 for j:=1 to k-1 do
  for i:=1 to k-j do
   if st^[i]>st^[i+1] then
    begin
     c:=z^[i]; // <----------------тут было выделено
     z^[i]:=z^[i+1]; // <---------- тут было выделено
     z^[i+1]:=c; // <-------------тут было выделено
    end;
 rewrite(f3);
 for i:=1 to t do
  write(f3,z^[i]);
 close(f3);
 reset(f3);
 while (not eof(f3)) do
  begin
   READ(f3,ZAP);
   writeLN(ZAP.code_otd:5,ZAP.code_lab:5,zap.tn:7,ZAP.data:12,zap.code_nach:8,zap.sum_nach:8);
  end;
 close(f3);
 readkey;
 readln;
end.

М

Пользуйтесь тегами [ code = pas ] [ / code ]

и в том месте, где выделено жирным загвоздка! не пойму почему не сортируются записи...они же идут соответственно с st

заранее спасибо

Сообщение отредактировано: klem4 - 4.04.2007 15:55

[volvo]

Тебе же уже показывали, как сортируются записи: Сортировка записей