Установить, является ли последновательность при просмотре слева направо упорядоченной

@Adreno200 · Регистрация: 17.01.2014

Студворк — интернет-сервис помощи студентам

Здравствуйте, форумчане.Есть одно условие задачи и есть решение. Вот условие:дано натуральное число, установить является ли последновательность при просмотре слева направо упорядоч, по возрастанию.Надо переделать(описал внизу).
Вот решение:

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
uses
  crt;
var
  a,i,j: integer;
  p: boolean;
begin
  clrscr;
  p:=false;
  write('Wwedite shislo: ');
  readln(a);
  j:=a mod 10;
  a:=a div 10;
  while a>0 do
  begin
    i:=a mod 10;
    a:=a div 10;
    if i>=j then
      p:=true
    else
    begin
      p:=false;
      break;
    end;
    j:=i;
  end;
  if p then
    writeln('neuporyadocheno')
  else
    writeln('uporyadocheno');
  readkey;
end.

Помогите переделать её:убрать цикл брейк(если можно, то заменить вайлом) и убрать/заменить переменную р(либо заменить переменной типа реал или интеджер(только их можно использовать пока что) либо убрать её и поставить цикл)

@zvoronz · 25.02.2014, 21:20

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
program chisla;
uses
  crt;
var
  a,i,j,n: integer;
  p: integer;
begin
  clrscr;
  p:=1;
  write('Wwedite shislo: ');
  readln(a);
  j:=a mod 10;
  a:=a div 10;
  while a > 0 do
  begin
    i:=a mod 10;
    a:=a div 10;
    if i >= j then
      p:=0;
    j:=i;
  end;
  if p = 0 then
    writeln('neuporyadocheno')
  else
    writeln('uporyadocheno');
  readkey;
end.

@FedorBoom · 25.02.2014, 21:21

Надо было серьезно подумать, чтобы сделать такой гениальный ход.

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
uses
  crt;
var
  a,i,j,p: integer;
begin
  clrscr;
  p:=0;
  write('Wwedite shislo: ');
  readln(a);
  j:=a mod 10;
  a:=a div 10;
  while a>0 do
  begin
    i:=a mod 10;
    a:=a div 10;
    if i>=j then
      p:=1
    else
    begin
      p:=0;
      break;
    end;
    j:=i;
  end;
  if p=1 then
    writeln('neuporyadocheno')
  else
    writeln('uporyadocheno');
  readkey;
end.

@Adreno200 · 25.02.2014, 22:06 **[ТС]**

Ты гений

Но, брейк не убрал вайлом.

@zvoronz · 25.02.2014, 22:19

Adreno200, забудь вот эти фразы "убрать цикл брейк(если можно, то заменить вайлом)"
break - это команда безусловного выхода из тела цикла, это ни какой не цикл и циклом while это не заменяется.
break используется для уменьшения числа холостых операций, в первом варианте программы его использование было очень оправданно потому что встретив например число 1234567891 мы бы сразу вышли из тела цикла не делая остальные ненужные проверки.

Новые блоги и статьи Все статьи Все блоги /
Реализация Domain-Driven Design с Java Javaican 20.05.2025 DDD — это настоящий спасательный круг для проектов со сложной бизнес-логикой. Подход, предложенный Эриком Эвансом, позволяет создавать элегантные решения, которые точно отражают реальную предметную. . .	Возможности и нововведения C# 14 stackOverflow 20.05.2025 Выход версии C# 14, который ожидается вместе с . NET 10, приносит ряд интересных нововведений, действительно упрощающих жизнь разработчиков. Вы уже хотите опробовать эти новшества? Не проблема! Просто. . .	Собеседование по Node.js - вопросы и ответы Reangularity 20.05.2025 Каждому разработчику рано или поздно приходится сталкиватся с техническими собеседованиями - этим стрессовым испытанием, где решается судьба карьерного роста и зарплатных ожиданий. В этой статье я. . .	Cython и C (СИ) расширения Python для максимальной производительности py-thonny 20.05.2025 Python невероятно дружелюбен к начинающим и одновременно мощный для профи. Но стоит лишь заикнуться о высокопроизводительных вычислениях — и энтузиазм быстро улетучивается. Да, Питон медлительнее. . .	Безопасное программирование в Java и предотвращение уязвимостей (SQL-инъекции, XSS и др.) Javaican 19.05.2025 Самые распространёные векторы атак на Java-приложения за последний год выглядят как классический "топ-3 хакерских фаворитов": SQL-инъекции (31%), межсайтовый скриптинг или XSS (28%) и CSRF-атаки. . .
Введение в Q# - язык квантовых вычислений от Microsoft EggHead 19.05.2025 Microsoft вошла в гонку технологических гигантов с собственным языком программирования Q#, специально созданным для разработки квантовых алгоритмов. Но прежде чем погружаться в синтаксические дебри. . .	Безопасность Kubernetes с Falco и обнаружение вторжений Mr. Docker 18.05.2025 Переход организаций к микросервисной архитектуре и контейнерным технологиям сопровождается лавинообразным ростом векторов атак — от тривиальных попыток взлома до многоступенчатых кибератак, способных. . .	Аугментация изображений с Python AI_Generated 18.05.2025 Собрать достаточно большой датасет для обучения нейронной сети — та ещё головная боль. Часами вручную размечать картинки, скармливать их ненасытным алгоритмам и молиться, чтобы модель не сдулась при. . .	Исключения в Java: советы, примеры кода и многое другое Javaican 18.05.2025 Исключения — это объекты, созданные когда программа сталкивается с непредвиденной ситуацией: файл не найден, сетевое соединение разорвано, деление на ноль. . . Список можно продолжать до бесконечности. . . .	Как сделать SSO (Single Sign-On) в C# приложении stackOverflow 18.05.2025 SSO — это механизм, позволяющий пользователю пройти аутентификацию один раз и получить доступ к нескольким приложениям без повторного ввода учетных данных. Вы наверняка сталкивались с ним, когда. . .

@Adreno200 0 / 0 / 0 Регистрация: 17.01.2014 Сообщений: 14
	25.02.2014, 22:06 [ТС]
	Ты генийНо, брейк не убрал вайлом. 0

@zvoronz 273 / 241 / 56 Регистрация: 29.05.2012 Сообщений: 889
	25.02.2014, 22:19
	Adreno200, забудь вот эти фразы "убрать цикл брейк(если можно, то заменить вайлом)" break - это команда безусловного выхода из тела цикла, это ни какой не цикл и циклом while это не заменяется. break используется для уменьшения числа холостых операций, в первом варианте программы его использование было очень оправданно потому что встретив например число 1234567891 мы бы сразу вышли из тела цикла не делая остальные ненужные проверки. 1

Опции темы

Установить, является ли последновательность при просмотре слева направо упорядоченной

Решение