Технический форум

Цитата:

Сообщение от NAt (Сообщение 867220)

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

Не уверен, что правильно понял задание, но вот что получилось. Программа преобразует все прописные буквы, не являющиеся первыми буквами слов строки, в строчные. Работает в трёх раскладках (можно и вперемешку): латинице, кириллице-DOS и кириллице-Windows.

Код:

Var

 S,S1:String;

 i:Byte;



Function Big(Ch:Char):boolean;

begin

 Big:=((Ord(Ch)>64) and (Ord(Ch)<91)) or

      ((Ord(Ch)>191) and (Ord(Ch)<224)) or

      ((Ord(Ch)>127) and (Ord(Ch)<160));

end;



Begin

 Writeln('Enter the string:');

 Readln(S);

 S1:='';

 S1:=S1+S[1];

 for i:=2 to Length(S) do

  if (S[i-1]<>' ') and Big(S[i]) then

   begin

    if (Ord(S[i])<144) or (Ord(S[i])>191) then S1:=S1+Chr(Ord(S[i])+32)

    else S1:=S1+Chr(Ord(S[i])+80);

   end

  else

 S1:=S1+S[i];

 Writeln(S1);

 Readln

End.