Реферат: Записи в языке Turbo Pascal

with ved [i] do

begin

writeln('введите фамилию студента');

read(fam);

writeln('введите оценки');

read(fiz,mat,pr)

end;

sg: =0;

for i: =1 to n do

with ved [i] do

begin

ss: =(fiz+mat+pr) /3; {вычисление среднего балла студента}

sg: =sg+ss;

end;

sg: =sg/n; {вычисление среднего балла группы}

writeln('ведомость группы');

write('! фамилия! физика! мат! прогр! ');

writeln('! cp. балл! ')

for i: =1 to n do

with ved [i] do

begin

write('! ',fam: 10,'! ',fiz: 10,'! ',mat: 10,'! ',pr: 10);

writeln('! ',ss: 10: 2,'! ');

end;

writeln('средний балл в группе =',sg);

end.

Иногда бывает необходимо иметь в программе несколько родственных, но не совсем идентичных записей. Такая необходимость возникает, например, для программы, которая обрабатывает информацию о человеке и тогда, в зависимости от значения поля sex (мужской или женский), появляются поля:

· время прохождения очередных военных сборов;

· род войск, в которых проходил военный сбор;