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

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
freejack
0 / 0 / 0
Регистрация: 01.03.2015
Сообщений: 13
#1

Рандомно сгенерировать две [3,12]-целочисленные матрицы 7х7 матрицы - Pascal ABC

23.10.2017, 14:15. Просмотров 121. Ответов 3

Cлучайным образом сгенерировать две [3,12]-целочисленные матрицы 7х7 матрицы и поменять местами строки с наибольшей и наименьшей суммой элементов. После, вывести на экран обе матрицы.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.10.2017, 14:15
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Рандомно сгенерировать две [3,12]-целочисленные матрицы 7х7 матрицы (Pascal ABC):

Матрицы. Переписать элементы матрицы 7х7 в вектор по строкам - Pascal ABC
1)Переписать элементы матрицы 7х7 в вектор по строкам. 2)Преобразовать вектор из 9 элементов в матрицу 3х3.

В текстовом файле хранятся квадратные целочисленные матрицы порядка n. Преобразовать файл, удалив из каждой матрицы элементы побочной диагонали. - Pascal
Мне задали задание, но у меня после сессии голова не работает Если кому не трудно решите , очень прошу, за ранние спасибо!!! 1. В...

Переписать элементы матрицы 7х7 в вектор по строкам - Pascal ABC
1)дана строка.Преобразовать ее, удалив символы % и удвоив все остальные 2)дана строка.Удалить из нее знаки препинания, введенные...

Целочисленные матрицы - Pascal
Форумчане, помогите пожалуйста! 1. Определить число элементов заданной целочисленной матрицы A(N,M), равных ее максимальному элементу. ...

Сложить целочисленные матрицы - Pascal
Всем добрый день, выдали 2 задачи, у меня всё никак не доходит как сделать их, очень буду благодарен если окажите помощь. 1. Сложить...

Матрицы. Ввести две матрицы и вычеслить их произведение, использовать procedure - Pascal ABC
В предпоследней строке ошибка. как исправить? uses crt; const n=3; type matrica=array of real; procedure vvodA; var ...

3
Puporev
Модератор
54037 / 41670 / 14750
Регистрация: 18.05.2008
Сообщений: 97,986
23.10.2017, 16:54 #2
так 3Х12 или 7Х7?
1
freejack
0 / 0 / 0
Регистрация: 01.03.2015
Сообщений: 13
23.10.2017, 19:07  [ТС] #3
Puporev, в матрице элементы принимают значения от 3 до 12, а размер 7x7
0
Puporev
Модератор
54037 / 41670 / 14750
Регистрация: 18.05.2008
Сообщений: 97,986
23.10.2017, 19:27 #4
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
const n=7;
      a=3;
      b=12;
type mtr=array[1..n,1..n] of byte;
procedure matrix(var m:mtr);
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to n do
m[i,j]:=a+random(b-a+1);
end;
procedure print(m:mtr;s:char);
var i,j:byte;
begin
writeln('Матрица ',s);
for i:=1 to n do
 begin
  for j:=1 to n do
  write(m[i,j]:3);
  writeln;
 end;
end;
procedure obmen(var m:mtr);
var i,j,mn,mx,imn,imx,t:byte;
begin
mn:=m[1,1];
mx:=m[1,1];
imn:=1;
imx:=1;
for i:=1 to n do
for j:=1 to n do
 begin
  if m[i,j]<mn then
   begin
    mn:=m[i,j];
    imn:=i;
   end;
  if m[i,j]>mx then
   begin
    mx:=m[i,j];
    imx:=i;
   end;
 end;
for j:=1 to n do
 begin
  t:=m[imn,j];
  m[imn,j]:=m[imx,j];
  m[imx,j]:=t;
 end;
end;
 
var x,y:mtr;
begin
matrix(x);
matrix(y);
writeln('Исходные матрицы');
print(x,'X');
print(y,'Y');
obmen(x);
obmen(y);
writeln('Матрицы после обмена строк с минимальным и максимальным');
print(x,'X');
print(y,'Y');
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.10.2017, 19:27
Привет! Вот еще темы с ответами:

Переставить местами две любые строки матрицы; два любых столбца матрицы. - Pascal
Дан Двумерный массив. Составить программу, которая: а) переставляет две любые строки массива; б) переставляет два любых столбца массива.

Построчно ввести матрицу 7х7 целых чисел. Заменить главную диагональ матрицы вектором наименьших значений в строках - Pascal ABC
Помогите решить задание: Построчно ввести матрицу 7х7 целых чисел. Заменить главную диагональ матрицы вектором наименьших значений в...

Введите с клавиатуры целочисленные элементы матрицы 3*3 и вычислите сумму элементов каждого столбца - Pascal ABC
60. Введите с клавиатуры целочисленные элементы матрицы 3*3 и вычислите сумму элементов каждого столбца

Две задачи на матрицы. - Pascal
Если разность максимального и минимального элемента матрицы А превышает заданную величину Р, заменить в матрице А все отрицательные...


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

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

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