Текстовый файл. Подведение итогов вступительных экзаменов в Космическую Академию

@Misha_Beginner · Регистрация: 12.09.2013

Author24 — интернет-сервис помощи студентам

здраствуйте. прошу вашей помощи разобраться с программой.
Условие: Задача1. Создать на дискете текстовый файл abitur.txt результатам экзаменов в Космическую Академиюь10-12 строк в каждом фамилия, инициалы, оценки по космическому праву, космической географии, кулинарии, медицины, ветеринарии, психиатрии, неземной философии, менеджмента. Составить программу для вывода на экран в виде таблицы данных из файла abitur.txt и подведение итогов вступительных экзаменов в Космическую Академи. Для этого в программе выполнить сортировку данных из файла abitur.txt по сумме баллов и вывести список K лучших из N выпускников (K <N). Учесть возможность полупроходного балла.

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

Pascal

 const
  n = 4;
type
  student = record
    N: byte;
    prizv: string;
    matan: real;
    prog: real;
    Os: real;
    alg: real;
  end;
var
  i: integer;
  tabl: array[1..n] of student; 
  otv: integer;
  f:text;
 
procedure lin(m: integer);
var i: integer;
begin
  for i := 1 to m do write('-'); writeln;
end;
 
begin
  assign(f, 'd:\abitura.txt');
 
  Write('Perezapisat fail ? (1 - tak, 0 - ni):');
  ReadLn(otv);
  if otv = 1 then
  begin
    rewrite(f);
    writeln('VVedi dani stydentiv');
    for i := 1 to n do
    begin
      tabl[i].N := i;
      readln(tabl[i].Prizv, tabl[i].matan, tabl[i].prog, tabl[i].OS, tabl[i].alg);
      write(f, tabl[i]);
    end;
    Close(f);
  end;
 
  {прочитать из файла в массив}
  reset(f);
  for i := 1 to n do
    Read(f, tabl[i]);
  Close(f);
 
  Lin(69);
  writeln('|   | Surname  | Matematuchnuy | Programyvannya | OS | Algebra | cer|');
  writeln('|   |          |    analis     |                |    |  i geom.|    |');
  Lin(69);
  for i := 1 to n do
  begin
    write('|', tabl[i].N: 2, ' |', tabl[i].Prizv: 10, '|');
    write(tabl[i].matan: 15, '|', tabl[i].prog: 16, '|', tabl[i].OS: 4, '|', tabl[i].alg: 9, '|',
     ((tabl[i].matan + tabl[i].prog + tabl[i].OS + tabl[i].alg) / n): 0: 2, '|');
    writeln;
    Lin(69);
  end;
  writeln;
  writeln('vidcortov');
  Lin(69);
  for i := 1 to n do
  begin
    if {не понимаю как составить условие}
    begin
      write('|', tabl[i].N: 2, ' |', tabl[i].Prizv: 10, '|');
      write(tabl[i].matan: 15, '|', tabl[i].prog: 16, '|', tabl[i].OS: 4, '|', tabl[i].alg: 9, '|', ((tabl[i].matan + tabl[i].
      prog + tabl[i].OS + tabl[i].alg)): 0: 2, '|');
      writeln;
      Lin(69);
    end;
  end;
  readln
end.

прошу помогите разобраться, совсем не знаю что делать

	11.06.2014, 18:08