Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
вычислить компоненты вектора
вычислить компоненты вектора x(x1...x8) в зависимости от условия.Выбрать из них положительные числа и найти среднее арифмет квадратов этих чисел, переписав получ значения в массив b(b1....bn)
Код
uses crt;
const a=0.5;
type mas=array[0..8]of real;
var x,m,c,p,b:mas; k:integer; sr,s:real;
procedure vvod(n:integer; var c:mas);
var i:integer;
begin
for i:=1 to n do
readln(c[i]);
end;
procedure pechat(c:mas; n:integer);
var i:integer;
begin
for i:=1 to n do writeln(c[i]);
end;
procedure formula(n:integer; x:mas);
var i:integer; s:real;
begin
for i:=1 to n do
if sin(i+a)>0.5 then x[i]:=exp(sqrt(i+1))+2
else
x[i]:=3*sin(i+1)/cos(i+1);
end;

procedure ARIF (c:mas;n:integer; var m,b:mas; var k:integer; var s:real);
var i:integer;
begin
s:=0;k:=0;
for i:=1 to n do begin
if c[i]>0 then begin

k:=k+1;
s:=s+(c[i]*c[i]) ;
sr:=s/n;
end;

m[k]:=C[i];

begin
writeln('vvedite massiv C');
vvod(8,c);
writeln(' massiv C');
pechat(c,8);
arif(c,8,m,b,k,s);
writeln(' srednee');
pechat(m,8);
writeln('polog');
pechat(b,k-1);

end;
end;
end
1 | Автор: furt | 2013-11-28, 19:36 | Изменено: furt - Чт, 2013-11-28, 19:39   |  Репутация: [ + 0 ]
  • Страница 1 из 1
  • 1
Поиск: