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

popal:=false; {иначе смотрим на какую специальность может быть зачислен}

end;

if not(popal) then

begin

for iii:=0 to length(plans)-1 do {смотрим проходные баллы по специальностям и определяем куда можно зачислить студента}

begin

if (plans[iii].ball <= ball) and (plans[iii].name<>'') then {если набранный студентом балл больше проходного}

begin

setlength(plans[iii].students, length(plans[iii].students)+1); {увеличиваем размерность массива студентов на 1}

plans[iii].students[length(plans[iii].students)-1].name:= student_kniga[i].name; {добавляем студента в список зачисленных}

break; {прерываем цикл}

end;

end;

end;

end;

save_file; //сохраняем данные в файл

end;

end.

Пример ввода исходных данных

4. Описание программы

Приведенный алгоритм, на основе текстового задания.

5. Руководство системного программиста