end.
D a stu rd a
Z 2 nom idagi y o zuvning
q iym ati ikkinchi Z 1 nom li yozuvga
ta ’m in lash operato ri y o rd am id a j o ‘natilgan. B u b itta o p erato r quyidagi
Z l.F a m := Z 2 .fa m ; Z 1.B 1:= Z 2.B 1; Z 1 .B 2 := Z 2 .B 2 ; Z 1.B 3:= Z 2.B 3;
Z l.B 4 := Z 2 .B 4 ; Z 1 .B 5:= Z 2.B 5; Z 1 .B 6 := Z 2 .B 6 ; Z 1.S B := Z 2.S B ;
bir n e c h a o p erato rlarg a te n g kuchli.
Y o z u v la r funksiya v a protsed u ralarn in g p aram etri
sifatida ham qatnashishi
m um kin, lekin funksiya qiym ati yozuv b o 'la olm aydi.
E n d i guruh talabalarining o 'rta c h a bahosini hisoblash uchun tuzilgan d as
tu m in g t o 'l a m atnini keltiraylik.
P ro g ra m B AL;
T ype
ta la b a =
R eco rd
F A M : str in g /151;
B l , B2, B3, B4, B5, B 6 : 2 . 5 ;
S B : R eal;
E nd;
Var
TBL: array 11. .2 0 / o f talaba;
К : integer;
B eg in
F or k : = l to 2 0 do
R ead(T B L /k].fam , T B L /kJ.bl, TBL[k].b2, TBLfk/.ЬЗ,