Работа со строками [Паскаль]

[Drago56]

Текст, не содержащий собственных имен и сокращений, набран полностью прописными русскими буквами. Заменить все прописные буквы, кроме букв, стоящих после точки, строчными буквами.

[sig_GB]

ну ка пример подкинь
задача
и ее ответ правильный

[Serge_Bliznykov]

что вызывает сложность?
заведите признак начала строки. После того, как встретили точку - устанавливайте этот признак.
в цикле перебираете символы, если встретили прописную букву и признак начала строки не задан - меняйте её на строчную букву.
всё.
да, алгоритм как проверять, что буква прописная/строчная и менять соответственно на то, что надо можете взять тут, дарю!

будут конкретные проблемы - пишите сюда, в тему..

[Asker13]

s введёте с клавиатуры.

i := 1;
while s[i] <> '.' do begin
  s[i] := chr(ord(s[i]) + 32);
  Inc(i);
end;

[Drago56]

Всем спасибо

[Drago56]

Пример:Я ПОШЁЛ СЕГОДНЯ ГУЛЯТЬ. НАШЁЛ КОШЕЛЁК.
Правильный ответ:Я пошёл сегодня гулять. Нашёл кошелёк.

[Asker13]

Извините, условие неверно понял.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  s: string;
  i: integer;
begin
  ReadLn(s);
  i := 2;

  while i <= Length(s) do begin
    while ((s[i] <> '.') and (s[i] <> ' ')) do begin
      s[i] := chr(ord(s[i]) + 32);
      Inc(i);
      if i > Length(s) then break;
    end;
    if i > Length(s) then break;
    if s[i] = '.' then Inc(i, 2);
    Inc(i);
  end;

  WriteLn(s);
  ReadLn;
end.

Работает правильно, при условии, что после точки стоит пробел.

[Drago56]

Спасибо!!!