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

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

Ответы и объяснения

  • Sky09
  • профессор
2013-12-07T20:16:22+04:00
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.
черт есть проблемка на даный момент я учу Visual Basic и мне сложновато построить блок схему по этой программе
я в задании не указал что мне нужна блок схема
можно ли как то по коду построить блок схему
Построила, добавила.
Надеюсь, понятно, что к чему там. Все непонятное спрашивай, но, желательно, в сообщениях.