Turbo Pascal - дағы енгізу және шығару операторлары

begin

s vt:=s vt+mas[i] .vt;

s history:=s history+mas[i] .history;

s stat:=s stat+mas[i] .stat;

s -math:=s -math+mas[i] .math;

end;

s vt:=s vt/n;

s history:=s history/n;

s stat:=s stat/n;

s math:=s math/n;

{Упорядочение массива записей в алфавитном порядке фамилии.}

for і:=l to п-l do

for j:=l to п-l do

if mas[j] .name>mas[j+l] .пате then

begin a:=mas[j];

та s [j ] :=та s [j +1] ;

mas[j+l] :=а;

end;

{Вывод результатов.}

clrscr;

write(' ':8,'FIO , , .. 4) .,•

wr і te (' ': 2, 'GROUP ');

write(' ':l,'Year ',":2);

write (": 3, 'OTSENKI', '

writeln('Sr.Bal') ;

for і:=l to n do

with rnas[i] do

begin

write(narne:15);

write (' ',group: 8);

write(' ',god:4);

-- _. о. _

writeln(' ',vt:з,' ',history:3,' ',stat:3,’math : 3,' ', sr_bаl : 5 : 2) ;

end;

writeln (' , ' Sr. bа1: ' " ': 24, s_vt: 3 : 1, ' ',s_history:3:1, , ',s_stat:3:1, S rnath:3:1);

end.

9. Программаның нәтижеc

На правах рекламы