Заданный файл записів : прізвище, адреса, телефон ...

[Олежик95]

Заданный файл записів : прізвище, адреса, телефон. Вилучити з файлу відомості про людей без телефона і переписати прізвища у алфавітному порядку.

помогите плиз если не сложно

[whatever]

И в чем проблема? Считываешь из файла в массив, попутно выводишь, если запись без телефона. Потом сортируешь массив по полю с именем, потом пишешь в файл отсортированый массив.

Сообщение от Олежик95

Заданный файл записів

Файл в студию. Ну и формат записи, естественно.

Впрочем если напишешь хотя бы формат записи, то помогу с кодом.

[Олежик95]

program lab10_1;
uses crt;
type people=record
last_name:string;
adress:string;
telephone:integer;
end;
mas=array[1..5] of people;
var a:mas;
f:file of mas;
i,j,k,l:integer;
p: people;
s:char;
procedure vvod;
begin
assign(f,'lab10_1.txt');
rewrite(f);
writeln('input records:');
i:=0;
repeat
i:=i+1;
with a[i] do
begin
write('last_name of people'); readln(last_name);
write('adress'); readln(adress);
write('telephone'); readln(telephone);
writeln('p,a');
end;
writeln('continue?y/n');
s:=readkey;
until s='n';
close(f);
end;
procedure vyvod;
begin
clrscr;
reset(f);
writeln('Array of records:');
writeln('-----last_name------adress-----telephone-------');
for j:=1 to i do
begin
with a[j] do
begin
gotoxy(5,5+j); write(last_name);
gotoxy(20,5+j); write(adress);
gotoxy(35,5+j); write(telephone);
end;
writeln;
end;
end;

begin
clrscr;
writeln('lab.ork 10.1');
writeln('variantN24,student Cherchuk');
vvod;
vyvod; readln;
sort; readln;
close(f);
end.

вот

[whatever]

Я х**ю, дорогая редакция...
Ладно, раз уж обещал:

 type
 people=record
   last_name:string[255];
   adress:string[255];
   telephone:integer;
 end;

 mas=array[1..5] of people;

 var
   a:mas;
   f:text;//file of mas;
   i,j,k,l:integer;
   p: people;
   s:char;
 procedure vvod;
   begin
     assign(f,'lab10_1.txt');
     rewrite(f);
     writeln('input records:');
     i:=0;  // КАК? Как на i можно повесить количество записей?
     repeat
       i:=i+1;
       with a[i] do
       begin
         write('last_name of people'); readln(last_name);
         write('adress'); readln(adress);
         write('telephone'); readln(telephone);
         writeln('p,a'); //WTF?
       end;
       writeln('continue?y/n');
//       s:=readkey;
       readln(S);
     until s='n';
     close(f);
   end;
 procedure vyvod;
   begin
//     clrscr;
     reset(f);
     writeln('Array of records:');
     writeln('-----last_name------adress-----telephone-------');
     for j:=1 to i do
       begin
         with a[j] do
           begin
             write(last_name,' ');
             write(adress,' ');
             writeln(telephone,' ');
           end;
       end;
   end;

 procedure sort;
  var
    tmp:string;
    t:file of people;
  begin
  for k:=1 to i-1 do
    for j:=k+1 to i do //был бы преподом - убил бы за такое. 
      if a[j].last_name<a[k].last_name then
        begin
          tmp:=a[j].last_name;
          a[j].last_name:=a[k].last_name;
          a[k].last_name:=tmp;
        end;
  assign(T,'C:\output.ppl');
  rewrite(T);
  for j:=1 to i do
    write(t,a[j]);
  close(T);
  end;



 begin
// clrscr;
 writeln('lab.ork 10.1');
 writeln('variantN24,student Cherchuk');
 vvod;
 vyvod;
 readln;
 sort;
 readln;
 close(f);
 end.

Прога работает процентов на несколько.
f:file of mas; - бред
assign(f,'lab10_1.txt'); - учитывая вышесказаное, тоже бред. Даже если верхнее написать правильно - все равно бред.

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