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

Reset(f);

i:=1;

SetLength(student_kniga,0);

while not eof(f) do {в цикле считываем данные из файла в переменные}

begin

t:=0;

SetLength(student_kniga,i);

readln(f, s); {читаем построчно}

for ii:=1 to Length(s) do {перебираем посимвольно строку}

begin

if (s[ii] = '+') then t:=t+1{если встречаем символ-разделитель данных, переходим к считыванию следующей переменной}

else

if t=0 then

student_kniga[i-1].name:= student_kniga[i-1].name + s[ii] {запоминаем фамилию}

else

if t=1 then

student_kniga[i-1].examen1:= student_kniga[i-1].examen1 + s[ii] {запоминаем балл первого экзамена}

else

if t=2 then

student_kniga[i-1].examen2:= student_kniga[i-1].examen2 + s[ii] {запоминаем балл второго экзамена}

else

if t=3 then

student_kniga[i-1].zachet:= student_kniga[i-1].zachet + s[ii] {запоминаем результат зачета}

else

if t=4 then

student_kniga[i-1].faculty:= student_kniga[i-1].faculty + s[ii] {запоминаем факультет}

else

if t=5 then

student_kniga[i-1].profession:= student_kniga[i-1].profession + s[ii]; {запоминаем специальность}