06.05.2009, 16:22
|
|
Участник форума
Регистрация: 25.05.2007
Сообщений: 290
С нами:
9980798
Репутация:
435
|
|
Сообщение от TOLIA
Нужно написать программу + алгоритм(если сможете)
указывайте ЯП (язык программирования);
PHP код:
program Project1;
uses
SysUtils;
var
x,y,w,z: array[0..11] of real;
px,py,sw,sz,S: real;
i: integer;
begin
writeln('#> PROGRAMMA: rabota s massivami.');
writeln('===========================================================');
writeln('#> array X;');
writeln('===========================================================');
writeln('#> x[0] := 1.20; x[1] := 3.63; x[2] := 4.52; x[3] :=-2.22;');
writeln('#> x[4] :=-12.0; x[5] :=-7.52; x[6] := 1.65; x[7] := 2.22;');
writeln('#> x[8] := 2.09; x[9] :=-6.23; x[10]:= 4.09; x[11]:= 2.43;'+#10);
writeln('#> array Y;');
writeln('===========================================================');
writeln('#> y[0] :=-3.56; y[1] := 2.02; y[2] := 1.01; y[3] := 6.52;');
writeln('#> y[4] :=-11.7; y[5] :=-7.52; y[6] := 1.13; y[7] := 7.23;');
writeln('#> y[8] := 5.55; y[9] := 6.66; y[10]:=-7.77; y[11]:=-8.88;'+#10);
writeln('#> array W;');
writeln('===========================================================');
writeln('#> w[0] := 1.22; w[1] := 3.03; w[2] := 2.32; w[3] := 5.63;');
writeln('#> w[4] :=-22.2; w[5] := 7.22; w[6] :=-5.65; w[7] :=-7.85;');
writeln('#> w[8] := 2475; w[9] :=-6.21; w[10]:= 3.17; w[11]:=-2.03;'+#10);
writeln('#> array Z;');
writeln('===========================================================');
writeln('#> z[0] :=-8.88; z[1] := 8.01; z[2] :=-1.99; z[3] := 1.27;');
writeln('#> z[4] := 1.05; z[5] :=-7.77; z[6] := 8.02; z[7] := 2.38;');
writeln('#> z[8] := 4.09; z[9] := 5.23; z[10]:=-6.66; z[11]:= 4.23;'+#10);
//=============#===============#===============#==============#====*
x(.0.) := 1.20; x(.1.) := 3.63; x(.2.) := 4.52; x(.3.) :=-2.22;//---
x(.4.) :=-12.0; x(.5.) :=-7.52; x(.6.) := 1.65; x(.7.) := 2.22;//---
x(.8.) := 2.09; x(.9.) :=-6.23; x(.10.):= 4.09; x(.11.):= 2.43;//---
y(.0.) :=-3.56; y(.1.) := 2.02; y(.2.) := 1.01; y(.3.) := 6.52;//---
y(.4.) :=-11.7; y(.5.) :=-7.52; y(.6.) := 1.13; y(.7.) := 7.23;//---
y(.8.) := 5.55; y(.9.) := 6.66; y(.10.):=-7.77; y(.11.):=-8.88;//---
w(.0.) := 1.22; w(.1.) := 3.03; w(.2.) := 2.32; w(.3.) := 5.63;//---
w(.4.) :=-22.2; w(.5.) := 7.22; w(.6.) :=-5.65; w(.7.) :=-7.85;//---
w(.8.) := 2475; w(.9.) :=-6.21; w(.10.):= 3.17; w(.11.):=-2.03;//---
z(.0.) :=-8.88; z(.1.) := 8.01; z(.2.) := 1.99; z(.3.) := 1.27;//---
z(.4.) := 1.05; z(.5.) :=-7.77; z(.6.) := 8.02; z(.7.) := 2.38;//---
z(.8.) := 4.09; z(.9.) := 5.23; z(.10.):=-6.66; z(.11.):= 4.23;//---
writeln('___________________________________________________________');
px:=1; py:=1; sw:=0; sz:=0;
for i:=0 to 11 do if x[i]>0 then px:=px*x[i];
for i:=0 to 11 do if y[i]>0 then py:=py*y[i];
for i:=0 to 11 do if w[i]>0 then sw:=sw+w[i];
for i:=0 to 11 do if z[i]>0 then sz:=sz+z[i];
S:=(px+py)/(sw+sz);
writeln('#> P(x) = ',px:0:8);
writeln('#> P(y) = ',py:0:8);
writeln('#> S(w) = ',sw:0:8);
writeln('#> S(z) = ',sz:0:8,#10);
writeln('#> S = [P(x)+P(y)]/[S(w)+S(z)] = ',s:0,3);
readln;
end.
|
|
|