Создание типизированного файла с данными студентов. надо посчитать средний бал за 4 экзамена. ( Паскаль )

[Анжела33]

Помогите ИСПРАВИТЬ программу. надо посчитать средний бал за 4 экзамена. (с файлом)

Program P10;
Uses
Crt;
Const n=2;
Type
student=Record
FIO:String [64];
Exam1,Exam2,Exam3,Exam4:2..5;
End;
Var
Spisok:array[1..n] of student;
A:student;
f:file of student;
i:integer;
sr:real;
Begin
Assign(f,'Spisok.txt');
Rewrite(f);
for i:=1 to n do
begin
clrscr;
writeln('Введите данные по ''-му студенту');
writeln('Введите ФИО:'); 
readln(A.FIO);
write('Оценка за первый экзамен: ');readln(A.Exam1);
write('Оценка за второй экзамен: ');readln(A.Exam2);
write('Оценка за третий экзамен: ');readln(A.Exam3);
write('Оценка за четвертый экзамен: ');readln(A.Exam4);
writeln(f,A);
end;
close(f);
clrscr;
For i:=1 to n do
reset (f);
begin
read(f, A);
sr:=(A.Exam1+A.Exam2+A.Exam3+A.Exam4)/4;
End;
writeln('---------------------------------------------------------------------------');
writeln(' Ф.И.О | ','1 экзамен | ','2 экзамен | ','3 экзамен | ','4 экзамен|',' Средний балл');
writeln('---------------------------------------------------------------------------');
For i:=1 to n do
writeln(A.FIO:25,'|':1,A.Exam1:6,'|':6,A.Exam2:6,'|':6,A.Exa m3:6,'|':6,A.Exam4:6,'|':6,sr:9:2);

close (f);
End.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Анжела33]

все я сделала. работает)

[Serge_Bliznykov]

так подойдёт?

program P10;
uses
  Crt;
const n = 2;
type
  student = record
    FIO: string[64];
    Exam1, Exam2, Exam3, Exam4: 2..5;
  end;
var
  A: student;
  f: file of student;
  i, nReal: integer;
  sr: real;
begin
  clrscr;
  Assign(f, 'SpisokST.dat');
  Rewrite(f);
  for i := 1 to n do
  begin
    writeln('Введите данные по ''-му студенту');
    writeln('Введите ФИО:');
    readln(A.FIO);
    write('Оценка за первый экзамен: '); readln(A.Exam1);
    write('Оценка за второй экзамен: '); readln(A.Exam2);
    write('Оценка за третий экзамен: '); readln(A.Exam3);
    write('Оценка за четвертый экзамен: '); readln(A.Exam4);

    write(f, A);
  end;
  close(f);

  clrscr;   {очистили экран}
  reset(f); {открыли файл на чтение}
  nReal := FileSize(f);  {для типизированных файлов FileSize(f) возвращает количество записей в файле}

  writeln('------------------------------------------------------------------------------');
  writeln(' Ф.И.О ':18,' | ', '1 экзамен | ', '2 экзамен | ', '3 экзамен | ', '4 экзамен |', ' Сред.балл');
  writeln('------------------------------------------------------------------------------');
  for i := 1 to nReal do
  begin
    read(f, A);
    sr := (A.Exam1 + A.Exam2 + A.Exam3 + A.Exam4) / 4;
    writeln(A.FIO:18, ' |', A.Exam1:6, '|':6, A.Exam2:6, '|':6, A.Exam3: 6, '|': 6, A.Exam4:6, '|':6, sr:9:2);
  end;
  close(f);
  Readln
end.

p.s. чтобы каждый раз не вбивать данные, достаточно rewrite и write(f..) делать только в случае необходимости (ну, например, спросить об этом пользователя в начале, или банально проверить - если файл есть - то читаем из него, если нет - то вызываем блок создания и заполнения файла.

[Анжела33]

спасибо большое) а Вы не могли бы написать, как сделать, чтобы не вбивать данные каждый раз, а только по необходимости...?)

[Serge_Bliznykov]

Сообщение от Анжела33

спасибо большое) а Вы не могли бы написать, как сделать, чтобы не вбивать данные каждый раз, а только по необходимости...?)

да легко.

program P10;
uses
  Crt;
type
  student = record
    FIO: string[64];
    Exam1, Exam2, Exam3, Exam4: 2..5;
  end;
var
  A: student;
  f: file of student;
  i, n, nReal: integer;
  sr: real;
begin
  clrscr;
  Assign(f, 'SpisokST.dat');
  {$I-}
  Reset(f);
  {$I+}
  if IOResult<>0 then begin {файла нет - создаём} 

     Rewrite(f);

    
     Write('Сколько записей будете добавлять? :'); 
     ReadLn(n);


     for i := 1 to n do
      begin
        writeln('Введите данные по ''-му студенту');
        writeln('Введите ФИО:');
        readln(A.FIO);
        write('Оценка за первый экзамен: '); readln(A.Exam1);
        write('Оценка за второй экзамен: '); readln(A.Exam2);
        write('Оценка за третий экзамен: '); readln(A.Exam3);
        write('Оценка за четвертый экзамен: '); readln(A.Exam4);

        write(f, A);
      end;
      close(f);
  end;

  clrscr;   {очистили экран}
  reset(f); {открыли файл на чтение}
  nReal := FileSize(f);  {для типизированных файлов FileSize(f) возвращает количество записей в файле}

  writeln('------------------------------------------------------------------------------');
  writeln(' Ф.И.О ':18,' | ', '1 экзамен | ', '2 экзамен | ', '3 экзамен | ', '4 экзамен |', ' Сред.балл');
  writeln('------------------------------------------------------------------------------');
  for i := 1 to nReal do
  begin
    read(f, A);
    sr := (A.Exam1 + A.Exam2 + A.Exam3 + A.Exam4) / 4;
    writeln(A.FIO:18, ' |', A.Exam1:6, '|':6, A.Exam2:6, '|':6, A.Exam3: 6, '|': 6, A.Exam4:6, '|':6, sr:9:2);
  end;
  close(f);
  Readln
end.

[Анжела33]

Спасибо, выручили

[Serge_Bliznykov]

Сообщение от Анжела33

Спасибо, выручили

Не за что! Всегда пожалуйста! Обращайтесь!