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

Узнай цену своей работы

Формулировка задачи:

По заданной последовательности целых чисел А(1), A(2), ..., А(n) построить последовательность В такую, что B(i) – это количество элементов, превосходящих A(i), в начальном отрезке последова- тельности А длиной i – 1.

Решение задачи: «По заданной последовательности целых чисел построить новую»

textual
Листинг программы
uses crt;
const
n=15;
type mas=array[1..n] of integer;
var A,B:mas;
i,j, k:integer;
begin
  randomize;
  writeln('Исходнная последовательность A:');
  for i:=1 to n do
   begin
     A[i]:=random(30);
     write(A[i]:4);
   end;
  writeln;
  writeln;
  writeln('Последовательность B:');
  B[1]:=0;
  write (B[1]:4);
  for i:=2 to n do
   begin
     B[i]:=0;
     for j:=1 to i-1 do
       if A[j]>A[i] then B[i]:=B[i]+1;
     write(B[i]:4);
   end;
end.

Объяснение кода листинга программы

  1. В начале кода подключается библиотека crt, которая используется для работы с файлами и вводом-выводом.
  2. Затем определяются константы и типы данных: n - количество элементов в массиве mas, mas - массив целых чисел, i, j, k - переменные типа integer, используемые для индексации массивов и счет чисел.
  3. Далее объявляются переменные A и B типа mas, которые будут использоваться для хранения исходной и новой последовательностей соответственно.
  4. Затем в блоке begin выполняется инициализация случайного числа генератором случайных чисел crt.
  5. Выводится исходная последовательность A с помощью цикла for, в котором каждый элемент массива A инициализируется случайным числом от 0 до 29.
  6. После этого выводится символ новой строки.
  7. Затем выводится новая последовательность B с помощью цикла for, в котором каждый элемент массива B инициализируется нулем.
  8. Во внутреннем цикле for происходит сравнение текущего элемента массива A с предыдущим. Если текущий элемент больше предыдущего, то значение элемента B увеличивается на единицу.
  9. После каждого сравнения выводится значение элемента B с помощью функции write.
  10. В конце программы выводится символ новой строки.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 4.25 из 5
Похожие ответы