Контрольная работа: Разработка и стандартизация программных средств информационных технологий

i:= i+1;

end;

closefile(f); {закрываем файл данных}

end;

{процедура отображения загруженных данных на форме}

procedure display;

var i: word;

begin

form1.Memo1.Clear; {очищаем окно вывода данных}

for i:=0 to length(student_kniga)-1 do {цикл по студентам}

begin

form1.Memo1.Lines.add(student_kniga[i].name {заносим данные о студенте в окно вывода}

+ #09 + student_kniga[i].examen1

+ #09 + student_kniga[i].examen2

+ #09 + student_kniga[i].zachet

+ #09 + student_kniga[i].faculty

+ #09 + student_kniga[i].profession);

end;

end;

{сохранение результатов вычислений}

procedure save_file;

var i, ii: word;

begin

for i:=0 to length(plans)-1 do {цикл по всем специальностям}

begin

if plans[i].name <> '' then

AssignFile(f, plans[i].name+'.txt'); {создаем файл с названием специальности}

reWrite(f);//открываем файл на перезапись

if length(plans[i].students) >0 then