Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
retrq
0 / 0 / 0
Регистрация: 09.02.2012
Сообщений: 6
#1

Даны два вектора А и B длинной n.Если оны различны то вектору С присвоить их сумму , иначе в вектор С переписать элементы массива A.

17.02.2012, 14:07. Просмотров 894. Ответов 6
Метки нет (Все метки)

Даны два вектора А и B длинной n.Если оны различны то вектору С присвоить их сумму , иначе в вектор С переписать элементы массива A/
 Комментарий модератора 
Название темы изменено модератором. Прежнее название нарушало правила форума.
retrq, уже третье нарушение. Вообще я тебя уже на прошлом сообщении мог бы заблокировать для на 3, по крайней мере. Прочитай правила форума. Нельзя создавать темы или посты с бессодержательным или оскорбительным для кого-то содержанием.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.02.2012, 14:07
Ответы с готовыми решениями:

Если все элементы вектора положительные,заменить их квадратами, иначе умножить на заданное число
Если все элементы вектора положительные,заменить их квадратами,иначе все...

Если векторы a и b различны, то вектору c присвоить их сумму, иначе в вектор c переписать элементы массива a
Дана константа n и два одномерных массива (вектора) a и b длины n, состоящие из...

Переменной A присвоить значение 1, если длина вектора X больше длины вектора Y; иначе присвоить 0
Заданы два вектора X(x1,x2,x3) Y(y1,y2,y3).Переменной A присвоить значение 1 ,...

Если сумма элементов массива > 0, переписать в массив В положительные элементы, иначе – отрицательные
Ввести массив А(n). Найти сумму элементов массива. Если она >0, переписать в...

Если соблюдено условие, присвоить переменной X сумму всех положительных чётных элементов массива, иначе - ноль
Если у массива А(30) есть элемент, равный В, то переменной Х присвоить...

6
taras atavin
4204 / 1764 / 211
Регистрация: 24.11.2009
Сообщений: 27,565
17.02.2012, 14:20 #2
Декларацию в студию.
1
retrq
0 / 0 / 0
Регистрация: 09.02.2012
Сообщений: 6
17.02.2012, 14:20  [ТС] #3
Даны два вектора А и B длинной n.Если оны различны то вектору С присвоить их сумму , иначе в вектор С переписать элементы массива A/
 Комментарий модератора 
Работы за оплату можно заказывать здесь: Фриланс: заказ программ, скриптов.
А в этом разделе обсуждение вопросов оплаты запрещено.
0
Игорь[Igor]
716 / 468 / 128
Регистрация: 24.12.2008
Сообщений: 3,910
17.02.2012, 14:26 #4
Ложи +7-962-039-42-58
0
retrq
0 / 0 / 0
Регистрация: 09.02.2012
Сообщений: 6
17.02.2012, 14:29  [ТС] #5
реши положу.
0
Mawrat
12824 / 5732 / 1700
Регистрация: 19.09.2009
Сообщений: 8,807
17.02.2012, 14:43 #6
Решение задачи:
Delphi
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
48
49
50
51
52
53
54
55
56
57
58
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Windows;
 
const
  M = 5;
var
  A, B, C : array[1..M] of Integer;
  i : Integer;
  F : Boolean;
begin
  //Переключение окна консоли на кодовую страницу CP1251 (Win-1251).
  //Если после переключения русские буквы показываются неверно,
  //следует открыть системное меню консольного окна - щелчком мыши в левом
  //верхнем углу окна консоли и выбрать:
  //Свойства - закладка "Шрифт" - выбрать шрифт: "Lucida Console".
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
 
  Writeln('Задайте элементы вектора А:');
  for i := 1 to M do begin
    Write('A[', i, '] = ');
    Readln(A[i]);
  end;
  Writeln('Задайте элементы вектора B:');
  for i := 1 to M do begin
    Write('B[', i, '] = ');
    Readln(B[i]);
  end;
  
  //Решение.
  F := True;
  for i := 1 to M do begin
    if A[i] <> B[i] then begin
      F := False;
      Break;
    end;
  end;
  if F then begin
    Writeln('Векторы А и B совпадают.');
    for i := 1 to M do C[i] := A[i];
  end else begin
    Writeln('Векторы А и B не совпадают.');
    for i := 1 to M do C[i] := A[i] + B[i];
  end;
  Writeln('Вектор С:');
  for i := 1 to M do begin
    if i > 1 then Write(', ');
    Write(C[i]);
  end;
  Writeln;
 
  Readln;
end.
0
retrq
0 / 0 / 0
Регистрация: 09.02.2012
Сообщений: 6
18.02.2012, 14:11  [ТС] #7
Mawrat, спасибо большое)
0
18.02.2012, 14:11
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.02.2012, 14:11

Даны две переменные A и B. Если их значения различны, то присвоить каждой переменной наименьшее из этих значений
Даны две переменные целого типа A и B. Если их значения различны, то присвоить...

Если цифры двузначного числа различны - то проверить их на чётность, иначе найти удвоенную сумму цифр
Дано двузначное число. Выяснить,различны ли его цифры. Если да,то проверить их...

Если значения переменных не равны то присвоить каждой сумму их значений, иначе присвоить переменным нулевые значения
uses crt; var x: integer; f1,f2: text; begin clrscr; ...


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

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

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