Решаем задачи Абрамян на Паскале. String52

String52. Дана строка-предложение на русском языке. Преобразовать строку так, чтобы каждое слово начиналось с заглавной буквы. Словом считать набор символов, не содержащий пробелов и ограниченный пробелами или началом/концом строки. Слова, не начинающиеся с буквы, не изменять.

Решение:

program String52;
var
 S:String;
 i,poz:integer;

begin
  Write('S: ');
  Readln(S);

  i:=1;
  While (i<=Length(S)) do
   begin
    if ((S[i-1]=' ') or (i=1)) and (ord(S[i]) in [160..175]) then S[i]:=chr(ord(S[i])-32);
    if ((S[i-1]=' ') or (i=1)) and (ord(S[i]) in [224..239]) then S[i]:=chr(ord(S[i])-80);
    inc(i);
   end;

  Writeln(S);
end.

program String52;

var

S:String;

i,poz:integer;

begin

Write('S: ');

Readln(S);

i:=1;

While (i<=Length(S)) do

begin

if ((S[i-1]=' ') or (i=1)) and (ord(S[i]) in [160..175]) then S[i]:=chr(ord(S[i])-32);

if ((S[i-1]=' ') or (i=1)) and (ord(S[i]) in [224..239]) then S[i]:=chr(ord(S[i])-80);

inc(i);

end;

Writeln(S);

end.

Другие задачи из раздела String можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. String52

Комментарии:

Добавить комментарий Отменить ответ