Заданы логический вектор a={a1,a2,...,An,} и вещественный вектор x={X1,X2,...,Xn}.

@GooD_92 · Регистрация: 02.06.2010

Заданы логический вектор a={a1,a2,...,An,} и вещественный вектор x={X1,X2,...,Xn}. Преобразовать вектор х по правилу: если ai имеет значение TRUE, то Xi возвести в куб и поделить на 10, в противном случае изменить знак Xj на противоположный.
Через 2 дня экзамен, срочно нужно получить допуск...

@Puporev · 03.06.2010, 11:50

Pascal

uses crt;
const n=12;{по размерам экрана, чтобы все вошло}
var a:array[1..n] of boolean;{логический}
    x:array[1..n] of real;{вещественный}
    i,c:byte;
begin
clrscr;
randomize;
writeln('Логический вектор A:');
for i:=1 to n do
 begin
  c:=random(2);{0 или 1}
  a[i]:=(c=1);{если 1-true}
  write(a[i]:6);
 end;
writeln;
writeln;
writeln('Вещественный вектор X:');
for i:=1 to n do
 begin
  x[i]:=10*random-4;{от -4 до 6}
  write(x[i]:6:2);
 end;
writeln;
writeln;
writeln('Преобразованный вещественный вектор X:');
for i:=1 to n do
 begin
  if a[i] then x[i]:=x[i]*x[i]*x[i]/10
  else x[i]:=-1*x[i];
  write(x[i]:6:2);
 end;
readln
end.

@GooD_92 · 03.06.2010, 23:21 **[ТС]**

Спасибо большое!=)

@GooD_92 0 / 0 / 0 Регистрация: 02.06.2010 Сообщений: 8
		1
	Заданы логический вектор a={a1,a2,...,An,} и вещественный вектор x={X1,X2,...,Xn}. 02.06.2010, 21:59. Просмотров 1566. Ответов 2 Метки нет (Все метки) Заданы логический вектор a={a1,a2,...,An,} и вещественный вектор x={X1,X2,...,Xn}. Преобразовать вектор х по правилу: если ai имеет значение TRUE, то Xi возвести в куб и поделить на 10, в противном случае изменить знак Xj на противоположный. Через 2 дня экзамен, срочно нужно получить допуск... 0

@GooD_92 0 / 0 / 0 Регистрация: 02.06.2010 Сообщений: 8
	03.06.2010, 23:21 [ТС]	3
	Спасибо большое!=) 0

Опции темы

Заданы логический вектор a={a1,a2,...,An,} и вещественный вектор x={X1,X2,...,Xn}.

Решение