Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Максим9605
0 / 0 / 0
Регистрация: 09.01.2017
Сообщений: 44
#1

Проверить, упорядочены ли слова в строке по длине - Pascal

23.12.2017, 10:15. Просмотров 191. Ответов 4
Метки нет (Все метки)

Помогите!!!! Дана строка, состоящая из слов, разделённых пробелами. Проверить, упорядочены ли слова в строке по длине.
http://www.cyberforum.ru/pascal/thread75284.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.12.2017, 10:15
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Проверить, упорядочены ли слова в строке по длине (Pascal):

Проверить, упорядочены-ли элементы массива
Составьте программу, проверяющую упорядочены ли элементы одномерного массива по...

Проверить, упорядочены ли по возрастанию элементы каждой строки матрицы
Проверить, упорядочены ли по возрастанию элементы каждой строки матрицы. Буду...

Если буквы в строке упорядочены по алфавиту, то вывести 0
Дана строка, содержащая цифры и строчные латинские буквы. Если буквы в строке...

Упорядочены ли элементы по возрастанию в строке двумерного массива
Помогите решить задачу: Дан массив целых чисел n x m. Для каждой строки массива...

Нужно в строке удалить слова, состоящие из букв заданного слова
Задание такое: вводится слово и строка (отдельно). Нужно в строке удалить...

4
Максим9605
0 / 0 / 0
Регистрация: 09.01.2017
Сообщений: 44
19.01.2018, 16:58  [ТС] #2
Код
s = input()
l = s.split()
ln = len(l)
for i in range(ln-1):
    for j in range(ln-1-i):
        if len(l[j]) > len(l[j+1]):
            l[j],l[j+1] = l[j+1],l[j]
 
s = ''
for i in range(ln):
    s += l[i] + ' '
print(s)
исправьте ошибки правильно делаю или нет?
0
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3857 / 2844 / 3631
Регистрация: 05.06.2014
Сообщений: 13,940
19.01.2018, 18:02 #3
Цитата Сообщение от Максим9605 Посмотреть сообщение
исправьте ошибки правильно делаю или нет?
Абсолютно неверно! Потому что код НЕ на Паскале.
0
Максим9605
0 / 0 / 0
Регистрация: 09.01.2017
Сообщений: 44
19.01.2018, 18:04  [ТС] #4
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
32
33
34
35
36
37
38
39
40
41
42
43
type
  Arr = array[1..10] of string;
 
var
  s: arr;
  n, i, j: integer;
  a, b: string;
 
procedure Sort(n: integer; var x: arr);
var
  i, j: integer;
  a: string;
begin
  j := n;
  for i := 1 to j do
    for j := 1 to j do
      if Length(x[i]) < Length(x[j]) then
      begin
        a := x[i];
        x[i] := x[j];
        x[j] := a;
      end;
end;
 
begin
  writeln('введите строку');
  readln(a);
  j := 1;
  for i := 1 to length(a) do
  begin
    b := a[i];
    if b = ' ' then 
      j := j + 1
    else 
      s[j] := s[j] + b;
  end;
  n := j;
  writeln(n);
  sort(n, s);
  writeln('-----------');
  for i := 1 to n do
    write(s[i], ' ');
end.
Все сделал.
0
Puporev
Модератор
54129 / 41762 / 28874
Регистрация: 18.05.2008
Сообщений: 98,289
19.01.2018, 19:00 #5
Pflfxf/
Цитата Сообщение от Максим9605 Посмотреть сообщение
Проверить, упорядочены ли слова в строке по длине.
]
Цитата Сообщение от Максим9605 Посмотреть сообщение
Все сделал.
Что сделал? Зачем тебе массив и сортировка?
0
19.01.2018, 19:00
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.01.2018, 19:00
Привет! Вот еще темы с решениями:

В строке S удалить последние буквы, таким образом, чтобы длина каждого слова в строке не превышала 4
нужно срочно решить задачу: Строки В строке S удалить последние буквы,...

Найти слова в строке и проверить последовательность букв в словах
Привет, не могу понять как написать вот такую программу: есть не пустой текст...

Разбить все слова четной длины на два равных по длине слова
Разбить все слова четной длины на два равных по длине слова. Помогите с...

Напечатать те слова последовательности, которые отличны от первого слова, и их буквы не упорядочены по алфавиту
Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru