Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
1 / 1 / 0
Регистрация: 24.10.2014
Сообщений: 62
1

Вывести номер строки матрицы NxN, в которой все элементы упорядочены по убыванию

24.10.2014, 15:19. Просмотров 1495. Ответов 4
Метки нет (Все метки)


Вывести номер строки матрицы NxN, в которой все элементы упорядочены по убыванию.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.10.2014, 15:19
Ответы с готовыми решениями:

Найти и вывести номер первой строки, в которой все элементы равны нулю
1. С клавиатуры вводится матрица вещественных чисел размером N строк на M столбцов. N не...

Расставить строки таким образом, чтобы элементы в 1-м столбце были упорядочены по убыванию
Pascal (Паскаль),матрица MxM, сост. из натур. чисел., Расставить строки таким образом, чтобы...

Составить процедуру определяющую, что все элементы одномерного массива упорядочены по убыванию их значений
program rf; uses crt; type mas = array of integer; var a, b: mas; i, j, m, n, L: integer;

Расставить строки матрицы таким образом, чтобы элементы в первом столбце были упорядочены по убыванию
Дана матрица NxM, состоящая из натуральных чисел. Расставить строки таким образом, чтобы элементы в...

__________________
Помогаю в написании студенческих работ здесь.
4
CAPITAL OF ROCK!
1280 / 707 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
24.10.2014, 16:01 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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
program asd;
 
uses
  Crt;
 
type
  Line = Array of Integer;
  Mass = Array of Line;
 
var
  m : Mass;
  N, i : Byte;
 
procedure fillMass(var m : Mass; N : Byte);
var
  i, j : Byte;
begin
  SetLength(m, N);
  for i := 0 to N-1 do
  begin
    for j := 0 to N-1 do
    begin
      SetLength(m[i], N);
      m[i, j] := Random(10);
      Write('m[', i+1, '][', j+1,']=', m[i, j], #9);
    end;
    WriteLn;
  end;
end;
 
function isDownSort(l : Line) : Boolean;
var
  i : Byte;
  //Result : Boolean;
begin
  Result := True;
  for i := 1 to Length(l)-1 do
    if (l[i-1] < l[i]) then
    begin
      Result := False;
      exit;
    end;
end;
 
begin
  Randomize;
  clrscr;
  N := 3;
  fillMass(m, N);
  for i := 0 to N-1 do
    if isDownSort(m[i]) then
      WriteLn(i+1, #9);
  ReadLn;
end.
1
1 / 1 / 0
Регистрация: 24.10.2014
Сообщений: 62
28.10.2014, 14:37  [ТС] 3
Задача состоит в том чтобы вывести строку матрицы в которой элементы упорядочены
0
2508 / 1129 / 582
Регистрация: 07.06.2014
Сообщений: 3,281
28.10.2014, 15:59 4
Лучший ответ Сообщение было отмечено Goderito как решение

Решение

Цитата Сообщение от Goderito Посмотреть сообщение
Задача состоит в том чтобы вывести строку матрицы в которой элементы упорядочены
ну и что мешает вместо номера строки вывести строку матрицы?!
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
  m : Mass;
  N, i, j : Byte;
 
 
begin
  Randomize;
  clrscr;
  N := 3;
  fillMass(m, N);
  for i := 0 to N-1 do
    if isDownSort(m[i]) then begin
      for j:=0 to N-1 do
        Write(m[i][j]:2, ' ')
      WriteLn;
    end;
  ReadLn;
end.
1
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5698 / 3413 / 2430
Регистрация: 22.11.2013
Сообщений: 9,580
Записей в блоге: 1
28.10.2014, 17:37 5
Упорядочены по убыванию, это
l[i-1]>l[i] или l[i]>l[i+1]
соответственно, нарушение критерия упорядоченности по убыванию, это
not (l[i-1]>l[i]) или not (l[i]>l[i+1])
или, что то же самое
l[i-1]<=l[i] или l[i]<=l[i+1]

JokeR.BY,
а тот критерий, что у вас
l[i-1]<l[i] или l[i]<l[i+1]
называется "упорядочены по невозрастанию", что несколько отличается от задания.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.10.2014, 17:37

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Проверить, все ли столбцы матрицы A(n×m) упорядочены по не убыванию
Задача: Проверить, все ли столбцы матрицы A(n×m) упорядочены по не убыванию, если не все, сообщить...

Если все элементы главной диагонали целочисленной матрицы упорядочены по убыванию, заменить нулями все отрицательные элементы матрицы
задача. Если все элементы главной диагонали целочисленной матрицы упорядочены по убыванию,...

Найти номер первой строки, все элементы которой кратны 5
Здравствуйте, такая задача. Есть матрица (n на 2n) . Найти номер первой строки все элементы которой...

Отпечатать номер каждой строки матрицы, элементы которой имеют совпадающие значения
Помогите написать следующую программу, пожалуйста, если есть время ещё, то прокомментируйте все...


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

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

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