Структура данных-файл !

[Alexbmgn]

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

uses crt,op;
const
      n=10;
type
      ses= record
      family: string[12];
      grup: 11..13;
      exz1: 2..5;
      exz2: 2..5;
      exz3: 2..5;
      end;
var
 i,k,p:integer;
begin
writeln('Ученики:');
for i:=1 to n do
         begin
         with abitur[i] do begin
            writeln ('Введите фамилию ',I,'-го ученика');
            readln (family);
            writeln ('номер группы ',I,'-го ученика');
            readln (grup);
            writeln ('Введите оценку по математике',I,'-го ученика');
            readln (exz1);
            writeln ('Введите оценку по экономике',I,'-ого ученика');
            readln (exz2);
            writeln ('Введите по программированию ',I,'-го ученика');
            readln (exz3);
            clrscr;
         end;
         end;

begin
for i:=1 to n do
         begin
             with abitur[i] do begin
               if exz1 <3 then writeln(family,' -Имеет задолженность по мат.');
               if exz2 <3 then writeln(family,' -имеет задолженность по экон.');
               if exz3 <3 then writeln(family,' -имеет задолженность по программированию');
             end;
             end;
             end;

begin
k:=0;
for i:=1 to n do
         begin
            with abitur[i] do
               if (exz1 and exz2 and exz3)>=4 then k:=k+1;
               end;
         writeln(k*100/n, ' % ученикоа сдавших все кзамены на 4 и 5');
end;
end.

[Serge_Bliznykov]

а где в вашем коде описание массива abitur ?!!

направьте на путь реализации данного кода с помощью типизированных фйайлов

а чего там думать то?
описать файл нужной структуры:

var
  f : file of ses;

записать ваш массив в новый файл:

 Assign(f, 'ИмяФайла.EXT');
 Rewrite(f);
 for i:=1 to n do
    Write(f, abitur[i]);
 Close(f);

прочитать из файла в массив (внимание! в коде ниже запрещается читать из файла, если там не ровно n записей! Однако, код легко изменить так, чтобы читать из файла
любое количество записей!)

 Assign(f, 'ИмяФайла.EXT');
 Reset(f);
 if FileSize(f)<>n then 
    WriteLn('В файле количество записей не равно ',n,' Чтение игнорируется!)
 else
 for i:=1 to n do
    Read(f, abitur[i]);
 Close(f);

[Alexbmgn]

Точно цикл while not eof(f) do begin думаю можно применить т.е пока не конец файла выполнять... Спасибо большое, слов даже не хватит выразить благодарность мою вам, теперь в голове всё по порядку выкладывается..

p.s abitur описан в модуле описания переменных отдельно, хотя всё остальное описано в файле

[Serge_Bliznykov]

Точно цикл while not eof(f) do begin думаю можно применить т.е пока не конец файла выполнять...

Точно так! В правильном направлении мыслите!

Только в этом случае не забудьте запомнить в переменной, сколько же записей Вы считали из файла! например, так:

  KolZapisei := FileSize(f);
  i := 0;
  while not eof(f) do begin
     inc(i);
     Read(f, abitur[i]);
  end;
  Close(f);

или так:

  i := 0;
  while not eof(f) do begin
     inc(i);
     Read(f, abitur[i]);
  end;
  KolZapisei := i;
  Close(f);