Ввод из текстового файла

[puporev]

Вот так работает. Только переменные у меня свои, переделаешь. Потом, в файле нет названий предметов, поэтому в массив записей их и не надо заносить, только мешают, а если нужны, то они должны быть в файле и программу надо немного менять взависимости от того, как они записаны в файл.

uses crt;
const n=28;
      m=7;
type Tstud=record
           fio:string[20];
           roz:word;
           pos:word;
           krs:byte;
           grp:string[5];
           ocn:array[1..m] of byte;
           end;
var f:text;
    sp:array[1..n] of Tstud;
    s,s1,s2:string;
    i,p,k,t,c,j,l:integer;
begin
clrscr;
assign(f,'spisok.txt');
reset(f);
p:=1;
while not eof(f)do
   begin
     readln(f,sp[p].fio); {читаем ФИО}
     readln(f,s1);{читаем вторую строку}
     val(copy(s1,1,pos(' ',s1)-1),t,c); {преобразуем первое слово в число}
     sp[p].roz:=t;    {запоминаем год рождения}
     delete(s1,1,pos(' ',s1));   {удаляем это слово}
     val(copy(s1,1,pos(' ',s1)-1),t,c); {преобразуем второе слово в число}
     sp[p].pos:=t;    {запоминаем год поступления}
     delete(s1,1,pos(' ',s1));   {удаляем это слово}
     val(copy(s1,1,pos(' ',s1)-1),t,c);{преобразуем третье слово в число}
     sp[p].krs:=t;  {запоминаем курс}
     delete(s1,1,pos(' ',s1)); {удаляем это слово}
     sp[p].grp:=s1;      {последнее слово-группа}
     readln(f,s2);
     j:=0;
     for i:=1 to length(s2) do     {в третьей строке читаем оценки}
     if s2[i] in ['2'..'5'] then
        begin
         j:=j+1;
         val(s2[i],t,c);
         sp[p].ocn[j]:=t;
        end;
     p:=p+1; {следующий студент}
  end;
writeln('Имеют хотя бы 1 пятерку:');
k:=0;
for i:=1 to n do
for j:=1 to m do
if sp[i].ocn[j]=5 then
  begin
   write(sp[i].fio,' ',sp[i].roz,' ',sp[i].pos,' ',sp[i].grp,' ');
   for l:=1 to m do write(sp[i].ocn[l],' ');
   writeln;
   k:=1;
   break;
  end;
if k=0 then write('Таких студентов нет!');
readln
end.

[bygoga]

Спасибо!
А можно чем то заменить вот это

 val(copy(s1,1,pos(' ',s1)-1),t,c); 
     sp[p].roz:=t;    
     delete(s1,1,pos(' ',s1));   
     val(copy(s1,1,pos(' ',s1)-1),t,c); 
     sp[p].pos:=t;    
     delete(s1,1,pos(' ',s1));   
     val(copy(s1,1,pos(' ',s1)-1),t,c);
     sp[p].krs:=t;  
     delete(s1,1,pos(' ',s1)); 
     sp[p].grp:=s1;

и вот это

length(s2)

мы просто ничего такого не учили...и я сомневаюсь, что препод поверит, что я сам додумался до этого.

[puporev]

Вы не проходили строки? И сразу проходите записи с использаванием полей строкового типа? Этого не может быть. Если это так, то я пас.

[bygoga]

Да как-то криво мы это дело учим...нам на прошлой паре дали записи..а отетих val не было.
Я ж поэтому и не смог сделать вторую часть задания (про пятерки), я что не сделаю оно нифига не работает, а вашим способом у меня врядли примут, сильно много там того, что мы не учили.

[puporev]

Может не надо из текстового файла перегонять в запись, а на основании этого файла создать запись, т.е. ввести все данные в массив записей вручную, тогда не надо будет парсить строки. И по-моему пора переходить либо в аську, либо в личные сообщения, а то наш диалог уже не укладывается в правила форума.