Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Грей
0 / 0 / 2
Регистрация: 21.04.2011
Сообщений: 72
#1

Векторы преобразовать по правилу - Pascal ABC

21.05.2011, 19:08. Просмотров 422. Ответов 2
Метки нет (Все метки)

Заданные, векторы X(N) и Y(N) преобразуйте по правилу: большее из x и y примите в качестве нового значения x, а меньшее - в качестве нового значения y.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.05.2011, 19:08
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Векторы преобразовать по правилу (Pascal ABC):

Заданные векторы преобразуйте по правилу - Pascal ABC
Решите пожалуйста! Заданные векторы X(N) и Y(N) преобразуйте по правилу: большее из xi и yi примите в качестве нового значения xi , а...

Преобразовать массив х по правилу - Pascal ABC
Дано: var x,y:array of real; k: 1..7 Преобразовать массив Х по следующему правило (воспользовавшись массивом у как...

Преобразовать последовательность по правилу - Pascal ABC
Пожалуйста, помогите решить задачу, голову сломал, суть так и не дошла до меня! Дана последовательность из n вещественных чисел....

Преобразовать вектор по правилу - Pascal ABC
Заданы логический вектор a={a1, ... , an} и вещественный вектор x={x1, ... , xn} (n<=20). Преобразовать вектор x по правилу: если ai имеет...

Преобразовать массив по правилу - Pascal ABC
Даны вещественные массивы x1, x2,…, xn и y1, y2,…, yn. Преобразовать их по правилу: большее из значений xi и yi принять в качестве нового...

Преобразовать массив по правилу - Pascal ABC
Заполнить одномерный массив из N элементов случайными целыми числами. Преобразовать его в массив, в первой части которого будут элементы...

2
Zverit
Уничтожитель печенек
277 / 205 / 21
Регистрация: 07.02.2010
Сообщений: 723
21.05.2011, 19:11 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
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
35
36
37
38
39
40
41
42
43
44
45
46
47
uses
  CRT;
 
const
  N = 10;
 
type
  ArrayN = Array [1..N] of Integer;
 
var
  X, Y: ArrayN;
  i, Number: Integer;
begin
  Clrscr;
  Randomize;
  for i := 1 to N do
  begin
    X[i] := -1000 + Random(2000);
    Write(X[i], ' ');
  end;
  Writeln('');
  for i := 1 to N do
  begin
    Y[i] := -1000 + Random(2000);
    Write(Y[i], ' ');
  end;
  Writeln('');
  for i := 1 to N do
    if Y[i] > X[i] then
    begin
      Number := X[i];
      X[i] := Y[i];
      Y[i] := Number;
    end;
  for i := 1 to N do
  begin
    X[i] := -1000 + Random(2000);
    Write(X[i], ' ');
  end;
  Writeln('');
  for i := 1 to N do
  begin
    Y[i] := -1000 + Random(2000);
    Write(Y[i], ' ');
  end;
  Readln;  
end.
0
Грей
0 / 0 / 2
Регистрация: 21.04.2011
Сообщений: 72
22.05.2011, 22:22  [ТС] #3
Спасибо)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.05.2011, 22:22
Привет! Вот еще темы с ответами:

Преобразовать матрицу по правилу - Pascal ABC
Преобразовать исходную матрицу A(n,m) так, чтобы последний элемент каждой строки был заменен разницей предыдущих элементов той же строки.

Преобразовать массив по правилу - Pascal ABC
Дано: массивы W(N,M), X(N). Преобразовать массив W следующим образом: положительные элементы итой строки массива W умножить на Xi, i...

Преобразовать массив по правилу - Pascal ABC
преобразовать массив x по следующему правилу(воспользовавшись вспомогательным массивом): Все отрицательные элементы массива x перенести в...

Преобразовать последовательности по правилу - Pascal ABC
Преобразовать последовательности А1 А2....Аn по правилу: если А1>0, то увеличить его в 10 раз, иначе - заменить на 0. P.S. Никак не...


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

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

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