База Данных Студенты. Распечатать анкетные данные студентов, имеющих неудовлетворительную оценку - Pascal ABC - Ответ 3047787

program reck;
uses crt;
 
type spisok = record
    fio: string[50];
    groop: string[20];
    god: string[20];
    matem: integer;
    fiz:integer;
    inform:integer;
    him:integer;
  end;
  FT = file of spisok;
var a: ft;
  i, z: integer;
  s: real;
 
procedure Sozdanie(var a: ft);
var j: integer;
  zk: spisok;
begin
  rewrite(a);
  repeat
    begin
    writeln('Введите данные: ');
      write(' Ф.И.О учащегося - ');
      readln(zk.fio);
      write(' группа - ');
      Readln(zk.groop);
      write(' год рождения - ');
      readln(zk.god);
      write('математика - ');
      readln(zk.matem);
      write('физика - ');
      readln(zk.fiz);
      write('информатика - ');
      readln(zk.inform);
      write('химия - ');
      readln(zk.him);
      write(a, zk);
      writeln('Продолжить запись? ДА-1 НЕТ-0');
      readln(j);
    end;
  until j = 0;
  close(a);
end;
 
procedure Dobovlenie (var a:ft);
var j: integer;
  zk: spisok;
begin
  reset(a);
  repeat
    begin
    writeln('Добавте данные: ');
      write(' Ф.И.О учащегося - ');
      readln(zk.fio);
      write(' группа - ');
      Readln(zk.groop);
      write(' год рождения - ');
      readln(zk.god);
      write('математика - ');
      readln(zk.matem);
      write('физика - ');
      readln(zk.fiz);
      write('информатика - ');
      readln(zk.inform);
      write('химия - ');
      readln(zk.him);
      write(a, zk);
      writeln('Продолжить запись? ДА-1 НЕТ-0');
      readln(j);
    end;
  until j = 0;
  close(a);
end;
 
 
procedure vyvod(var a: ft);
var i: integer;
  zk: spisok;
begin
  clrscr;
  reset(a);
  writeln('======================================================');
  writeln('| Ф.И.О| Группа|год рож.|физика| информ| матем| химия|');
  writeln('======================================================');
  while not eof(a) do
  begin
    read(a, zk);
    write('|', zk.fio: 6, '|');
    write('|', zk.groop: 9, '|');
    write('|', zk.god: 6, '|');
    write('|', zk.fiz: 9, '|');
    write('|', zk.inform: 6, '|');
      write('|', zk.matem: 9, '|');
       write('|', zk.him: 6, '|');
    writeln;
    writeln('-------------------------------');
  end;
  close(a);
  writeln;
  readln;
end;
 
procedure poisk(var a: ft);
var i: integer;
  zk: spisok;
  groopa: string;
begin
  clrscr;
  reset(a);
  writeln('Введите группу для сортировки по группам ');
  readln(groopa);
  writeln('Список с заданной группой ');
  writeln('=========================================================');
  writeln('|        Ф.И.О             |   год рож.       | Группа |');
  writeln('=========================================================');
  while not eof(a) do
  begin
    read(a, zk);
    if (zk.groop = groopa) and (zk.matem<4) or (zk.fiz<4) or (zk.inform <4) or (zk.him <4) then
    begin
      write('|', zk.fio: 6, '|');
    write('|', zk.god: 6, '|');
    write('|', zk.groop: 9, '|');
      writeln;
      writeln('------------------------------------------------------');
    end;
  end;
  close(a);
  writeln;
  readln;
end;
 
begin
  repeat
    clrscr;
    assign(a, 'fff');
    writeln('       Меню      ');
    writeln('1:Создание ');
    writeln('2:Добавление данных ');
    writeln('3:Вывод ');
    writeln('4:Сортировка ');
    writeln('5:Выход ');
    readln(z);
    case z of
      1: Sozdanie(a);
      2: Dobovlenie(a);
      3: vyvod(a);
      4: poisk(a);
      5:{ exit;  }
    end;
  until z=5;
  WriteLn;
  WriteLn('Программа закончила свою работу.');
end.