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

  1. Даны две действительные квадратные матрицы порядка m. Построить последовательность из нулей и единиц b1,..., bn, где bi =1, если элементы i-ой строки матрицы образуют возрастающую последовательность и bi =0 в противном случае.


textual

Код к задаче: «Построить последовательность из нулей и единиц - Turbo Pascal»

uses crt;
const
  m = 4;
 
type
  Matrix = array[1..m, 1..m] of integer;
  Mar = array[1..m] of integer;
 
var
  a, c: matrix;
  b: mar;
  i, j, n: integer;
 
 
procedure RanMat(var matr: matrix);
var
  i, j: integer;
begin
    for i := 1 to m do
    begin
      for j := 1 to m do
        matr[i, j] := random(10)+5*j;
    end;
end;
 
procedure Prover(matr: matrix);
var pr:boolean;
begin
for i:=1 to m do
begin
b[i]:=0;
pr:=true;
for j:=1 to m-1 do
if (matr[i,j]>=matr[i,j+1]) then pr:=false;
if pr=true then
b[i]:=1
else b[i]:=0;
write(b[i],' ');
end;
writeln;
end;
 
 
procedure Print(var matr: Matrix);
var
  i, j : integer;
begin
  for i := 1 to m do
  begin
    for j := 1 to m do
      write(matr[i, j]:4);
    writeln;
  end;
end;
 
 
begin
  clrscr;
  randomize;
  writeln('First: ');
  RanMat(a);
  Print(a);
  Prover(a);
  writeln('Second: ');
  RanMat(c);
  Print(c);
  Prover(c);
  readkey;
end.

СДЕЛАЙТЕ РЕПОСТ

6   голосов, оценка 4.000 из 5



Похожие ответы
  1. Дана последоВательность чисел. найти В ней наименьшее число. Входные данные. задано сначала число n (количестВо чисел В последоВательности), а затем n чисел. Все числа - из диапазона Integer. n?100 Выходные данные. ВыВедите наименьшее число. пример Входного файла 7 4 2 5 -1 4 6 2 пример Выходного файла -1

  1. Имеется литературный текст, например, на английском. Нужно вводить в программу слова текста через равные промежутки времени, (например, 0,1 секунды). Как задать генератор времени таких промежутков? (важно, чтобы именно в единицах времени). Можно задать повторяющийся цикл конечного вычисления: скажем, сложения или умножения натуральных чисел от 1 до N, где N – константа ( = 10, 100, 200,…, 1000). Цикл занимает, скажем, время t=0,01 сек. Задав 10 циклов, получим время 0,1 секунды. Но непонятно, как определить время цикла.

  1. Функция: y=cos(x) Диапазон:2;4 шаг:0,2

  1. помогите пожалуйста сделать график функции у=(корень х)+х2( х в квадрате)

  1. Задайте n и m 3х4 допустим, получим массив заполненный 1234567, как сделать, чтобы заполнялся 1234321

  1. Дана последовательность символов. Удалить словосочетание «ма». Покажите пожалуйста мне хотя бы саму суть, не надо в ответ прикреплять другие темы, я их посмотрел, но в голову все равно ничего не приходит. Спасибо за ранее.

  1. Дана целочисленная последовательность. Определить количество вхождений каждого числа в последовательность.

  1. Заколдованный принц нашел 4 волшебных палочки, длины которых a,b,c и d. Чтобы расколдоваться, ему нужно из них построить «волшебный треугольник» с наибольшим периметром, а затем встать внутрь этого треугольника. Напишите программу, которая определяет, из каких конкретно волшебных палочек принц должен построить данный треугольник. Формат входных данных: С клавиатуры вводится четыре положительных числа через пробел- a,b,c и d, которые обозначают длины палочек. Формат выходных данных: На экран вывести длины палочек, из которых можно построить треугольник с максимальным периметром в алфавитном порядке перечисления их длин через пробел. Если ни одного треугольника построить нельзя, программа должна вывести слово «NO».

  1. Дана последовательность n целых чисел. Найдите самую длинную возрастающую подпоследовательность.

  1. Напишите программу, которая заменяет во всей строке одну последовательность символов на другую. Я пыталась сделать что-то такое,