.


:




:

































 

 

 

 


7.




 

, 25 . , , , , . . .

, , , .

 

program dz7;

type ev=record

alg:1..5;

ist:1..5;

evm:1..5;

end;

type student=record

fio: string;

birthdae:1965..1975;

date:1985..1995;

evaluation: ev;

sredniy: real;

end;

 

const count=11;

var

group:array[1..count] of student;

s1,t:student;

i,j,indexMin:integer;

sr: array [1..count] of real;

s: char;

function Average(s: student): real;

var max: integer;

begin

Average:=(s.evaluation.alg+s.evaluation.ist+s.evaluation.evm)/3;

end;

begin

s1.fio:='';

s1.birthdae:=1966;

s1.date:=1985;

s1.evaluation.alg:=5;

s1.evaluation.ist:=5;

s1.evaluation.evm:=3;

s1.sredniy:= (s1.evaluation.alg+s1.evaluation.ist+s1.evaluation.evm)/3;

group[1]:=s1;

s1.fio:='';

s1.birthdae:=1970;

s1.date:=1988;

s1.evaluation.alg:=3;

s1.evaluation.ist:=4;

s1.evaluation.evm:=3;

s1.sredniy:= (s1.evaluation.alg+s1.evaluation.ist+s1.evaluation.evm)/3;

group[2]:=s1;

s1.fio:='';

s1.birthdae:=1969;

s1.date:=1989;

s1.evaluation.alg:=3;

s1.evaluation.ist:=2;

s1.evaluation.evm:=5;

s1.sredniy:= (s1.evaluation.alg+s1.evaluation.ist+s1.evaluation.evm)/3;

group[3]:=s1;

s1.fio:='';

s1.birthdae:=1968;

s1.date:=1988;

s1.evaluation.alg:=5;

s1.evaluation.ist:=3;

s1.evaluation.evm:=4;

s1.sredniy:= (s1.evaluation.alg+s1.evaluation.ist+s1.evaluation.evm)/3;

group[4]:=s1;

s1.fio:='';

s1.birthdae:=1972;

s1.date:=1990;

s1.evaluation.alg:=4;

s1.evaluation.ist:=5;

s1.evaluation.evm:=3;

s1.sredniy:= (s1.evaluation.alg+s1.evaluation.ist+s1.evaluation.evm)/3;

group[5]:=s1;

s1.fio:='';

s1.birthdae:=1970;

s1.date:=1985;

s1.evaluation.alg:=4;

s1.evaluation.ist:=4;

s1.evaluation.evm:=4;

s1.sredniy:= (s1.evaluation.alg+s1.evaluation.ist+s1.evaluation.evm)/3;

group[6]:=s1;

s1.fio:='';

s1.birthdae:=1966;

s1.date:=1985;

s1.evaluation.alg:=4;

s1.evaluation.ist:=5;

s1.evaluation.evm:=3;

s1.sredniy:= (s1.evaluation.alg+s1.evaluation.ist+s1.evaluation.evm)/3;

group[7]:=s1;

s1.fio:='';

s1.birthdae:=1966;

s1.date:=1986;

s1.evaluation.alg:=3;

s1.evaluation.ist:=3;

s1.evaluation.evm:=4;

s1.sredniy:= (s1.evaluation.alg+s1.evaluation.ist+s1.evaluation.evm)/3;

group[8]:=s1;

s1.fio:='';

s1.birthdae:=1968;

s1.date:=1985;

s1.evaluation.alg:=4;

s1.evaluation.ist:=2;

s1.evaluation.evm:=2;

s1.sredniy:= (s1.evaluation.alg+s1.evaluation.ist+s1.evaluation.evm)/3;

group[9]:=s1;

s1.fio:='';

s1.birthdae:=1966;

s1.date:=1989;

s1.evaluation.alg:=4;

s1.evaluation.ist:=5;

s1.evaluation.evm:=4;

s1.sredniy:= (s1.evaluation.alg+s1.evaluation.ist+s1.evaluation.evm)/3;

group[10]:=s1;

s1.fio:='';

s1.birthdae:=1968;

s1.date:=1988;

s1.evaluation.alg:=4;

s1.evaluation.ist:=2;

s1.evaluation.evm:=3;

s1.sredniy:= (s1.evaluation.alg+s1.evaluation.ist+s1.evaluation.evm)/3;

group[11]:=s1;

{

with s1 do

begin

for i:=1 to count do

begin

writeln(':');

readln(fio);

writeln(' , :');

readln(birthdae,date);

writeln(', , ');

with evaluation do readln (alg, ist, evm);

sredniy:= (evaluation.alg+evaluation.ist+evaluation.evm)/3;

group[i]:=s1;

end;

end;

}

writeln('-- --');

for i:=1 to count do with group[i], group[i].evaluation do

begin

writeln(': ',fio,', : ',birthdae,', : ',date);

writeln(' : ',group[i].sredniy);

end;

for i:= 1 to count - 1 do

begin

indexMin:= i;

for j:= i + 1 to count do

begin

if Average(group[j]) <Average(group[indexMin]) then indexMin:= j;

end;

if i <> indexMin then

begin

t:= group[indexMin];

group[indexMin]:= group[i];

group[i]:= t;

end;

end;

writeln('-- --');

for i:=1 to count do with group[i],group[i].evaluation do

begin

writeln(': ',fio,', : ',birthdae,', : ',date);

writeln(' : ',group[i].sredniy);

end;

end.

 

:

 





:


: 2015-10-01; !; : 593 |


:

:

,
==> ...

958 - | 872 -


© 2015-2024 lektsii.org - -

: 0.016 .