Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal последовательность слов Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами - не менее одного пробела, за последним словом - точка. Напечатать... https://www.cyberforum.ru/ pascal/ thread184480.html Поиск в строке Pascal
Идея такова: мне нужно найти в строке НЕСКОЛЬКО СИМВОЛОВ и записать их в отдельную строку (сами символы или позиции неважно, засол в том чтобы определить количество переменных в строке) я делаю то...
Pascal Определить, делителем каких из чисел а,b, с является число k https://www.cyberforum.ru/ pascal/ thread184467.html
Определить, делителем каких из чисел а,b, с является число k.
Pascal Найти наименьшую опору в заданном орграфе, используя алгоритм с возвратом для нахождения независимых множеств https://www.cyberforum.ru/ pascal/ thread184455.html
Найти наименьшую опору в заданном орграфе, используя алгоритм с возвратом для нахождения независимых множеств.
Найти произведение двух первых цифр из дробной части положительного вещественного числа Pascal
Найти произведение двух первых цифр из дробной части положительного вещественного числа.
Pascal вычислить значение функции вычислить значение функции y=f(x), заданной на отрезке с шагом h. осуществить вывод значений аргумента и функции. сопровождая вывод наименованием переменных. https://www.cyberforum.ru/ pascal/ thread184430.html
Pascal Сгенерировать случайные числа сгенерировать случайные числа 1) целое в интервале от 0 до 67. 2) целое двухзначное. 3) вещественное с двумя целыми знаками. 4) целое из ряда 60, 70, 80, 90.........., 150. заранее... https://www.cyberforum.ru/ pascal/ thread184428.html Pascal Итерационные циклы
Разработать алгоритм и программу, определяющую сумму ряда с заданной погрешностью для произвольно заданного аргумента
Pascal принадлежит ли точка выяснить принадлежит ли точка с координатами (x,y) замкнутой области,заданной уравнениями. y=x*x-5, y<=x. program zr; var x,y:real; begin writeln ('Введите x,y'); readln (x,y); if... https://www.cyberforum.ru/ pascal/ thread184422.html Pascal двумерный вывести как одномерный Подскажите, пожалуйста, как в паскале двумерный массив вывести в виде одномерного и обратно https://www.cyberforum.ru/ pascal/ thread184420.html
Записать в файл последовательного доступа n действительных чисел Pascal
помогите пожалуйста! Записать в файл последовательного доступа n действительных чисел. Найти разность между первой и последней компонентой файла.
Pascal Что делать, если программа не запускается? https://www.cyberforum.ru/ pascal/ thread184401.html
ПОМОГИТЕ, ПЛИЗ!!!! Я набрала программу, но не могу ее запустить (ctrl+F9 не отвечает), экран на какую то долю секунды мигнет и все...=(( Может я что то не то нажала? тогда как это исправить?
Почетный модератор
64065 / 47477 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
01.11.2010, 07:39 0

Разбить исходную матрицу на найденное количество квадратных матриц - Pascal - Ответ 1074595

01.11.2010, 07:39. Показов 1141. Ответов 3
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Unloose, Тестировал на маленьких матрицах, если правильно понял вопрос, то нормально работает.
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
uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    m,n,d,i,j,k,p,q:byte;
    km,mx,mn:integer;
begin
clrscr;
randomize;
repeat
write('Количество строк от 2 до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов от 2 до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to m do
    begin
     a[i,j]:=random(8)+1;
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
if n>m then d:=n else d:=m;
k:=2;km:=0;
while k<=d do
 begin
  i:=1;
  while i<=n-k+1 do
   begin
    j:=1;
    while j<=m-k+1 do
     begin
      inc(km);
      writeln('Матрица ',km);
      mx:=a[i,j];mn:=a[i,j];
      for p:=i to i+k-1 do
       begin
        for q:=j to j+k-1 do
         begin
          write(a[p,q]:4);
          if a[p,q]>mx then mx:=a[p,q]
          else if a[p,q]<mn then mn:=a[p,q];
         end;
        writeln;
       end;
      writeln('Максимальный=',mx);
      writeln('Минимальный =',mn);
      write('Press Enter...');
      readln;
      inc(j);
     end;
    inc(i);
   end;
  inc(k);
 end;
end.


Вернуться к обсуждению:
Разбить исходную матрицу на найденное количество квадратных матриц Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.11.2010, 07:39
Готовые ответы и решения:

Заполнить исходную матрицу элементами входных матриц
Заданы две матрицы целых чисел размерами (M, N) и (M, N). Заполнить исходную матрицу элементами...

Найти матрицу преобразования в пространстве квадратных матриц
Здравствуйте! В пространстве квадратных матриц 2*2 с нулевым элементом b21 заданы базисы e и h...

Написать процедуру для суммирования матриц. Сложить исходную матрицу и транспонированную
Написать процедуру для суммирования матриц. С ее помощью сложить исходную матрицу и...

Для квадратных матриц A,B и С одинаковой размерности найти матрицу D
Для квадратных матриц A,B и С одинаковой размерности найти матрицу D.Организовать проверку работы...

3
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.11.2010, 07:39

Для квадратных матриц А, В и С одинаковой размерности найти матрицу D
для квадратных матриц А,В и С одинаковой размерности найти матрицу D. Организовать проверку работы...

Для квадратных матриц a, b, c одинаковой размерности найти матрицу d
для квадратных матриц a,b,c одинаковой размерности. найти матрицу d. d=a(c^T-B)+2A-B

Для квадратных матриц А, В, С одинаковой размерности найти матрицу D
Ребят, помогите, пожалуйста!!! Для квадратных матриц А, В, С одинаковой размерности найти...

Для квадратных матриц a,b,c ,одинаковой размерности,найти матрицу D
Для квадратных матриц a,b,c ,одинаковой размерности,найти матрицу D. (Важное Условие задача...

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