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

[bygoga]

Дан текстовый файл, в котором записана группа из 28 человек, у каждого выставлено по 7 оценок, от 2 до 5. Нужно сделать программу, которая будет выводить данные о людях, имеющих хотя бы одну пятерку. Как это сделать?

[puporev]

Чтобы это сделать, надо знать структуру файла, как и что там записно, потому что нужно будет считывать строки из файла и обрабатывать их.
Самое простое если все в 28 строках вида
фамилия 3 4 5 4 5 5 4
Читаешь первое слово до пробела, запоминаешь, удаляешь вместе с пробелом. Читаешь остаток строки и ищещь символ '5'. Если находишь, выводишь запомненное слово, выходишь из цикла.
Следующая строка.

[bygoga]

А можно как это будет в программе выглядить? А то я не очень понял.
Текстовый файл во вложении.

[puporev]

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

[bygoga]

Информацию о каждом студенте оформить в программе в виде записи. Совокупность записей объединить в массив.
Там первая часть задания была просто выводить всю информацию из этого текстового файла на экран, это я сделал, если надо могу выложить.

[puporev]

Почему нельзя сразу написать все задание, вечно приходится клещами вытаскивать, будто мне это надо. Просто выводить и я сделал, сравни на всякий случай. Сейчас с записями посмотрю.

uses crt;
var f:text;
    s,s1,s2:string;
    i,n,k:integer;
begin
clrscr;
assign(f,'spisok.txt');
reset(f);
writeln('Имеют хотя бы 1 пятерку:');
writeln;
n:=0;
while not eof(f)do
   begin
     readln(f,s);  //читаем ФИО
     readln(f,s1);  //читаем остальные данные
     readln(f,s2);  //читаем оценки
     k:=0;
     for i:=1 to length(s2) do
     if s2[i]='5' then  //если в строке есть 5, то
        begin
          k:=1; //фиксируем что есть 5
          n:=1;  //фиксируем что есть такой студент
          break;  //заканчиваем поиск в строке
        end;
     if k=1 then  //если есть 5, то
        begin
          writeln(s); //выводим фамилию
          writeln(s1);  //выводим другие данные
        end;
   end;
if n=0 then write('Таких студентов нет!'); //если нет 5 ни в одной строке, выводим сообщение
readln
end.

[bygoga]

С записями я сделал вот так. Это просто выводит содержание текстового файла на экран.

program lab9;
uses crt;
const k=28;
type student = record
       fio: string[17];
       year: integer;
       gp: integer;
       kyrs: 1..5;
       gr: string[10];
       rinf: byte;
       rmat: byte;
       rphis: byte;
       rchem: byte;
       ruya: byte;
       rulit: byte;
       rbio: byte;
     end;
var ma: array [1..k] of student;
    tmp: student;
    i,j: byte;
    tf: text;
begin
   clrscr;
   assign (tf,'d:\spisok.txt');
   reset (tf);
   for i:=1 to k do
   begin
      readln (tf,tmp.fio);
      readln (tf,tmp.year,tmp.gp,tmp.kyrs,tmp.gr);
      readln (tf,tmp.rinf,tmp.rmat,tmp.rphis,tmp.rchem,tmp.ruya,tmp.rulit,tmp.rbio);
      ma[i]:=tmp;
      writeln (tmp.fio:17,' ',tmp.year:4,' ',tmp.gp:4,' ',tmp.kyrs:1,' ',tmp.gr:5,' ',tmp.rinf:1,' ',
               tmp.rmat:1,' ',tmp.rphis:1,' ',tmp.rchem:1,' ',tmp.ruya:1,' ',tmp.rulit:1,' ',tmp.rbio:1);

   end;
   close(tf);
   readkey
end.

[puporev]

А что еще-то надо? Или это не работает. По-моему не должно работать, так читаешь строки, а пытаешься записать в числа. Или я неправ?

[bygoga]

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

[puporev]

Понял, сейчас поправим.
P.S. Да у тебя совсем неправильно. Ничего в массив не записано, только вывод на экран.