Цитата:
Сообщение от венера
я не бум-бум
|
Цитата:
Сообщение от венера
ну хоть что-нибудь помогите написать, лучше хоть что-нибудь сдать,чем вообще ни чего ни чего
|
М-да... стОит ли удивляться, что с такими "зодчими"-проектировщиками дома складываются, будто карточные. И люди гибнут... Какая уж там статика - хоть бы основами русского языка овладели: правильно "н
и бум-бум", а "ничего" пишется слитно.
Ну да ладно.
Условие изложено сумбурно, сам я в этом не спец, а потому ни малейшей уверенности в правильности решения у меня нет. Но если "хоть что-нибудь", то пожалуйста:
Код:
Const
L=10.4;
K=16; {PK/P0}
Var
M,P:Array[1..K] of Real;
A,S:Array[1..K,1..K] of Real;
i,j:Byte;
Begin
P[ 1]:=12.8;
P[ 2]:=6.75;
P[ 3]:=-1.2;
P[ 4]:=-8.6;
P[ 6]:=-4.2;
P[ 7]:=-6.4;
P[ 8]:=-6.4;
P[ 9]:=-6.4;
P[10]:=-6.4;
P[11]:=-6.4;
P[12]:=-6.4;
P[13]:=-6.4;
P[14]:=-6.4;
P[15]:=-6.4;
P[16]:=-6.4;
Write('P[5]= ');
Readln(P[5]);
for j:=1 to K do
for i:=1 to j do
A[i,j]:=(K-i+1)*j;
for i:=2 to K do
for j:=1 to i-1 do
A[i,j]:=A[j,i];
for i:=1 to K do
for j:=1 to K do
S[i,j]:=A[j,i]*L/Sqr(K+1);
for i:=1 to K do
begin
M[i]:=0;
for j:=1 to K do
M[i]:=M[i]+S[i,j]*P[j];
end;
for i:=1 to K do
writeln('M[',i:2,']= ',M[i]:0:5);
Readln
End.