0 / 0 / 0
Регистрация: 17.01.2014
Сообщений: 14
1

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

25.02.2014, 20:40. Показов 1334. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Здравствуйте, форумчане.Есть одно условие задачи и есть решение. Вот условие:дано натуральное число, установить является ли последновательность при просмотре слева направо упорядоч, по возрастанию.Надо переделать(описал внизу).
Вот решение:
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.
Помогите переделать её:убрать цикл брейк(если можно, то заменить вайлом) и убрать/заменить переменную р(либо заменить переменной типа реал или интеджер(только их можно использовать пока что) либо убрать её и поставить цикл)
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.02.2014, 20:40
Ответы с готовыми решениями:

Установить, является ли последовательность цифр при просмотре их слева направо упорядоченной по возрастанию
Есть ли у кого-то готовое решение ? Заранее спасибо. Дано натуральное число. Установить,...

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

Является ли последовательность его цифр при просмотре их слева направо упорядоченной по возрастанию
Помогите разобраться с кодом, буквально построчно, буду очень благодарен. Задание: Дано...

Является ли последовательность цифр числа при просмотре их слева направо упорядоченной по возрастанию
Дано натуральное число. Установить, является ли последовательность его цифр при просмотре их слева...

4
273 / 241 / 56
Регистрация: 29.05.2012
Сообщений: 889
25.02.2014, 21:20 2
Лучший ответ Сообщение было отмечено Adreno200 как решение

Решение

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.
1
102 / 70 / 79
Регистрация: 06.02.2014
Сообщений: 211
25.02.2014, 21:21 3
Надо было серьезно подумать, чтобы сделать такой гениальный ход.
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.
0
0 / 0 / 0
Регистрация: 17.01.2014
Сообщений: 14
25.02.2014, 22:06  [ТС] 4
Ты генийНо, брейк не убрал вайлом.
0
273 / 241 / 56
Регистрация: 29.05.2012
Сообщений: 889
25.02.2014, 22:19 5
Adreno200, забудь вот эти фразы "убрать цикл брейк(если можно, то заменить вайлом)"
break - это команда безусловного выхода из тела цикла, это ни какой не цикл и циклом while это не заменяется.
break используется для уменьшения числа холостых операций, в первом варианте программы его использование было очень оправданно потому что встретив например число 1234567891 мы бы сразу вышли из тела цикла не делая остальные ненужные проверки.
1
25.02.2014, 22:19
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.02.2014, 22:19
Помогаю со студенческими работами здесь

Дано натуральное число.Установить,является ли последовательность его цифр при просмотре их справа налево упорядоченной
int a; bool flag; a = int.Parse(Console.ReadLine()); flag =...

Удалить пробелы из исходной строки при просмотре ее слева направо
Помогите, пожалуйста, написать программу формирования сжатой строки символов с помощью...

Определить, какая из этих букв встречается раньше: m или n (при просмотре слова слева направо)
С клавиатуры вводится предложение, в котором есть одна буква ‘ m ’ и буква ‘ n ’. Определить, какая...

Является ли последовательность цифр числа при просмотре их справа налево упорядоченной по возрастанию
Используя цикл с постусловием repeat решить задачу: Дано натуральное число. Установить, является...

Определить, является ли последовательность цифр числа при просмотре справа налево упорядоченной по возрастанию
Дано натуральное число n. Необходимо определить, является ли последовательность его цифр при...

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru