Question

Дано рядок символів. Перетворити рядок, замінивши в ньому всі знаки оклику крапками. Треба зробити в Pascal.

Answer 1

Ответ:

S := S.Replace('!', '.');

Пример:

var  

    S := 'Один! Два.! Три!!!';

begin

    S := S.Replace('!', '.');

    writeln(S);

end.

Answer 2

Ось приклад реалізації перетворення рядка, замінюючи всі знаки оклику крапками в Pascal:

pascalCopy code
program ReplaceExclamationMarks;

uses
  SysUtils;

function ReplaceExclamationMarks(str: string): string;
var
  i: Integer;
begin
  for i := 1 to Length(str) do
  begin
    if str[i] = '!' then
      str[i] := '.';
  end;
  
  Result := str;
end;

var
  inputStr, resultStr: string;
begin
  Write('Введіть рядок: ');
  ReadLn(inputStr);
  
  resultStr := ReplaceExclamationMarks(inputStr);
  
  WriteLn('Результат: ', resultStr);
  
  ReadLn;
end.

У цьому прикладі ми використовуємо функцію ReplaceExclamationMarks, яка приймає рядок str і замінює всі знаки оклику на крапки. Ми проходимо по кожному символу рядка за допомогою циклу for та перевіряємо, чи є поточний символ знаком оклику. Якщо так, ми замінюємо його на крапку. На завершення, ми повертаємо змінений рядок.

Програма запитує у користувача ввести рядок, застосовує функцію ReplaceExclamationMarks до введеного рядка та виводить результат на екран.