Помощь - Поиск - Пользователи - Календарь
Полная версия: Помогите с задачей
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
егорка
wacko.gif Условие: Дан файл содержащий записи об именах и возрасте некоторой группы людей. Напечатать имена людей имеющих наименьший возраст
Lapp
Цитата(егорка @ 13.12.2006 8:57) *

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

Что именно тебя тут затруднило? Ты пробовал начать хотя бы немного? Если да, то покажи, что сделал, если нет - скажи, в чем основная трудность поточнее
егорка
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
Что-то не стыкуется.. В условии речь про файл, а ты вводишь данные с клавиатуры. blink.gif Разъясни, если можешь.

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