Question

С клавиатуры вводится строка состоящая из предложений разделяемых точками.Составьте программу выполняющую следующие форматирования:первое слово в предложении должно начинаться с прописной буквы,после каждой точки должен стоять один пробел. Обычный PascalABC.NET​

Answer 1

Ответ:

var

s: string;

i, n: byte;

begin

writeln('введите строку ');

readln(s);

s[1]:=upcase(s[1]);

for i:=length(s) downto 1 do

if s[i]='.' then

begin

if s[i+1]<>' 'then

begin

s[i+1]:=upcase(s[i+1]);

insert(' ',s,i+1);

end

else

for n:=i+1 to length(s)do

if s[n]<>' 'then

begin

s[n]:=upcase(s[n]);

end;

end;

begin

writeln(s);

end;

end.

Объяснение:

Answer 2

Конечно, вот пример программы на языке PascalABC.NET, которая выполняет указанные форматирования:

pascalCopy code
program SentenceFormatter;
var
  inputText, formattedText: string;
  i: integer;
  capitalizeNext: boolean;

begin
  // Ввод строки с клавиатуры
  Write('Введите текст: ');
  Readln(inputText);

  // Инициализация переменных
  formattedText := '';
  capitalizeNext := true;

  // Обработка каждого символа в строке
  for i := 1 to Length(inputText) do
  begin
    if capitalizeNext and (inputText[i] <> ' ') then
    begin
      formattedText := formattedText + UpCase(inputText[i]);
      capitalizeNext := false;
    end
    else
    begin
      formattedText := formattedText + inputText[i];
    end;

    if inputText[i] = '.' then
    begin
      formattedText := formattedText + ' ';
      capitalizeNext := true;
    end;
  end;

  // Вывод отформатированного текста
  WriteLn('Отформатированный текст:');
  WriteLn(formattedText);
end.

Программа принимает ввод от пользователя, обрабатывает каждый символ в строке, выполняя необходимые форматирования, и затем выводит отформатированный текст.