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

[Танкистка]

Распечатать список учеников, фамилии которых начинаются на букву 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.

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

[volvo]

Уверена, что вот это:

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

правильно заполняет массив? Присоедини свой TXT файл...

[Танкистка]

Уверена, что вот это:

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

правильно заполняет массив? Присоедини свой TXT файл...

Немнога не поняла,что ты имел ввиду... fin-это и есть txt-файл... или ты о другом...??

И еще вопрос ... я же сама заполняю файл..

Type ychen=record
fam:string[10];
im:string[7];
data:record
       year:1980..2000;
       mon:1..12;
       dat:1..31;
   end;
   end;

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

Сообщение отредактировано: Танкистка - 23.12.2006 14:42