0 / 0 / 0
Регистрация: 12.12.2019
Сообщений: 7
1

Как исправить проблему с задачей?

12.12.2019, 10:39. Показов 398. Ответов 0
Метки нет (Все метки)

Дана целочисленная квадратная матрица порядка n. Найти номера строк:
1) Элементы каждой из которой образуют монотонную последовательность(монотонно убывают или возрастают).
2) Элементы которых образуют симметричные последовательности (палиндромы).
набросал, но на строке 26(if matrix[i, j] > matrix[i, j+1] then begin) выдает ошибку.
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
         program массив;
 
const
   n = 3;
 
var
   matrix: array [1..n, 1..n] of integer;
   i, j, k: integer;
   seq, symmetry: boolean;
 
begin
   for i := 1 to n do 
      for j := 1 to n do begin
         write('matrix[', i, ',', j, ']= ');
         readln(matrix[i, j]);
      end;
   
   for i := 1 to n do begin
      for j := 1 to n do
         write(matrix[i, j]:3);
      writeln
   end;
   
   for i := 1 to n do begin
      seq := false;
      if matrix[i, j] > matrix[i, j+1] then begin
         
            if matrix[i, j] < matrix[i, j + 1] then
               seq := true;
               
         if not seq then
            writeln('Строка №: ', i, ' убывающая последовательность');
         end
      else begin
         for j := 1 to n - 1 do
            if matrix[i, j] > matrix[i, j + 1] then
               seq := true;
            if not seq  then
               writeln('Строка №: ', i, ' возврастающая последовательность');   
      end;   
   end;       
   
   write('№ симметричных строк:');
   symmetry := false;
   for i := 1 to n do begin
      seq := true;
      j := 1;
      while (j <= n div 2) and seq do
         if matrix[i, j] <> matrix[i, n - j + 1] then 
           seq := false
         else 
           j := j + 1;
         if seq then begin
           symmetry := true;
           write(i:3);
      end;
   end;
   if not symmetry then 
     write('Симметричных строк нет');
end.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.12.2019, 10:39
Ответы с готовыми решениями:

Как исправить проблему с задачей?
Даны целые числа а(1)...а(n) (в этой последовательности могут быть повторяющиеся члены) ...

Исправить проблему с размножающимися элементами ListBox и проблему со сортировкой
Доброго времени суток. Подскажите пожалуйста, кто знает, все нервы уже истрепал с этой сортировкой...

Как исправить проблему
Добрый день! Выписал недавно проекционные часы с Таобао. Все работает, но не устраивает один...

Как исправить данную проблему?
Как исправить проблему связанную с dArr на выделенной мною строке. По идее система должна работать,...

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

Как исправить проблему с зацикливанием
short int choose = 0; do { cout &lt;&lt; &quot;---------------------Choose...

Как исправить эту проблему ?
Как исправть ошибку Warning: mysql_num_rows() expects parameter 1 to be resource, boolean given in...

Как исправить эту проблему с авторизацией
У меня есть форма авторизации которая открывает форму1 , а как сделать так чтобы определенный...

Подскажите как исправить данную проблему на ноутбуке
Хотел установить с флешки винду, и как было сказано подготовил флешку и вбиос зашол поменял там по...


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

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

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