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

@WTF · Регистрация: 05.04.2012

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

Файл "Студент"
Структура записи:
- ФИО (40 знаков)
- номер курса (1 знак)
- номер группы (1 знак)
- успеваемость - 5 экзаменов в каждой из 10 сессий.
- форма обучения (целевая, договорная) (1 знак)
- экзамен
- наименование предмета (10 знаков)
- оценка (1 знак)

Записи упорядоченны по номеру курса, внутри курса - по номеру группы, внутри группы - по ФИО.

Задание: Создайте файл "Студент". Из файла студент занесите в отдельный файл записи о неуспевающих студентах.

Delphi

Tocenka = (2,3,4,5);
Tusp = record
           predmet:string;
           ocenka:Tocenka;
 end;
TStudent=record
          FIO:string[40];
          kurs:integer;
          grup:integer;
          usp:Tusp;
          FormOb:string[1];
          examen:string;
     end;
TFile = File of Student;
var f:TFile;
procedure FormFile(t:TFile);
var a:TStudent;
begin
       AssignFile(t, 't.date');
       rewrite(t);
//Запись в файл
 with  a do begin
        write(t,FIO);
        write(t,kurs);
          ...........
     end;
end;

надо сделать проверку по условию задачи.подскажите,как это сделать?

@Arcor · 20.05.2012, 23:48

ну считывай структуру и проверяй оценку, если он двоечник, то записать в файл, если нет то идти дальше искать
1 цикл и 1 сравнение

Добавлено через 1 минуту
а в 23 строке это что такое стоит? оОООО

@Arcor 5706 / 2297 / 466 Регистрация: 20.11.2009 Сообщений: 7,721 Записей в блоге: 1
	20.05.2012, 23:48	2
	ну считывай структуру и проверяй оценку, если он двоечник, то записать в файл, если нет то идти дальше искать 1 цикл и 1 сравнение Добавлено через 1 минуту а в 23 строке это что такое стоит? оОООО 0