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

[Танкистка]

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

[volvo]

работают по-разному?

При работе с файлами - да...