программа со строковыми данными Опции

[konveta]

помогите решить:

даны 3 слова одинаковой длины,начинающиеся на буквы А,В,К в любом порядке следования. Напечатать их в алфавитном порядке.

помогите очень срочно надо!!!
заранее спасибо

Сообщение отредактировано: konveta - 28.03.2007 0:47

[КМА]

А какая разница? Латиница или кириллица? Скажем пусть эти слова разделены пробелами (как удалить лишние пробелы можно почитать в FAQ), тогда:

...
lengthStr:=length (s) - 2; {длина этих слов}
s1:=copy (s, 1, lengthStr); 
s2:=copy (s, lengthStr+1, lengthStr);
s3:=copy (s, (lengthStr+1)*2, lengthStr);
if s1>s2
   then if s2>s3 
             then writeLn (s3, ' ', s2, ' ', s1)
             else  if s1>s3 
                        then writeLn (s2, ' ', s3, ' ', s1)
                        else writeLn (s2, ' ', s1, ' ', s3)
   else if s1>s3
             then writeLn (s1, ' ', s3, ' ', s2)
             else if s3>s2 
                       then writeLn (s1, ' ', s2, ' ', s3)
                       else writeLn (s1, ' ', s3, ' ', s2);

Что-то вроде этого.

Сообщение отредактировано: КМА - 28.03.2007 1:03