Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
katy6587
0 / 0 / 0
Регистрация: 12.11.2017
Сообщений: 21
#1

По данной матрице построить последовательность по заданному правилу - Pascal ABC

24.11.2017, 19:22. Просмотров 93. Ответов 1
Метки нет (Все метки)

Дано натуральное число n>=2, действительная квадратная матрица порядка n. Построить последовательность b[1],..., b[n] из нулей и единиц, в которой i элемент равен 1 тогда и только тогда, когда элементы i строки образуют возрастающую или убывающую последовательность
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.11.2017, 19:22
Я подобрал для вас темы с готовыми решениями и ответами на вопрос По данной матрице построить последовательность по заданному правилу (Pascal ABC):

Получить из массива последовательность по заданному правилу
Дан массив из 2*N. Получить новую последовательность...

Построить последовательность по правилу
помогите составить программу на паскале

Из массив А[7,7] построить массив B(7) по заданному правилу
Дан массив А. Построить массив B(7) по следующему правилу: B(I) присвоить 1,...

Сформировать двумерный массив по заданному правилу правилу
Добрый день, помогите пожалуйста. Дана целочисленная матрица n*m. Написать...

Построить кривые по заданному параметрическому представлению или заданному в полярных координатах:
Построить кривые по заданному параметрическому представлению или заданному в...

Заполнить массив по заданному правилу
1. Заполнить массив y по правилу для всех с шагом 1: у=х+ сos x

1
Cyborg Drone
Модератор
5251 / 3118 / 2432
Регистрация: 17.08.2012
Сообщений: 10,072
26.11.2017, 12:40 #2
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

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
const m = 10;
var a: array[1..m, 1..m] of integer;
    i, j, n, p: integer;
begin
  repeat
    write('Размер матрицы [2..', m, '];  n = ');
    readln(n)
  until (2 <= n) and (n <= m);
  writeln('Введите строки матрицы, разделяя элементы пробелами:');
  for i := 1 to n do
    begin
      write(i, ' строка: ');
      for j := 1 to n do read(a[i, j]);
      readln
    end;
  writeln('Последовательность:');
  for i := 1 to n do
    begin
      p := 0;
      for j := 2 to n do
        if a[i, j] > a[i, j - 1]
          then inc(p)
          else if a[i, j] < a[i, j - 1]
            then dec(p);
      if abs(p) = n - 1
        then write(' 1')
        else write(' 0')
    end
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.11.2017, 12:40
Привет! Вот еще темы с решениями:

Сформировать массив b по заданному правилу
2.Дан массив a(n) с действительными элементами . Сформировать массив b по...

Получить массив по заданному правилу
как это записать в паскале,и составить блок схему Дано число n и массив...

Вычислить сумму по заданному правилу
S=1*2+2*3*4+3*4*5*6+...+n(n+1)*...*2n нужно создать программу на языке Паскаль....

Заполнить массив по заданному правилу
имеется код и при запуске на 8-ой строчке выдаёт ошибку, что индекс находился...


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

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

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