Файлы,запись

[Chief]

Напечатать фамилии мальчиков,которые имеют вес больше,чем средний по классу.
Я напечатал фамилии через строку,а между ними пол и вес соответствующего ученика.Вот только понять не могу как считать с файла,фамилии в u.fam(u:ucenik(запись),fam(поле записи)),а вес и пол в u.ves,и в u.pol соответственно?

uses crt;
type ucenik=record;
            fam:string[15];
            ves:byte;
            pol:char;
var
      u:ucenik;
      f:file of ucenik;
      
begin
    assign(f,'spisok_ucen.pas');
    reset(f);
      while not eof(f) do
           ...

[ponchikpk]

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

[Doholyan]

напиши функцию....прочитать( с файла, переменная)
readLn(F,ucenik);
и вывведи на екран
write(ucenik);

[Chief]

Сообщение от ponchikpk

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

так?

while not eof(f) do
           begin
              u.fam:='';
                  while c<>'_' do
                     begin
                        read(f,c);
                        u.fam:=u.fam+c
                     end;

он выдаёт ошибку на "с"(type mismatch),"с"=char;

[Chief]

Сообщение от Doholyan

напиши функцию....прочитать( с файла, переменная)
readLn(F,ucenik);
и вывведи на екран
write(ucenik);

а как присвоить фамилий,вес,и пол,переменным?

[diliana]

Сообщение от Chief

Напечатать фамилии мальчиков,которые имеют вес больше,чем средний по классу.
Я напечатал фамилии через строку,а между ними пол и вес соответствующего ученика.Вот только понять не могу как считать с файла,фамилии в u.fam(u:ucenik(запись),fam(поле записи)),а вес и пол в u.ves,и в u.pol соответственно?

uses crt;
type ucenik=record;
            fam:string[15];
            ves:byte;
            pol:char;
var
      u:ucenik;
      f:file of ucenik;
      
begin
    assign(f,'spisok_ucen.pas');
    reset(f);
      while not eof(f) do
           ...

все это решается с помощью типизированного файла в который вам надо записать ваши данные
TypizFile=file of ucenik;
обьявили переменную f:TypizFile;
а далее как обычно

 begin
    assign(f,'spisok.dat');
    reset(f);
      while not eof(f) do begin

[diliana]

Сообщение от Chief

а как присвоить фамилий,вес,и пол,переменным?

а для этого создается массив записей
ну например

TMasUch=array [1..n] of uchenik;

обьявите переменную boy:TMasUch;
соответственно доступ к элементам массива будет boy[i].ves (вес мальчика)