Распечатать список учеников, фамилии которых начинаются на букву 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.
Уверена, что вот это:
readln(fin,fam,im,data.year,data.mon,data.dat)правильно заполняет массив? Присоедини свой TXT файл...
readln(fin,fam,im,data.year,data.mon,data.dat)правильно заполняет массив? Присоедини свой TXT файл...
Type ychen=record
fam:string[10];
im:string[7];
data:record
year:1980..2000;
mon:1..12;
dat:1..31;
end;
end;
readln(fin,fam,im,data.year,data.mon,data.dat)
ну да .. скорее всего.. он нам проста на уроке что-то говорил,как строки заполнять.. типа скока пробелов.. и все это он делал в одной строчке...
тогда не readln используй, а read
readln(fin,fam,im,data.year,data.mon,data.dat)
var
f: text;
a, b, c, d: string;
begin
assign(f, 'test.txt'); reset(f);
readln(f, a, b, c, d);
close(f);
writeln(a, ' ', b, ' ', c, ' ', d, ' ');
end.
то есть конструкции
readln(a);
readln(b);
readln(a,b);