нужна помощь! Решить задачу и составить блок-схему! строковая задача Опции

[Logitek007]

нужно написать строковую программу

Разработать алгоритм и программу. Вводится тест из заглавных русских букв, за которым следует точка. Количество символов в тесте не должно превышать 300. Определить, упорядочены ли буквы текста по алфавиту. Вывести результат.

[DarkWishmaster]

нужно написать строковую программу

Разработать алгоритм и программу. Вводится тест из заглавных русских букв, за которым следует точка. Количество символов в тесте не должно превышать 300. Определить, упорядочены ли буквы текста по алфавиту. Вывести результат.

мой варинат (делал для англ. алфавита, надеюсь с русским проблем не будет)

var F:text; c,last:char; Q:boolean;
Begin
assign(F, 'C:\In.Txt');
reset(F);
Q:=True;
while c<>'.' do
  begin
   read(F, c);
   if (c<>'.') and (c<last) then
    begin
     Q:=False;
     break;
    end
     else last:=c;
  end;
close(F);
If Q then writeln('YES') 
   else writeln('NO');
readln;
end. 

Сообщение отредактировано: DarkWishmaster - 19.06.2011 19:19