Напечатать имена всех людей, возраст которых равен минимальному

@CitroenC4 · Регистрация: 18.12.2008

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

Pascal

program cyb_39;
uses
Crt;
type
person = record
name: string[10];
age: 1..200;
end;
list = file of person;
var
input: list;
n: byte;
procedure Youngest(var f: list);
var
chel: person;
begin
while not Eof(f) do
begin
read(f,chel);
if chel.age = n then
writeln(chel.name);
end;
end;
begin
assign(input,'young.dat');
reset(input);
ClrScr;
write('Vvedite min vozrast: ');
readln(n);
writeln('Imena liydei ', n, ' -letnego vozrasta: ' );
Youngest(input);
close(input);
readln;
end.

Вот собственно программа, писал не я ) помогли добрые людии....
Вот задание: Тype Person =Record Name: string[10]; age: 1..200 end; list= file of person; Процедура Youngest (var spisok: list)... Вашей программы печает Name для всех людей, файла список, возрараст которых равен минимальному... Перед списком печатается этот возраст...

но тут нужно создать файл 'young.dat' как его создать ? ( причём что бы, как сказал препод...
Что бы фамилия и возраст были в списке... если нету фамилии то должно показывать возраст...
Господа помогите...

	19.12.2008, 12:27

Опции темы