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

form1.Memo1.Lines.add('Студенты зачисленные на специальность '+plans[i].name+': ');

for ii:=0 to length(plans[i].students)-1 do {цикл по зачисленным студентам на данную специальность}

begin

writeln(f, plans[i].students[ii].name); {записываем имя студента в файл}

end;

end

else

writeln(f, 'Студенты не зачислены'); {сообщаем, если нет зачисленных студентов на данную специальность}

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

end;

end;

{процедура загрузки данных (кнопка "Загрузка")}

procedure TForm1.Button1Click(Sender: TObject);

begin

open_file; {открытие и чтение файла данных}

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

end;

{процедура обработки данных (кнопка "Зачислить студентов")}

procedure TForm1.Button2Click(Sender: TObject);

var sname: shortstring;

i, ii, iii, ball: word;

popal: boolean;

begin

for i:=0 to length(student_kniga)-1 do {строим массив специальностей.}

begin

setlength(plans,i+1); {увеличиваем размерность массива на единицу}

plans[i].name:= student_kniga[i].profession; {запоминаем специальность}

end;

end;