Расставить слова по возрастанию количества букв - Pascal ABC
Формулировка задачи:
Пожалуйста помогите с задачей. Вводится текст, конец ввода F5. Расставить слова по возрастанию количества букв.
Решение задачи: «Расставить слова по возрастанию количества букв»
textual
Листинг программы
program textForum; var text,s:string[255]; var i,j,l,k,n:integer; var m:array[1..100] of string; begin Write('Введите текст: '); Readln(text); k:=1; j:=0; for i:=1 to length(text) do begin if (text[i] = ' ') or (text[i] = '.') or (text[i] = ',') or (text[i] = ':') or (text[i] = '«') or (text[i] = '«') or (text[i] = '»') then begin m[k]:=copy(text,j,i-j); j:=i+1; k:=k+1; end; end; for i:=1 to k do begin for n:=1 to k do begin if length(m[n]) > length(m[n+1]) then begin s := m[n]; m[n] := m[n+1]; m[n+1] := s; end; end; end; for i:=1 to k do begin writeln(m[i]); end; end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д