Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 09.02.2015
Сообщений: 20
1

Создание гибких подпрограмм для обработки матриц произвольного порядка с фиксированным базовым типом

15.02.2015, 02:32. Показов 1144. Ответов 1
Метки нет (Все метки)

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

Cоставить программу для решения задачи. Разбить задачу на подзадачи таким образом, чтобы решение каждой подзадачи описывалось подпрограммой, а основная программа состояла бы из последовательности вызовов подпрограмм. Предусмотреть в подпрограммах обработку массивов различных размеров.
Размеры матриц задать константами.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.02.2015, 02:32
Ответы с готовыми решениями:

Создание гибких подпрограмм для обработки матриц произвольного порядка с фиксированным базовым типом
Даны две прямоугольные матрицы разных размеров. Упорядочить строки каждой из них по не убыванию...

Создание гибких подпрограммы для обработки матриц произвольного порядка с фиксированным базовым типом
Даны две прямоугольные матрицы разных размеров. Упорядочить строки каждой из них по не убыванию...

Описать функцию, меняющую местами максимальные элементы двух матриц произвольного порядка
После вывода на экран "repl" программа вылетает. Объясните, пожалуйста, почему? #include...

Что называется базовым типом множества
Следующий вопрос, что называется базовым типом множества? Я предполагаю следующий ответ: это тип...

1
Почетный модератор
64068 / 47480 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
15.02.2015, 09:32 2
Лучший ответ Сообщение было отмечено ClaraWho как решение

Решение

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
uses crt;
const n=5;
      m=6;
type mtr=array[1..m,1..m] of integer;
procedure vvod(var a:mtr;k:integer;c:char);
var i,j:integer;
begin
writeln('Матрица ',c);
for i:=1 to k do
 begin
  for j:=1 to k do
   begin
    a[i,j]:=-5+random(16);
    if (j>=k-i)and(j<=k-i+2)and(j in [1..k]) then textcolor(12)
    else textcolor(15);
    write(a[i,j]:4);
   end;
  writeln;
 end;
end;
function min(a:mtr;n:integer):integer;
var i,j,mn:integer;
begin
mn:=a[1,n-1];
for i:=1 to n do
for j:=n-i to n-i+2 do
if (j in [1..n])and(a[i,j]<mn)then mn:=a[i,j];
min:=mn
end;
var a,b:mtr;
begin
clrscr;
vvod(a,n,'A');
writeln('Минимальный в заданной области=',min(a,n));
vvod(b,m,'B');
writeln('Минимальный в заданной области=',min(b,m));
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.02.2015, 09:32

Заданные множественные числа элементов с базовым типом byte: А=[1,3,5,7,9], В=[3, 5, 9]
Выбрать все элементы множественного числа А, что не принадлежат В, и вывести их значение на печать....


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

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

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