Вывести те слова последовательности, у которых буквы упорядочены по алфавиту

@bananchik007 · Регистрация: 19.10.2014

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

@aburedeb · 19.10.2014, 19:35

Пример:

Pascal

uses crt;
var
c,p,i,j:integer;
text,tmp:string;
begin
text:='agf kjfdk fdklhu dfh abc ytrueri de bc jhjk.';
p:=0;
clrscr;
for i:=0 to length(text) do {Пройдемся по всей последовательности}
 if (text[i]=' ') or (text[i]='.') then {Встречаем пробел или точку }
  begin
   tmp:=copy(text,p,i-p);{Помещаем в tmp слово}
   c:=0;
   for j:=0 to length(tmp)-1 do {Пройдемся по слову}
    if tmp[j]<=tmp[j+1]  then inc(c) else dec(c); {Проверяем упорядочены ли буквы}
   if c=length(tmp)  then {Если упорядочены}
    writeln(tmp);
   p:=i+1;{Текущая позиция после пробела}
  end;
readln;
end.

@bananchik007 0 / 0 / 0 Регистрация: 19.10.2014 Сообщений: 36
		1
	Вывести те слова последовательности, у которых буквы упорядочены по алфавиту 19.10.2014, 18:45. Показов 3607. Ответов 1 Метки нет (Все метки) Дана последовательность, содержащая от 2 до 50 слов в каждом из которых от 1 до 8 строчных латинских букв; меж соседними словами пробел, за последним словом точка. Вывести те слова последовательности, у которых буквы упорядочены по алфавиту. Нужна помощь с программой, желательно с объяснениями, чтобы понять. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Вывести те слова последовательности, у которых буквы упорядочены по алфавиту

Решение