Предыдущая страница реферата | 1  2  3  4  5



writeln('Введiть оцiнки: ');

for j:=1 to kolocenok do readln(temp.marks[j]);

abit[i]:=temp;

end;

clrscr;

for i:=1 to k do begin

writeln('абiтурiент ',i,':');

write('im`я: ',abit[i].fio);

write(' мае оцiнки: ');

ser:=0;

for j:=1 to kolocenok do begin

write(abit[i].marks[j],', ');

ser:=ser+abit[i].marks[j];

end;

writeln;

if ser>8 then writeln(' З А Ч И С Л Е Н И Й ! ');

writeln;

end;

end.

РЕЗУЛЬТАТИ РОБОТИ ПРОГРАМИ:

абiтурiент 1:

im`я: Саша мае оцiнки: 4, 5,

ЗАЧИСЛЕНИЙ!

абiтурiент 2:

im`я: Петро мае оцiнки: 3, 4,

абiтурiент 3:

im`я: Олег мае оцiнки: 4, 2,

абiтурiент 4:

im`я: Микола мае оцiнки: 2, 2,

Висновок:поглибив знання, вміння та навички розробки з використанням текстових та типизованих файлів, закріпив свої знання в області записів та типизованих файлів.
Скачали данный реферат: Jezerin, Vihorev, Досифея, Жутов, Толкачёв, Мира, Burda, Рябкин.
Последние просмотренные рефераты на тему: реферат услуги, изложения по русскому языку 9, конспект по русскому языку, население реферат.

Предыдущая страница реферата | 1  2  3  4  5

Поделитесь этой записью или добавьте в закладки