Реферат: Разработка модулей программы /Укр./

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,

Висновок:поглибив знання, вміння та навички розробки з використанням текстових та типизованих файлів, закріпив свої знання в області записів та типизованих файлів.