Question

Дана строка символов, состоящий из отдельных слов, разделенных пробелом. Упорядочить слова по длине (в убыванию) и вывести на печать. Даю 20 баллов.

Answer 1

Const nx=30;
var a:array[1..nx] of string; p,i,j,n,k:integer; s,d:string;begin
s:='Дана строка символов состоящий из отдельных слов разделенных пробелом'; 
s:= s + ' Упорядочить слова по длине в убыванию и вывести на печать';
p:=1;while p>0 do begin
i:= i + 1; p:= pos(' ',s);
if p>0 then a[i]:=trim(copy(s,1,p)) else a[i]:=s;writeln(a[i]);Delete(s,1,p);end;
for k:=1 to i do begin
for j:=2 to i do begin
if length(a[j-1]) < length(a[j]) then begin
d:=a[j-1];a[j-1]:=a[j];a[j]:= d;end;end;end;
writeln;
for k:=1 to i do
writeln(a[k]);end.

Answer 2

Конечно, я помогу вам с этим. Вот пример кода на Python, который сортирует слова в строке по их длине в порядке убывания и выводит их на печать:

pythonCopy code
def sort_words_by_length(sentence):
    words = sentence.split()
    sorted_words = sorted(words, key=len, reverse=True)
    return sorted_words

input_string = input("Введите строку: ")
sorted_words = sort_words_by_length(input_string)
print("Упорядоченные слова по длине (в убывающем порядке):")
print(sorted_words)

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

Надеюсь, это помогло! Если у вас возникнут еще вопросы, пожалуйста, не стесняйтесь задавать.