Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
denstr
3 / 3 / 1
Регистрация: 21.11.2011
Сообщений: 143
#1

По заданной квадратной матрице построить вектор - Turbo Pascal

16.02.2012, 14:05. Просмотров 629. Ответов 1
Метки нет (Все метки)

По заданной квадратной матрице размером 10х10 построить вектор длиной 19, элементы которого - максимумы элементов, диагоналей, параллельных главной диагонали.
1
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.02.2012, 14:05
Я подобрал для вас темы с готовыми решениями и ответами на вопрос По заданной квадратной матрице построить вектор (Turbo Pascal):

По заданной квадратной матрице построить вектор
По заданной квадратной матрице размером 10x10 построить вектор длиной 19,...

По заданной матрице сформировать вектор
По заданной матрице A размерностью n*m сформировать вектор z размерностью m,...

В заданной действительной квадратной матрице порядка n найти наибольший по модулю элемент
1.В данной действительной квадратной матрице порядка n найти наибольший по...

Определить наименьший элемент каждой четной строки в заданной квадратной матрице
1) Определить наименьший элемент каждой четной строки в заданной квадратной...

найти вектор с максимальной нормой в квадратной матрице
В квадратной матрице А(n,n) надо найти строки, представляющие вектор с...

Нужно построить вектор B по матрице A и упорядочить его по возрастанию числа отрицательных слагаемых в сумме (упоридочение оформить подпрограммой)
Дана матрица А размерности NxN. Построить вектор B, i-ый компонент которого...

1
Puporev
Модератор
54136 / 41769 / 28877
Регистрация: 18.05.2008
Сообщений: 98,307
16.02.2012, 19:41 #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
uses crt;
const n=10;
var a:array[1..n,1..n]of integer;
    b:array[1..2*n-1] of integer;
    i,j,max,l:integer;
begin
clrscr;
randomize;
Writeln('Матрица:');
for i:=1 to n do
 begin
  for j:=1 to n  do
   begin
    a[i,j]:=random(50);
    write(a[i,j]:4);
   end;
  writeln;
 end;
for l:=1 to 2*n-1 do{количество диагоналей}
 begin
  if l<=n then {идем с низу до главной включитнльно}
   begin
    max:=a[n-l+1,1];
    for i:=n-l+1 to n do
    if a[i,i-n+l]>max then max:=a[i,i-n+l];
    b[l]:=max;
   end
  else if l>n then {идем вправо до конца}
   begin
    max:=a[1,l-n+1];
    for i:=1 to 2*n-l do
    if a[i,i+l-n]>max then max:=a[i,i+l-n];
    b[l]:=max;
   end
  end;
writeln('Максимальные элеметы диагоналей, параллельных главной:');;
for i:=1 to 2*n-1 do
write(b[i]:4);
readln
end.
2
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.02.2012, 19:41
Привет! Вот еще темы с решениями:

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

В квадратной матрице размером M*M...
Доброго времени суток Уважаемые Программисты! помогите пожалуйста решить...

Приведение к квадратной матрице
Здравствуйте! Написал программу, почти сделал, но не получается к...

Сортировка в квадратной матрице
Не получается решить, подскажите: Задана квадратная матрица А(M*M) , где M -...


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

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

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