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

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

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

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

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

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

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

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

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

4
Максим9605
0 / 0 / 0
Регистрация: 09.01.2017
Сообщений: 53
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
3884 / 2865 / 3640
Регистрация: 05.06.2014
Сообщений: 14,095
19.01.2018, 18:02 3
Цитата Сообщение от Максим9605 Посмотреть сообщение
исправьте ошибки правильно делаю или нет?
Абсолютно неверно! Потому что код НЕ на Паскале.
0
Максим9605
0 / 0 / 0
Регистрация: 09.01.2017
Сообщений: 53
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
Модератор
54722 / 42128 / 29086
Регистрация: 18.05.2008
Сообщений: 99,442
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 удалить последние буквы,...

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


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

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

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