есть типизированный файл, сначала ввод данных, потом вывод в отсортированном виде по признакам(код отдела, код лаборатории, табельный номер).
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 -