упорядоченные ли по алфавиту буквы

[Zheka_1]

Пусть дан непустой текст из заглавных латинских букв, за которым следует точка. Определите, упорядочены ли эти буквы по алфавиту.

как проверить упорядоченные ли по алфавиту буквы? можно ли сделать массив алфавита и потом по нему сверять упорядоченность? как сделать массив слов?? помогите чем сможете, заранее спасибо. В DELPHI

[evg_m]

как сделать массив слов??|

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

var
 txt: string;
t: char;

txt:='abcd';
t:=txt[2];
txt[3]:='x';

1 вар использовать уже имеющуюся упорядоченность кодов символов внутри ЛАТИНСКИХ букв ОДНОГО формата.
только латинские и только заглавные.
'A' <'B' < 'C' <... <'Z'

if txt[i]<txt[i+1] and txt[i+1]<txt[i+2] !!не забудьте про правильную расстановку скобок !!

можно ли сделать массив алфавита и потом по нему сверять упорядоченность?

да можно.
вар 2 использовать СВОЙ массив(строку!!) для вычисления(определения упорядоченности)

CONST mysort ='ABCD...YZ';
k1:=pos(txt[i], mysort);
k2:=pos(txt[i+1], mysort);
...
if k1<k2 ....

[newerow1989]

var s:string;
    i:integer;
    d:boolean;
begin
   Readln(s);
   d:=true;
   For i:=1 to Length(s)-1 do
   begin
      d:=d and (s[i]<s[i+1]);
      If s[i+1]='.' then
         Break;
   end;
   Writeln(d);
   Readln;
end.

Сойдет?

[stupoz]

Буквы можно сравнивать как числа.
Делаете цикл прохода по строке текста начиная со второго символа.
На каждом шаге сравниваете предыдущий символ с текущим, если предыдущий больше текущего, значит можно прервать цикл и выйти с сообщением о неупорядочености. Если из цикла вышли "штатно", значит строка упорядочена.

[Stilet]

Буквы можно сравнивать как числа.

Не надо так делать.

[stupoz]

Сообщение от Stilet

Не надо так делать.

А как надо?

Операции сравнения определены для всех базовых типов. И если нельзя сравнивать символы по рангу, то задачу будет просто не решить.