Дiйснi вектори A(a1,a2...,an) та B(b1,b2...,bn) перетворити за

+ 0 -

19982008

08 мая 2014 г., 21:09:36 (9 лет назад)

uses crt;
const N=5;
var a,b:array [1..N] of real;
    i,j:integer;
   sum:real;
begin
     for i:=1 to N do
     begin
         write('a[',i,']:');readln(a[i]);
         write('b[',i,']:');readln(b[i]);
         if (a[i]<0) and (b[i]<0) then
         begin
              a[i]:=a[i]+0.5;
              b[i]:=b[i]+0.5;
         end;
         if (a[i]<0) and (b[i]>=0) then a[i]:=sqr(a[i]);
         if (a[i]>=0) and (b[i]<0) then b[i]:=sqr(b[i]);
         if (a[i]>=0) and (b[i]>=0) then
         begin
              sum:=a[i]+b[i];
              a[i]:=sum/2;
              b[i]:=sum/2;
         end;
     end;
     writeln;
     write('a:');
     for i:=1 to N do
         write(a[i],' ');
     writeln;
     write('b:');
     for i:=1 to N do
         write(b[i],' ');
end.

+ 0 -

Танюхания

08 мая 2014 г., 22:03:35 (9 лет назад)

Как переводится вiд’ємнi ? :)

+ 0 -

SaNyA42rus

08 мая 2014 г., 23:36:54 (9 лет назад)

отрицательные

+ 0 -

Aleyalunin

09 мая 2014 г., 2:05:51 (9 лет назад)

Действительные векторы A (a1, a2 ..., an) и B (b1, b2, ..., bn) преобразовать с
правилу: если a (i) и b (i) вiдьемнi, то каждый компонент увеличить на 0,5; если отрицательная одна из компонент, то отрицательное число заменить его квадратом; если обе компоненты невiдьемнi, то каждую из них заменить средним арифметическим начальных значений.

+ 0 -

Линoчка

09 мая 2014 г., 3:58:26 (9 лет назад)

преобразовать не с правилу, а по правилу