Записи...., нет результата... Опции

[Танкистка]

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

ВотЪ.... Такая несложная задачка... Я вот тут сама написала.. но у меня она не работает..и я наверно даже знаю почему... что-то неправильно наверно в последних строчках, где я фамилию на 'V' ищу... но как сделать по другому я не знаю... Я хотела написать if fam[1]='V' then.... но он мне пишет что переменная fam ему неизвестна.. вотЪ... вообщем я еще посижу подумаю.. но может кто-нить.. поможет.. это будет классно))) Пасибки..всем кто откликнется)

Type ychen=record
fam:string[10];
im:string[7];
data:record
       year:1980..2000;
       mon:1..12;
       dat:1..31;
   end;
   end;
Var a:array[1..100] of ychen;
i,j:integer;
fin,fout:text;
begin
assign(fin,'e:\ych.txt');
reset(fin);
i:=0;
repeat i:=i+1;
with a[i] do
readln(fin,fam,im,data.year,data.mon,data.dat)
until eof(fin);
close(fin);
Assign(fout,'e:\famnaV.txt');
rewrite(fout);
for j:=1 to i do
if a[i].fam='V' then
writeln(fout,a[i].fam,a[i].data.year);
close(fout);
readln;
end.

Сообщение отредактировано: Танкистка - 21.12.2006 20:33

[мисс_граффити]

Дак вот у меня вопрос... Допустим у меня есть ученик: Petrov Vasya 1984 10 4 Как мне его занести в файл, ведь у меня отводиться под фамилию 10 ячеек, т.е. мне надо написать Petrov а потом еще 4 пробела? А потом имя... а перед именем не надо еще пробела...??? а как цифры записывать? как там будет с пробелами??

Никаких пробелов.
Судя по

readln(fin,fam,im,data.year,data.mon,data.dat)

там должно быть так:
Иванов
Иван
1989
04
15

Если ты пишешь все на одной строчке, получится бред.
Возможно, ошибка в этом. Поэтому volvo и попросил выложить твой заполненный файлик - посмотреть на структуру.

А ты уверена, что надо работать с текстовым, а не типизированным файлом?

Сообщение отредактировано: мисс_граффити - 23.12.2006 12:07