Question

Выяснить, упорядочены ли цифры в записи числа по убыванию. Написать программу в PascalABC.NET и нарисовать блок-схему.

Answer 1

Vara,b,i,k,max:integer;beginreadln(a);max:=0;k:=0;while a<>1 do begin
if (a mod 10) > max then beginmax:=(a mod 10);endelse k+=1;
a:=a div 10;if a<10 then begin  if (a mod 10) > max then beginmax:=(a mod 10);endelse k+=1;a:=1;
end;end;if k=0 then writeln('Убывание') else writeln('Неубывание');end.

Answer 2

Var
  n: integer;
  a, b: byte;

begin
  read(n);
  b := n mod 10;
  n := n div 10;
  a := n mod 10;
  n := n div 10;
  while (a > b) and (n <> 0) do
  begin
    b := a;
    a := n mod 10;
    n := n div 10;
  end;
  if a > b then
    writeln('Цифры числа расположены по убыванию')
  else
    writeln('Цифры числа расположены не по убыванию')
end.

Answer 3

Для проверки, упорядочены ли цифры в записи числа по убыванию, можно использовать следующий алгоритм:

1. Считать число с клавиатуры. 2. Преобразовать число в строку. 3. Преобразовать строку в массив символов. 4. Отсортировать массив символов в порядке убывания. 5. Преобразовать отсортированный массив символов обратно в строку. 6. Преобразовать строку обратно в число. 7. Сравнить полученное число с исходным числом. Если они равны, то цифры в записи числа упорядочены по убыванию, иначе - нет.

Вот пример программы на PascalABC.NET, реализующей этот алгоритм:

program CheckDescendingOrder;

var
  number, sortedNumber: Integer;
  numberString, sortedNumberString: String;
  charArray: array of Char;
  i: Integer;

begin
  // Ввод числа с клавиатуры
  Write('Введите число: ');
  Readln(number);

// Преобразование числа в строку
  numberString := IntToStr(number);

// Преобразование строки в массив символов
  SetLength(charArray, Length(numberString));
  for i := 1 to Length(numberString) do
    charArray[i-1] := numberString[i];

// Сортировка массива символов в порядке убывания
  for i := 0 to Length(charArray) - 2 do
    for j := i + 1 to Length(charArray) - 1 do
      if charArray[i] < charArray[j] then
      begin
        temp := charArray[i];
        charArray[i] := charArray[j];
        charArray[j] := temp;
      end;

// Преобразование отсортированного массива символов обратно в строку
  sortedNumberString := '';
  for i := 0 to Length(charArray) - 1 do
    sortedNumberString := sortedNumberString + charArray[i];

// Преобразование строки обратно в число
  sortedNumber := StrToInt(sortedNumberString);

// Сравнение полученного числа с исходным числом
  if sortedNumber = number then
    Writeln('Цифры в записи числа упорядочены по убыванию.')
  else
    Writeln('Цифры в записи числа не упорядочены по убыванию.');
end.

Вот блок-схема алгоритма:

  +-------------------+
  | Ввод числа        |
  +-------------------+
           |
           v
  +-------------------+
  | Преобразование    |
  | числа в строку    |
  +-------------------+
           |
           v
  +-------------------+
  | Преобразование    |
  | строки в массив   |
  | символов          |
  +-------------------+
           |
           v
  +-------------------+
  | Сортировка        |
  | массива символов  |
  | в порядке         |
  | убывания          |
  +-------------------+
           |
           v
  +-------------------+
  | Преобразование    |
  | отсортированного  |
  | массива символов  |
  | в строку          |
  +-------------------+
           |
           v
  +-------------------+
  | Преобразование    |
  | строки в число    |
  +-------------------+
           |
           v
  +-------------------+
  | Сравнение чисел   |
  +-------------------+
           |
           v
  +-------------------+
  | Вывод результата  |
  +-------------------+

Надеюсь, это поможет вам решить задачу! Если у вас возникнут дополнительные вопросы, не стесняйтесь задавать.