Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Simon_Brown
0 / 0 / 0
Регистрация: 18.04.2015
Сообщений: 6
#1

Произвести заданные действия с матрицей и вектором

01.06.2015, 11:31. Просмотров 248. Ответов 6
Метки нет (Все метки)

Даны матрица А[1:6,1:6] и вектор B[1:6]. Из сумм элементов строк матрицы сформировать вектор C. Если минимальный элемент вектора C кратен минимальному элементу вектора B, то из положительных элементов матрицы А сформировать вектор D и упорядочить его по возрастанию. Иначе в матрице А найти сумму на главной диагонали.

В программе использовать процедуры и функции.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.06.2015, 11:31
Ответы с готовыми решениями:

Произвести заданные действия с матрицей
Дана матрица А а) получить сумму и количество нечетных элементов. б) найти...

Выполнить заданные операции над матрицей и вектором
Пожалуйста, СРОЧНО! Разработать программу решения четырех взаимосвязанных...

Произвести заданные действия с матрицами
Помогите пожалуйста глупому человеку. Я понимаю в принципе как это сделать, но...

Произвести заданные действия с типизированным файлом
• Занесите в текстовый файл 10 целых чисел. • Перенесите эти числа в...

Произвести заданные действия с матрицами по заданному условию
Процедуры и функции(матрицы) Прошу помочь. Написала код до подсчета...

6
JuriiMW
1934 / 1038 / 1555
Регистрация: 10.12.2014
Сообщений: 3,825
01.06.2015, 13:30 #2
Тут не чего объяснять…
Всё задание „разжевано“ до однозначного понимания.
Бери и пиши!
0
Simon_Brown
0 / 0 / 0
Регистрация: 18.04.2015
Сообщений: 6
01.06.2015, 13:35  [ТС] #3
Без объяснения напиши тогда
0
JuriiMW
1934 / 1038 / 1555
Регистрация: 10.12.2014
Сообщений: 3,825
01.06.2015, 13:35 #4
Мы на брудершафт не пили!
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
К примеру вот тут „В исходный файл переписать все отрицательные числа без повторений много не поняток…
А в данном задании — понимать то не чего.
0
Simon_Brown
0 / 0 / 0
Регистрация: 18.04.2015
Сообщений: 6
01.06.2015, 13:57  [ТС] #5
То есть, ты помочь не хочешь?
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
25966 / 17410 / 6906
Регистрация: 22.10.2011
Сообщений: 30,649
Записей в блоге: 6
01.06.2015, 14:00 #6
У тебя очень странное понимание слова "помочь". Помочь можно, когда ты хоть что-то сделал, и у тебя дальше не получается. ТЫ же не хочешь пошевелить пальцем, и надо не помочь, а сделать за тебя
0
JuriiMW
1934 / 1038 / 1555
Регистрация: 10.12.2014
Сообщений: 3,825
01.06.2015, 14:13 #7
Ну вот пишу без объяснения:
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
uses
  Arrays;
 
function CreateSumm(a: array [,] of integer) : array of integer;
begin
  setlength(result,a.getlength(0));for var r:=0 to a.getlength(0)-1 do begin
  var s:=0;for var c:=0 to a.getlength(1)-1 do s+=a[r,c];result[r]:=s;end;
end;
 
function min(a : array of integer) : integer;
begin
  result:=a[0]; for var i:=1 to a.length-1 do result:=min(result,a[i]);
end;
 
function SummMatrigDiagonal(a: array [,] of integer) : integer;
begin
  result:=0;for var r:=0 to a.getlength(0)-1 do result+=a[r,r];
end;
 
function CreateArrayOfPol(a:array [,] of integer):array of integer;
begin
  var l:=0; setlength(result,l); for var r:=0 to a.getlength(0)-1 do for var c:=
  0 to a.getlength(1)-1 do if a[r,c]>0 then begin setlength(result,l+1);result[l]:=A[r,c];l+=1;end;
end;
 
begin
  Randomize;
  var A := CreateRandomIntegerMatrix(6,6,10,99); WriteLn('A:'); WriteMatrix(A, 3);
  var B := CreateRandomIntegerArray(6,10,99); WriteLn('B:'); B.Write(#32); WriteLn;
  var C := CreateSumm(A); WriteLn('C:'); C.Write(#32); WriteLn;
  WriteLn(min(C), ' mod ', min(B), '=', min(C) mod min(B));
  if min(C) mod min(B) = 0 then
    begin
      WriteLn('D:'); var D := CreateArrayOfPol(a); Sort(D);
      for var i := 0 to d.Length-2 do Write(D[i], #32); WriteLn(D[D.Length-1]);  
    end
  else
    WriteLn('сумма=', SummMatrigDiagonal(A));
end.
Результат работы:
A:
40 95 20 32 26 51
63 54 15 42 71 40
98 27 20 68 77 73
76 46 34 92 30 58
67 43 56 99 63 27
90 41 66 51 66 69
B:
11 98 11 55 53 42
C:
264 285 363 336 355 383
264 mod 11=0
D:
15 20 20 26 27 27 30 32 34 40 40 41 42 43 46 51 51 54 56 58 63 63 66 66 67 68 69 71 73 76 77 90 92 95 98 99
Но в основном вот так:
A:
57 68 31 29 46 96
27 71 99 99 18 98
17 66 12 11 91 80
24 69 64 95 98 86
23 43 49 36 88 85
36 10 91 33 76 48
B:
24 84 37 94 63 48
C:
327 412 277 436 324 294
277 mod 24=13
сумма=371
0
01.06.2015, 14:13
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.06.2015, 14:13

Произвести заданные действия над одномерным массивом
В одномерном массиве Х(15) найти Сумму неположительных, произведение...

Произвести действия над матрицей по заданному условию
Дана матрица А в столбцах где нет отрицательных элементов минимальные элементы...

Найти сумму минимальных элементов каждого столбца и произвести действия с матрицей.
Помогите, пожалуйста, решить задачу: Задан двумерный массив, нужно найти...


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

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

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