Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 17.01.2021
Сообщений: 11
1

Вектор

20.01.2021, 11:01. Просмотров 690. Ответов 4
Метки нет (Все метки)

Очень срочно надо
Дан целочисленный вектор размерности N. Значения элементов вектора из
диапазона [-94..89]. Если сумма цифр максимального элемента больше суммы
цифр минимального элемента, то найти сумму модулей отрицательных
элементов вектора. В противном случае подсчитать количество элементов,
расположенных между первым минимальным и последним максимальными
элементами.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.01.2021, 11:01
Ответы с готовыми решениями:

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

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

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

Процедуры и функции: получить вектор А * b (A - матрица, b - вектор)
Есть квадратная матрица A порядка n и вектор b с n элементами. Получить вектор А * b. Заранее...

4
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5663 / 3384 / 2423
Регистрация: 22.11.2013
Сообщений: 9,507
Записей в блоге: 1
20.01.2021, 13:34 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
function SumDigits(n: Longint): Integer;
var r: Integer;
begin
  r:=0; n:=Abs(n); while n<>0 do begin Inc(r,n mod 10); n:=n div 10; end;
  SumDigits:=r;
end;
 
const n=10; va=-94; vb=89;
var
  v: array [0..n-1] of Integer;
  i, mn, mx: Integer;
  s: Longint;
begin
  Randomize;
  for i:=0 to n-1 do begin
    v[i]:=va+Random(vb-va+1); Write(' ',v[i]);
    if v[mn]> v[i] then mn:=i;
    if v[mx]<=v[i] then mx:=i;
    if v[i]<0 then Dec(s,v[i]);
  end; WriteLn;
  WriteLn('Первый    минимальный  v[',mn+1:3,' ] = ',v[mn]);
  WriteLn('Последний максимальный v[',mx+1:3,' ] = ',v[mx]);
  if SumDigits(v[mx])>SumDigits(v[mn]) then
    WriteLn('Сумма модулей отрицательных элементов: ',s);
  else
    Write('Элементов между первым минимальным и последним максимальным: ',Abs(mx-mn)-1);
end.
0
2050 / 935 / 373
Регистрация: 19.03.2019
Сообщений: 3,037
20.01.2021, 13:56 3
bormant, процедура SumDigits написана универсальная, в данном случае хватило бы банального

Pascal
1
2
3
4
function SumDigits(n: Integer): Integer;
begin
  SumDigits:= (Abs(n) div 10) + (Abs(n) mod 10);
end;
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5663 / 3384 / 2423
Регистрация: 22.11.2013
Сообщений: 9,507
Записей в блоге: 1
20.01.2021, 15:47 4
Цитата Сообщение от mr-Crocodile Посмотреть сообщение
в данном случае
хватило бы и
Pascal
23
  if Abs(v[mx] div 10+v[mx] mod 10)>Abs(v[mn] div 10+v[mn] mod 10) then
Тем не менее, делать для частного случая функцию, когда для общего не сильно дороже -- явно не стоит.
1
0 / 0 / 0
Регистрация: 17.01.2021
Сообщений: 11
20.01.2021, 21:59  [ТС] 5
Спасибо большое
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.01.2021, 21:59

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

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

Задан вектор C={Cn} Найти вектор y={Cn/|C|}
Напишите в Паскале плиз! Заранее спасибо! Задан вектор C={Cn} Найти вектор y={Cn/|C|}

Тип обьект "вектор" содержит поля: "вектор, егоразмер и идентификатор в символьном виде", методы:"введение вектора, выведение вектора,вычесление.
Тип обьект &quot;вектор&quot; содержит поля: &quot;вектор, его размер и идентификатор в символьном виде&quot;, ...

вектор
помогите плиз:) найти минимальный положительный элемент в векторе размерностью 10.

вектор
1. дан вектор X. Поменять местами максимальный и минимальный елемент плиз надо срочно!!!

Вектор
Выяснить, имеются ли в заданном векторе A(N) два подряд идущих нулевых элемента


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

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

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