Продолжение табл. 1

№№ п/п		№№ п/п		№№ п/п			№№ п/п			№№ п/п
101	1,7	121	-0,95	141	0,45		161		-0,8	181	0,61
102	1,6	122	-1,1	142		0,56		162	-0,9	182	0,45
103	1,4	123	-1,3	143	0,71		163		-1,1	183	0,38
104	1,3	124	-1,1	144	0,85		164		-0,8	184	0,23
105	0,95	125	-0,8	145	0,9		165		-0,5	185	0,15
106	0,8	126	-0,56	146	0,92		166		-0,3	186	0,16
107	0,9	127	-0,44	147	0,93		167		-0,1	187	0,21
108	1,2	128	-0,24	148	0,9		168		0	188	0,25
109	1,1	129	-0,1	149	0,78		169		0,1	189	0,25
110	0,85	130	-0,2	150	0,5		170		0,25	190	0,26
111	0,5	131	-0,34	151	0,2		171		0,38	191	0,35
112	0,34	132	-0,11	152	0,14		172		0,56	192	0,5
113	0,28	133	0	153	0,08		173		0,72	193	0,7
114	0,12	134	0,15	154	0,05		174		0,8	194	0,8
115	0	135	0,4	155	-0,11		175		0,82	195	0,9
116	-0,2	136	0,5	156	-0,23		176		0,85	196	1,1
117	-0,45	137	0,55	157	-0,4		177		0,81	197	1,2
118	-0,56	138	0,62	158	-0,5		178		0,74	198	1,2
119	-0,8	139	0,48	159	-0,7		179		0,65	199	1,12
120	-0,92	140	0,32	160	-0,7		180		0,63	200	0,9

Приложение 2

program d;

uses crt;

const N=200;

var R,W:real;

g:array[1..200] of real;

i,k:integer;

begin

clrscr;

g[1]:=2.05; g[2]:=2.11; g[3]:=1.73; g[4]:=1.43; g[5]:=1.19; g[6]:=0.96;

g[7]:=0.91; g[8]:=0.9; g[9]:=0.81; g[10]:=0.57; g[11]:=0.46; g[12]:=0;

g[13]:=-0.24; g[14]:=-0.39; g[15]:=-0.64; g[16]:=-0.91; g[17]:=-1.05;

g[18]:=-1.14; g[19]:=-1.59; g[20]:=-1.37; g[21]:=-1.11; g[22]:=-1.05;

g[23]:=-0.96; g[24]:=-0.92; g[25]:=-0.68; g[26]:=-0.59; g[27]:=-0.57;

g[28]:=-0.48; g[29]:=-0.58; g[30]:=-0.68; g[31]:=-0.73; g[32]:=-0.93;

g[33]:=-0.91; g[34]:=-0.74; g[35]:=-0.32; g[36]:=-0.17; g[37]:=0.29;

g[38]:=0.46; g[39]:=0.43; g[40]:=0.31; g[41]:=0.17; g[42]:=0; g[43]:=-0.11;

g[44]:=-0.36; g[45]:=-0.57; g[46]:=-0.71; g[47]:=-0.68; g[48]:=-0.62;

g[49]:=-0.46; g[50]:=-0.23; g[51]:=-0.14; g[52]:=0; g[53]:=0.62; g[54]:=1.14;

g[55]:=1.37; g[56]:=1.59; g[57]:=1.71; g[58]:=1.82; g[59]:=1.94; g[60]:=1.98;

g[61]:=2.05; g[62]:=1.96; g[63]:=1.88; g[64]:=1.76; g[65]:=1.62; g[66]:=1.48;

g[67]:=1.37; g[68]:=1.16; g[69]:=1.08; g[70]:=0.96; g[71]:=0.59; g[72]:=0.29;

g[73]:=0; g[74]:=-0.14; g[75]:=-0.27; g[76]:=-0.29; g[77]:=-0.52;

g[78]:=-0.95; g[79]:=-1.19; g[80]:=-1.41; g[81]:=-1.86; g[82]:=-2.11;

g[83]:=-2.21; g[84]:=-2.30; g[85]:=-2.23; g[86]:=-2.11; g[87]:=-1.98;

g[88]:=-1.91; g[89]:=-1.86; g[90]:=-1.43; g[91]:=-0.98; g[92]:=-0.29;

g[93]:=0; g[94]:=0.6; g[95]:=0.82; g[96]:=1.41; g[97]:=1.66; g[98]:=1.77;

g[99]:=1.87; g[100]:=1.96; g[101]:=1.94; g[102]:=1.82; g[103]:=1.59;

g[104]:=1.48; g[105]:=1.08; g[106]:=0.91; g[107]:=1.04; g[108]:=1.37;

g[109]:=1.25; g[110]:=0.97; g[111]:=0.57; g[112]:=0.39; g[113]:=0.32;

g[114]:=0.14; g[115]:=0; g[116]:=-0.23; g[117]:=-0.51; g[118]:=-0.64;

g[119]:=-0.91; g[120]:=-1.05; g[121]:=-1.08; g[122]:=-1.25; g[123]:=-1.48;

g[124]:=-1.25; g[125]:=-0.91; g[126]:=-0.64; g[127]:=-0.5; g[128]:=-0.27;

g[129]:=-0.11; g[130]:=-0.23; g[131]:=-0.39; g[132]:=-0.13; g[133]:=0;

g[134]:=0.17; g[135]:=0.46; g[136]:=0.57; g[137]:=0.63; g[138]:=0.71;

g[139]:=0.55; g[140]:=0.36; g[141]:=0.51; g[142]:=0.64; g[143]:=0.81;

g[144]:=0.97; g[145]:=1.03; g[146]:=1.05; g[147]:=1.06; g[148]:=1.03;

g[149]:=0.89; g[150]:=0.57; g[151]:=0.23; g[152]:=0.16; g[153]:=0.09;

g[154]:=0.06; g[155]:=-0.13; g[156]:=-0.26; g[157]:=-0.46; g[158]:=-0.57;

g[159]:=-0.79; g[160]:=-0.91; g[161]:=-1.03; g[162]:=-1.25; g[163]:=-0.91;

g[164]:=-0.57; g[165]:=-0.34; g[167]:=-0.11; g[168]:=0; g[169]:=0.11;

g[170]:=0.29; g[171]:=0.43; g[172]:=0.64; g[173]:=0.82; g[174]:=0.91;

g[175]:=0.93; g[176]:=0.97; g[177]:=0.92; g[178]:=0.84; g[179]:=0.74;

g[180]:=0.72; g[181]:=0.69; g[182]:=0.51; g[183]:=0.43; g[184]:=0.26;

g[185]:=0.15; g[186]:=0.18; g[187]:=0.24; g[188]:=0.29; g[189]:=0.29;

g[190]:=0.3; g[191]:=0.39; g[192]:=0.57; g[193]:=0.79; g[194]:=0.91;

g[195]:=1.03; g[196]:=1.25; g[197]:=1.37; g[198]:=1.37; g[199]:=1.28;

g[200]:=1.03;

writeln('output matrix');

for k:=0 to 199 do

begin

for i:=1 to N-k do

W:=W+(g[i]*g[i+k]);

R:=(1/(N-k))*W;

W:=0;

write(' ',R:7:3);

end;

end.