| Vladimir_S |
02.03.2010 22:05 |
Цитата:
Сообщение от JCHacker
(Сообщение 302224)
1) Q=3X-4Y+8Z,
при х = 1,
при Y=2,
при Z= -З
2) Y=4x-5;
при -10≤x≤15, ∆х=0.5 ;
3) Z=4x Y-3x+2 Y+5,
при -2≤х≤0, ∆х=0.1,
при 1≤Y≤5, ∆Y=0,1 ;
4) {Xi}=(6,7,5,6,7,5,8,8,4,6,7,8,9) ;
5)
6 2 5 1 2 5 6 1
3 5 2 1 5 2 8 4
6 6 2 5 1 2 5 1
7 3 5 2 1 5 2 1
4 2 5 6 1 5 6 1
5 7 3 5 9 3 5 9
Помогите пожалуйста с такой программой. Можно на любом язике програмирования. Заранее спасибо!!!
|
Паскаль, если устроит:
1.
Код:
VAR
x,y,z,Q:REAL;
BEGIN
x:=1;
y:=2;
z:=-3;
Q:=3.0*x-4.0*y+8.0*z;
WriteLn('Q= ',Q:6:2);
ReadLn;
END.
2.
Код:
VAR
i:INTEGER;
BEGIN
For i:=-20 to 30 do
WriteLn(0.5*i:4:1,' ',4.0*(0.5*i)-5);
ReadLn;
END.
3.
Код:
VAR
i,j:INTEGER;
BEGIN
For i:=-20 to 0 do
For j:=10 to 50 do
WriteLn('x= ',0.1*i:4:1,' y= ',0.1*j:4:1,' Z= ',
0.04*i*j-0.3*i+0.2*j+5);
ReadLn;
END.
Откровенно говоря, не знаю, что такое "статический момент массива данных". Но если под этим подразумевается "центр инерции", в предположении, что номера элементов массивов суть координаты, а их значения - это "массы", то как-то так (если я не прав, подскажите):
4.
Код:
CONST
X:ARRAY[1..13] of INTEGER=(6,7,5,6,7,5,8,8,4,6,7,8,9) ;
VAR
i:INTEGER;
S1,S2:REAL;
BEGIN
S1:=0;
S2:=0;
For i:=1 to 13 do
Begin
S1:=S1+1.0*X[i]*i;
S2:=S2+1.0*X[i];
End;
WriteLn('Center= ',S1/S2:6:3);
ReadLn;
END.
5.
Код:
CONST
Z:ARRAY[1..6] of ARRAY[1..8] of INTEGER= ((6, 2, 5, 1, 2, 5, 6, 1),
(3, 5, 2, 1, 5, 2, 8, 4),
(6, 6, 2, 5, 1, 2, 5, 1),
(7, 3, 5, 2, 1, 5, 2, 1),
(4, 2, 5, 6, 1, 5, 6, 1),
(5, 7, 3, 5, 9, 3, 5, 9));
VAR
i,j:INTEGER;
Sx,Sy,S:REAL;
BEGIN
Sx:=0;
Sy:=0;
S:=0;
For i:=1 to 6 do
For j:=1 to 8 do
Begin
Sx:=Sx+1.0*Z[i,j]*i;
Sy:=Sy+1.0*Z[i,j]*j;
S:=S+1.0*Z[i,j];
End;
WriteLn('CenterX= ',Sx/S:6:3);
WriteLn('CenterY= ',Sy/S:6:3);
ReadLn;
END.
|
