Запись типизированного файла из текстового.

[Lubawa]

Есть текстовый файл в котором 10 строчек. Необходимо порчитать данные из файла и создать типизированный файл типа рекорд. Мой код:

type
  person = record
    fam: string[15];
    sex: char;
    ball: string[4];
   end;

var
  A:array [1..10] of person;
  finput: text;
  typefile: file of person;
  i:integer;
  S: string;
Begin
  assign(finput, 'lab_in.txt');
  reset(finput);
for i:=1 to 10 do
begin
  Readln(finput,a[i]);
end;
  close(finput);
  assign(typefile, 'typefile.txt');
  rewrite(typefile);
  for i:=1 to 10 do
  Write(typefile,a[i]);
  close(typefile);
end.

Помогите исправить ошибки.

[Leshii]

type
person = record
fam: string[15];
sex: char;
ball: string[4];
end;

var
A:array [1..10] of person;
finput: text;
typefile: file of person;
i:integer;
S: string;
Begin
assign(finput, 'lab_in.txt');
reset(finput);
for i:=1 to 10 do
begin
Readln(finput,s);
end;
close(finput);
reset(finput);
while not eof(finput) do
assign(typefile, 'typefile.txt');
rewrite(typefile);
for i:=1 to 10 do
Write(typefile,s);
close(typefile);
end.

В первом цикле ты считиваеш строки из файла, строки типа string(но никак не елементы масива).
Приведи хоть содержимое файла lab_txt.

[Lubawa]

Да, это я уже исправила. Всё равно не получается.
Докимент имеет вид:

Иванов м 4555
Иванова ж 2453
Сидоров м 5555
Сидорова ж 4345
Петров м 4355
Петрова ж 5434
Талашов м 5544
Таланова ж 4435
Смирнов м 4343
Смирнова ж 5444

program lab1;

type
  person = record
    fam: string[15];
    sex: char;
    ball: string[4];
   end;

var
  A:array [1..10] of person;
  finput: text;
  typefile: file of person;
  i:integer;
  S:string;
Begin
  assign(finput, 'lab_in.txt');
  reset(finput);
  while not EOF(finput)do
  begin
  Readln(finput,s);
  end;
  close(finput);
  assign(typefile, 'typefile.txt');
  rewrite(typefile);
  for i:=1 to 10 do
  Write(typefile,a[i]);
  close(typefile);
end.

Читает теперь весь текст, осталось вывести.

[Leshii]

program iores;
label
     konec;
var
     f:text;
     fname:string[80];     
      res:integer;              
     otv:char;                   
	 s: string;
begin

     assign(f,'lab_in.txt');
     repeat
          {$I-}
          reset(f);   
          {$I+}
          res:=IOResult;
          if res<>0
          then begin
               write('ERROR ',fname, ' not found');
               write('repeat?(y/n)');
               readln(otv);
          end;
     until (res=0) OR (otv='n');
     if res<>0 then goto konec;
while (not EoF(f)) do
begin
	readln(f,s);
	writeln(s);
end;
readln;
konec:
end.

Тебе сюда для вывода добавить только пол и циферки)Ну думаю это уже проще будет, а ту прогу выкинь ибо ересь. Сам там с трудом разобрался, и много много ран тайм ероров.

[Lubawa]

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

[Leshii]

Ну так с этого и надо было начинать)

[Lubawa]

Мне показалось что я с этого начала)))

[Leshii]

Сообщение от Lubawa

Мне показалось что я с этого начала)))

Обязательным условием решения

Сейчас переделаем.

[Lubawa]

var
  A:array [1..10] of person;
  finput: text;
  typefile: file of person;
  i:integer;
  S:person;

Begin
     assign(finput,'lab_in.txt');
     reset(finput);
     assign(typefile,'tan.txt');
     rewrite(typefile);
     while not eof(finput) do begin
           with s do begin
                read(finput,s);
                if s.fam[length(s.fam)]<>' 'then
                   s.fam:=s.fam+' ';
                write(typefile,s.fam);
                writeln(typefile);
                end;
           end;
     close(finput);
     close(typefile);
 end.

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

program lab1;

type
  person = record
    fam: string[15];
    sex: char;
    ball: string[4];
   end;

var f: file of person;
 c: char;
 i,j,min,max: integer;
 a: array[1..10] of person;
 b:person;
 begin
 assign(f,'lab_in.txt');
 reset(f);
 for i:=1 to 10 do
 if not eof(f) then
 begin
   read(f,a[i]);
   write(f,a[i]));
 end;
 close(f);
end.

Так формируется типизированный файл из текстового, только теперь всё не на своих местах. Подскажите как выравнять текст в полях записи.


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[TinMan]

Сообщение от Lubawa

Так формируется типизированный файл из текстового

Нет.
ТАК он не может формироваться.
Ты читаешь из типизированного файла. У тебя вообще нет текстового файла в программе..

И, кстати, о каком таком выравнивании в типизированном файле идет речь?? Его просто НЕ БЫВАЕТ.

ОбЪяви в проге ДВА файла, f и g:
f: text;
g: file of person;

Открой f на чтение, g на запись. Читай из f, записывай в g. Если хочешь, чтоб g имел то же имя, что и было у f, то сначала закрой f, а потом открой g.