Имеется информация об адресах учеников одного класса в виде: фамилия, имя, город, улица, № дома. Написать программу, позволяющую вывести список учеников, проживающих в городе
Имеется информация об адресах учеников одного класса в виде: фамилия, имя, город, улица, № дома. Написать программу, позволяющую вывести список учеников, проживающих в городе
Гость
Ответ(ы) на вопрос:
Гостьtype
Uch=record
fam:string[20];
nam:string[20];
city:string[20];
street:string[20];
numb:string[8]
end;
var
f:file of Uch;
bUch:Uch; { буфер }
c:string;
begin
Assign(f,'Uch.txt');
Reset(f);
Write('Введите название города: '); Readln(c);
while not Eof(f) do begin
Read(f,bUch);
if c=Trim(bUch.city) then
With bUch do Writeln(fam,' ',nam,' ',street,' ',numb)
end;
Close(f)
end.
Не нашли ответ?
Похожие вопросы