Разработать алгоритм и программу. Вводится тест из заглавных русских букв, за которым следует точка. Количество символов в тесте не должно превышать 300. Определить, упорядочены ли буквы текста по алфавиту. Вывести результат.
DarkWishmaster
19.06.2011 23:12
Цитата(Logitek007 @ 19.06.2011 16:29)
нужно написать строковую программу
Разработать алгоритм и программу. Вводится тест из заглавных русских букв, за которым следует точка. Количество символов в тесте не должно превышать 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.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.