] of record_p,perest_p,sravn_t,perest_t:real;_elem:integer;_znach_sr,otlichie_znach_per:real;;=array[1..1000] of integer;: srednii_znacheniya;, h3: integer;
{ Для різного числа ісследованеній визначає середнє число порівнянь, перестановок і записує їх у запис з трьома полями }
procedure vvod_znach_pract_teor (var chislo_tochek: integer); i, chislo_elem_mas: integer; («skolko tochek budet na grafike?"); (chislo_tochek); i:=1 to chislo_tochek do («Vvedite chislo elementov massiva dlia poluchenia», i, «-oi tochki»); (chislo_elem_mas); («Vvedite srednee chislo sravnenii, poluchennih prakt. sposobom!"); (s [i]. sravn_p ); («Vvedite srednee chislo sravnenii, poluchennih teoriticheskim sposobom!"); (s [i]. sravn_t); («Vvedite srednee chislo peremeshenii, poluchennih prakt. sposobom!"); (s [i]. perest_p); («Vvedite srednee chislo peremeshenii, poluchennih teoriticheskim sposobom!"); (s [i]. perest_t); [i]. chislo_elem:=chislo_elem_mas;;
end;
{ Порівняння досліджень як практичного, так і теоретичного }
procedure sravnenie_p_t_analizov (chislo_tochek: integer); i: integer; i:=1 to chislo_tochek do[i].otlichie_znach_sr:=(s[i].sravn_p-s[i].sravn_t)*100/s[i].sravn_p;[i].otlichie_znach_per:=(s[i].perest_p-s[i].perest_t)*100/s[i].perest_p;;;
_znach_pract_teor (h3); _p_t_analizov (h3);; («==================»); j:= 1 to h3 do («Dla chisla elementov massiva =», s [j]. chislo_elem); («Otlichie prakticheskogo srednego chisla sravnenii ot teoriticheskogo sostovlaet =», s [j]. otlichie_znach_sr: 3:1, « ;% »); (« Otlichie prakticheskogo srednego chisla peremeshenii ot teoriticheskogo sostovlaet=», s [j]. otlichie_znach_per: 3:1,«% »); (« ======== ========== »);;;.