Преобразовать вещественные векторы по правилу

@Tyrbo · Регистрация: 23.10.2010

Author24 — интернет-сервис помощи студентам

Вешественые векторы А(а1,а2…аn) и В(в1,в2…вn)
преобразовать по правилу если аі и ві отрицательные то каждый из них увеличить на 0,5; если отрицательный один из элементов, то отрицательное число заменить его квадратом, если оба элемента
отрицательные, то каждый из них заменить на среднее арифметическое исходных значений.

@Tyrbo · 24.11.2010, 18:31 **[ТС]**

Вешественые векторы А(а1,а2…аn) и В(в1,в2…вn)
преобразовать по правилу если аі и ві отрицательные то каждый из них увеличить на 0,5; если отрицательный один из элементов, то отрицательное число заменить его квадратом, если оба элемента
положытельные, то каждый из них заменить на среднее арифметическое исходных значений.

Pascal

Program M1_P_5;
uses crt;
var a,b:array [1..100] of real;
n,m,i,j:integer;
Begin   clrscr;
Writeln ('Vvedite vector A');
readln (n) ;
Writeln ('Vvedite vector B');
readln(m);
Writeln ('Vvedite elementy vectora A');
for i:=1 to n do
readln (a[i]);
Writeln ('Vvedite elementy vectora B');
for j:=1 to m do begin
readln (b[j]);end;
if a[i]<0  then a[i]:=a[i]+0.5 
 if b[j]<0  then b[j]:=b[j]+0.5;
 if a[i]*b[j]=0 then  ;
 if a[i]>0 then a[i]:=a[i] ;
 if a[i]>0 then a[i]:=a[i] ;
end.

Вот что уменя выходит. А дальше незнаю как.

@Tyrbo 2 / 2 / 2 Регистрация: 23.10.2010 Сообщений: 53
		1
	Преобразовать вещественные векторы по правилу 10.11.2010, 17:56. Показов 1558. Ответов 1 Метки нет (Все метки) Вешественые векторы А(а1,а2…аn) и В(в1,в2…вn) преобразовать по правилу если аі и ві отрицательные то каждый из них увеличить на 0,5; если отрицательный один из элементов, то отрицательное число заменить его квадратом, если оба элемента отрицательные, то каждый из них заменить на среднее арифметическое исходных значений. 0

	24.11.2010, 18:31

Опции темы

Преобразовать вещественные векторы по правилу

Решение