Версия для печати темы

Автор: егорка 13.12.2006 11:57

Условие: Дан файл содержащий записи об именах и возрасте некоторой группы людей. Напечатать имена людей имеющих наименьший возраст

Автор: Lapp 14.12.2006 11:26

Что именно тебя тут затруднило? Ты пробовал начать хотя бы немного? Если да, то покажи, что сделал, если нет - скажи, в чем основная трудность поточнее

Автор: егорка 15.12.2006 0:31

program laba11;
type spisok=record
     imya:string[10];
     vozr:byte;
     end;
var f:text;
    n,i:integer;
    lydi:spisok;
begin
assign (f,'f.txt');
rewrite (f);
writeln('введите количество людей');
readln(n);
 for i:=1 to n do
  with lydi do
  begin
   writeln('имя');
   readln (imya);
   writeln ('возраст');
   readln (vozr);
  write (f,imya);
  write (f,vozr);
  end;
 close (f);
end.

я создал файл, а как вывести их в алфавитном порядке я не пойму!

ой, не в алфавитном порядке, а с наименьшим возрастом

М

Используем теги

Автор: Lapp 15.12.2006 7:25

Что-то не стыкуется.. В условии речь про файл, а ты вводишь данные с клавиатуры. Разъясни, если можешь.

Для поиска людей с минимальным возрастом рекомендую завести массив записей и с ним работать. В цикле сначала найдешь минимальный возраст, потом в другом цикле выведешь эти записи.