чтения с текстового файла(не работает)

[mishammm]

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

const
  n = 4;
type
  student = record
    N: byte;
    prizv: string;

    alg: real;
    bal: 6..15;
    matan,prog,os:2..5
  end;
  var
  f:text;
  i,j: integer;
  code:integer;
  tabl: array[1..n] of student;
  v:student;

  s:string;
  {$R-}
  begin
  Assign(f,'d:\abitura.txt');
  reset(f);

   writeln('VVedi dani stydentiv');
    for i := 1 to n do
    with tabl[i] do
    begin
    writeln('vvedi prizv');
    readln(f,prizv);
    writeln('vvedi predmet1');
    readln(f,s);
    val(s,matan,code);
    writeln('vvedi predmet2');
    readln(f,s);
     val(s,prog,code);
    writeln('vvedi predmet 3');
    readln(f,s);
     val(s,os,code);


    end;

   for i:=1 to n do with tabl[ i ] do
begin
bal:=matan+prog+os;
end;

    writeln('------------------------------------------------------');
    writeln('| Surname| Matematuchnuy | Programyvannya | OS |   summa  ');
  writeln('|          |    analis     |                |    |      ');
  writeln('--------------------------------------------------------');
for i:=1 to n do
    with tabl[i] do
begin

writeln('|',prizv:10,'|',matan:15,'|',prog:16,'|',os:4,'|' , bal:5, '|');
writeln('-----------------------------------------------------------------');
end;


writeln('vidcortovano');
j:=0;
while j<=n do
      begin
      for i:=1 to n-1 do
          if tabl[i].bal<tabl[i+1].bal then
             begin
             v:=tabl[i];
             tabl[i]:=tabl[i+1];
             tabl[i+1]:=v;
             end;
      inc(j);
      end;


 writeln('------------------------------------------------------');
    writeln('| Surname| Matematuchnuy | Programyvannya | OS |   summa  ');
  writeln('|          |    analis     |                |    |      ');
  writeln('--------------------------------------------------------');
for i:=1 to n do
    with tabl[i] do
begin

writeln('|',prizv:10,'|',matan:15,'|',prog:16,'|',os:4,'|' , bal:5, '|');
writeln('-----------------------------------------------------------------');
end;

Close(f);
readln;
end.

[BDA]

Весь код не смотрел.
1) В файле есть шапка, которая не пропускается при считывании.
2) readln(f,prizv), насколько понимаю, считает всю строку, а не только имя, и все дальнейшие считывания оценок будут уже неправильными (будут считываться следующие строки).

[mishammm]

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

Весь код не смотрел.
1) В файле есть шапка, которая не пропускается при считывании.
2) readln(f,prizv), насколько понимаю, считает всю строку, а не только имя, и все дальнейшие считывания оценок будут уже неправильными (будут считываться следующие строки).

можете помочь исправить плиз, что мне надо сделать?? и что значит В файле есть шапка, которая не пропускается при считывании ? а какая она должна быть ?? спасибо

[BDA]

Вот пример считывания 1 строки и заполнения данных об 1 студенте:

type
  student = record
    prizv: string;
    bal: 6 .. 15;
    matan, prog, os: 2 .. 5;
  end;

var
  t: text;
  s: string;
  k: integer;
  p: student;

const
  zero = ord('0');

begin
  assign(t, 'input.txt');
  reset(t);
  readln(t, s);
  k := length(s);
  with p do
  begin
    prizv := copy(s, 1, pos(' ', s) - 1);
    matan := ord(s[k - 4]) - zero;
    prog := ord(s[k - 2]) - zero;
    os := ord(s[k]) - zero;
    bal := matan + prog + os;
    writeln(prizv, ' ', matan, ' ', prog, ' ', os);
  end;
  close(t);
  readln;
end.

Пример файла:

ivanov 2 3 5

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

[mishammm]

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

Вот пример считывания 1 строки и заполнения данных об 1 студенте:


Пример файла:

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

спасибо а это только для одной строки? а как быть с остальными студентами? и как быть с сортированием

[BDA]

const
  zero = ord('0');
  n = 10;

type
  student = record
    prizv: string;
    bal: 6 .. 15;
    matan, prog, os: 2 .. 5;
  end;

var
  t: text;
  s: string;
  k, i, j, count: integer;
  p: array [1 .. n] of student;
  b: student;

begin
  assign(t, 'input.txt');
  reset(t);
  count := 0;
  while (not eof(t)) and (count < n) do
  begin
    inc(count);
    with p[count] do
    begin
      readln(t, s);
      k := length(s);
      prizv := copy(s, 1, pos(' ', s) - 1);
      matan := ord(s[k - 4]) - zero;
      prog := ord(s[k - 2]) - zero;
      os := ord(s[k]) - zero;
      bal := matan + prog + os;
    end;
  end;
  close(t);
  for i := 1 to count - 1 do
    for j := i + 1 to count do
      if p[i].bal < p[j].bal then
      begin
        b := p[i];
        p[i] := p[j];
        p[j] := b;
      end;
  for i := 1 to count do
    with p[i] do
      writeln(prizv, ' ', matan, ' ', prog, ' ', os);
  readln;
end.