Версия для печати темы

Автор: Logitek007 19.06.2011 20:29

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

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

Автор: DarkWishmaster 19.06.2011 23:12

Цитата(Logitek007 @ 19.06.2011 16:29)

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.