Задача по файлам 2.0 Опции

[Eskel]

type Person = record Name : string [10]; age : 1..200 end; List = file of person; Процедура Youngest(var spisok : list) Вашей программы печатает Name для всех людей файла spisok , возраст которых равен минимальному. Перед списком печатается этот возраст.

=>Не подскажите, как создать и забить запись в файл. Создать то я понял как, а с файлом не очень...
=> И как потом считать эту запись с файла на проверку возраста?

[Eskel]

спасибо, разобрался

[Гость]

А можно с текстового файла в котром имена и даті, взять человека которій имеет определённую дату? тоисть надо взять даті и с ними работать. тхт файл уже есть. интересуєт возожно ли такое.

[Гость]

вот типа написал, но что-то не то...

uses crt;
const n=10;
type  stud=record
      soname:string[15];
      year,month:integer
      end;
var F:text; St: string[35];
    c:stud;
begin clrscr;
assign(F, 'example.txt');
reset(F);
while not eof(F) do begin
readln(F, c.soname);
writeln(c.soname);
end;
readln(F);

while not eof(f) do
  with c do
  begin
 readln(f, c.month);
 if c.month=3 then
 writeln(c.soname:10, c.year:6);
 end;

writeln;
writeln('vivod s faila okon4en. to exit pres - Enter.');
readln;
end.

[Lapp]

вот типа написал, но что-то не то...

Да, явно не то. Второй цикп даже не начнется, так как EoF уже достигнуто.

Можно, конечно. Но нужно знать, как устроен этот текстовый файл. Приведи пример.

[Гость]

в задании про файл больше ничего не сказано, но я его делал так

Yurko 81 1
Pavlo 82 2
Sergey 83 3
Sashko 84 4

[Гость]

вобщем интересует часть віделенная жирнім. Пишет "Неверный числовой формат" не пойму почему...

uses crt;
const n=10;
type stud=record
soname:string[15];
year,month:integer
end;
var F:text; St: string[35];
c:stud;
begin clrscr;
assign(F, 'example.txt');
reset(F);
while not eof(F) do begin
readln(F, c.soname);
writeln(c.soname);
end;
readln(F);
close(f);

assign(F, 'example.txt');
reset(F);
while not eof(f) do
begin
readln(f, c.month);
if c.month=3 then
writeln(c.soname:10, c.year:6);
end;

writeln;
writeln('vivod s faila okon4en. to exit pres - Enter.');
readln;
end.

[Lapp]

Пишет "Неверный числовой формат" не пойму почему...

Предельно ясно, почему . Ты открываешь файл заново и считываешь фамилию как число.
Нужно все делать в одном цикле.

while not eof(F) do with c do begin
  readln(F, soname, year, month);
  writeln(soname);
end;

А когда ищешь:

while not eof(F) do with c do begin
  readln(F, soname, year, month);
  if month=3 then writeln('Found: ', soname:10, year:6);
end;

М

Для программ используй теги CODE, а не цитаты.

PS
фамилия - это surname

[Гость]

YAHOOO !!!!! Всё заработало!!! Спасиба что показали мне мои ошибки.

[Гость]

 
type  stud=record
      surname:string[15];
      year,month,day:integer;
      x:string
      end;
var F:text;
    c:stud;
begin clrscr;
assign(F, 'example.txt');
reset(F);
while not eof(F) do with c do begin
  readln(F, surname, year, month, day, x);
  writeln(surname, x);
end;
close(f);

Всё ж правильно, но последнюю переменную "х" не видит.
Или віьбивает ошибку 106 (не числовой формат), или просто не віьводит! Что не так? Подскажите пожалуйста...