Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Максим9605
0 / 0 / 0
Регистрация: 09.01.2017
Сообщений: 30
#1

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

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

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

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

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

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

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

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

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

4
Максим9605
0 / 0 / 0
Регистрация: 09.01.2017
Сообщений: 30
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
3642 / 2629 / 1797
Регистрация: 05.06.2014
Сообщений: 12,572
19.01.2018, 18:02 #3
Цитата Сообщение от Максим9605 Посмотреть сообщение
исправьте ошибки правильно делаю или нет?
Абсолютно неверно! Потому что код НЕ на Паскале.
0
Максим9605
0 / 0 / 0
Регистрация: 09.01.2017
Сообщений: 30
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
Модератор
53012 / 40823 / 14066
Регистрация: 18.05.2008
Сообщений: 94,949
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 - Pascal
нужно срочно решить задачу: Строки В строке S удалить последние буквы, таким образом, чтобы длина каждого слова в строке не...

Найти слова в строке и проверить последовательность букв в словах - PascalABC.NET
Привет, не могу понять как написать вот такую программу: есть не пустой текст длинной 255 символов. Для каждого слова, что состоит только...

В исходной строке а определить и вывести слова,перед которыми стоят меньшие по длине слова - Pascal ABC
1)В исходной строке а определить и вывести слова,перед которыми стоят меньшие по длине слова. 2)Сформировать по искомой строке а новую...

В исходной строке a$ определить и вывести слова, перед которыми стоят меньшие по длине слова. - QBasic
В исходной строке a$ определить и вывести слова, перед которыми стоят меньшие по длине слова.


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

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

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