Сформировать типизированный файл и выбрать из него элементы по заданному критерию

@RamBarrett · Регистрация: 24.09.2015

Студворк — интернет-сервис помощи студентам

Заданные поля записи, определить их типы данных, написать программу для ввода произвольного количества записей, записать их в типизированный файл, закрыть его, открыть и выбрать из него записи согласно заданному критерию, вывести их на экран в форме, удобной для просмотра.

Человек: фамилия, пол, цвет волос, глаз. Критерий: особь женского пола с коричневыми волосами и глазами.

@RamBarrett · 09.06.2016, 09:10 **[ТС]**

Кое-какой код есть, но он не работает.

Pascal

type luduna= record
pr, st : string[20];
vol, och: integer;
end;
var s:luduna;
f:file of luduna;
n:char;
begin
assign(f,'Ludu.dat');
rewrite(f);
n:='x';
while n<>'n' do begin
with s do begin
write('Введите фамилию: ');
readln(pr);
write('Введите пол: ');
readln(st);
write('Введите цвет волос (1-коричневый, 2-рыжий, 3-черный, 4-белый): ');
readln(vol);
write('Введите цвет глаз (1-карие, 2-голубые, 3-серые): ');
readln(och);
end;
write(f,s);
writeln('По окончанию ввода введите "E"');
readln(n);
end;
reset(f);
while not eof (f) do begin
read(f,s);
if s.vol:=1 and s.och:=1
then
writeln('Люди попадающие под критерии: ', s.pr,' ',s.st, ' ', s.vol,' ',s.och);
end;
close(f);
readln;
end.

@bormant · 09.06.2016, 20:12

Pascal

WriteLn('Люди попадающие под критерии:');
while not EoF(f) do with s do begin
  Read(f,s);
  if (vol=1) and (och=1) then
    WriteLn(pr,' ',st, ' ', vol,' ',och);
end;

@RamBarrett 0 / 0 / 1 Регистрация: 24.09.2015 Сообщений: 29
		1
	Сформировать типизированный файл и выбрать из него элементы по заданному критерию 10.12.2015, 21:16. Показов 1094. Ответов 2 Метки задача (Все метки) Заданные поля записи, определить их типы данных, написать программу для ввода произвольного количества записей, записать их в типизированный файл, закрыть его, открыть и выбрать из него записи согласно заданному критерию, вывести их на экран в форме, удобной для просмотра. Человек: фамилия, пол, цвет волос, глаз. Критерий: особь женского пола с коричневыми волосами и глазами. 0

Опции темы

Сформировать типизированный файл и выбрать из него элементы по заданному критерию

Решение