Записи(record)

[mexx1337]

Помогите плиз доделать такую задачу:

На диске в файле хранится информация об учениках класса по следующей структуре :
Фамилия Пол Рост Вес

1.)Вывести на экран 1-ые пять фамилий юношей самых высоких в классе..
2.)Вывести на экран список девушек ,у которых вес<роста -100

Вот попытался сам начать делать,но не получается :

program z1;
type sp=record
nm:string;
v:byte;
h:byte;
end;
var a:array[1..100] of sp;
n,p,i,j:integer;
pv:string;
 
begin
assign(input,'lol.txt');
reset(input);
n:=0;
while not eof(input) do begin inc(n);
with a[n] do begin
read(input,nm,p,v,h);
end;
end;
for i:=1 to n-1 do begin
for j:=i+1 to n do begin
if a[i].v>a[j].v then begin
pv:=a[j].v;
a[j].v:=a[i].v;
a[i].v:=pv;
 
pv:=a[j].nm;
a[j].nm:=a[i].nm;
a[i].nm:=pv;
end;
end;
end;
close(input);
for i:=1 to 5 do writeln(output,a[i].nm);
readln
end.

[Serge_Bliznykov]

1) ВЫ ЗАБЫЛИ ПОЛ в типе запись!

2) обычно для чтения данных используют типизированные файлы. Это намного проще и удобнее!

3) рекомендую в описании типа запись указать размер строки для имени
например, так

type 
TypePol = (male, female);
sp=record
  nm:string[40];
  pol:TypePol;    
  v:byte;
  h:byte;
end;

почему не сходили в поиск по форуму?! Тут этих бедных школьников (и студентов) в записи засовывают по десять раз в неделю!!!

ну и последнее. чтобы по простому решить первую часть задачи:
прочитайте в массив записи.
Отсортируйте его по росту (в порядке убывания роста).
возьмите первые пять записей о юношах.

если будут проблемы - пишите сюда, в тему, разберём..

задача про девушек - это вообще элементарщина:

for i:=1 to N {количество записей в массиве} do
    if (a[i].pol = female) and
         (a[i].h<100) then
      WriteLn(a[i].nm:40,' | ',a[i].v:3);

[mexx1337]

вот сделал немного легче...как исправить ,чтобы корректно работало :
1.

program m19z1;
var a:array[1..100] of record
s:string[10];
p:char;
r,v:integer;
end;
i,N:integer;
f:text;
j,max:integer;
begin
n:=1;
assign(f,'lol.txt');
reset(f);
for i:=1 to N do
with a[i] do readln(f,s,p,r,v);
close(f);
max:=0;
for i:=1 to n do
with a[i] do if r>max then max:=r;
j:=0;
for i:=1 to n do begin
with a[i] do if r=max then begin inc(j);
writeln(s);
end;
if j>=5 then break;
end;
readln;
end.

2.

program m19z2;
var a:array[1..100] of record 
s:string[10];
p:char;
r,v:integer;
end;
i,N:integer;
f:text;
begin
n:=1;
assign(f,'lol.txt');
reset(f);
for i:=1 to N do 
with a[i] do readln(f,s,p,r,v);
close(f);
for i:=1 to N do
with a[i] do
if (v<r-100) and (p='J') then writeln(s) else writeln('HET');
readln;
end.

[mexx1337]

upupup
help me