Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
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
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.06.2010, 21:59
Ответы с готовыми решениями:

Заполнить вещественный вектор a[1..n]
модулями комплексных чисел a(с индексом k)=sin^2(3k+1)-icos(k+2k^2) и найти максимальное значение...

Логический вектор
1. Есть матрица Х(n,n),n<=15 . Разработать программу, которая строит логический вектор L(n) по...

Построить логический вектор
Помогите пожалуйста решить задачу на практику. Я ничего не пойму, что такое вообще этот логический...

Задан вещественный вектор х30. Подсчитать в нём число положительных элементов и провести сортировку по возрастанию
Помогите решить.Иначе экзамен не поставят( Задан вещественный вектор х30. Подсчитать в нём число...

__________________
Помогаю в написании курсовых работ и дипломов здесь.
2
Модератор
63229 / 46981 / 32383
Регистрация: 18.05.2008
Сообщений: 113,873
03.06.2010, 11:50 2
Лучший ответ Сообщение было отмечено GooD_92 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
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.
1
0 / 0 / 0
Регистрация: 02.06.2010
Сообщений: 8
03.06.2010, 23:21  [ТС] 3
Спасибо большое!=)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.06.2010, 23:21

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь или здесь.

Дан вещественный вектор. Все его элементы, большие 0, умножить на 10, остальные оставить без изменения
Дан вещественный вектор. Все его элементы, больше 0 - умножить на 10, остальные оставить без...

Дана матрица A и вектор B порядка N. Поулчить вектор С, i-ый элемент которого..
Уважаемые форумчане) Помогите написать пожалуйста =) Дана матрица A и вектор B порядка N....

Дан вектро А, состоящий из N компонентов, и вектор В из М компонент.Построить новый вектор из M+N так:
Дан вектро А, состоящий из N компонентов, и вектор В из М компонент.Построить новый вектор из M+N...

Получить в результате умножения исходной матрицы А(6,7) на вектор-столбец В(7) вектор С(6), каждый элемент которого вычисляется по формуле
Помогите сделать еще одну прогу!!! - Дана действительная матрица А(6,7) и вектор-столбец В(7)....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.