Question

Напишите программу, которая вводит строку, состоящую только из точек и букв Х, и заменяет в ней все точки на нули и все буквы X на единицы. ПАСКАЛЬ

Answer 1

var

 s:string;

 i:integer;

begin

 write('Введите строку: '); readln(s);

 for i:=1 to length(s) do

   begin

     if s[i]= '.' then s[i]:= '0'

       else

         if (s[i]='X') or (s[i]='x') or

           (s[i]='х') or (s[i]='Х') then

             s[i]:='1';

   end;

 writeln('          Итог: ',s);

end.

Answer 2

Вот пример программы на языке Pascal, которая заменяет точки на нули и буквы X на единицы во введенной строке:

program ReplaceChars;
var
  inputString, outputString: string;
  i: integer;
begin
  // Ввод строки
  writeln('Введите строку:');
  readln(inputString);

// Замена символов
  outputString := '';
  for i := 1 to length(inputString) do
  begin
    if inputString[i] = '.' then
      outputString := outputString + '0'
    else if inputString[i] = 'X' then
      outputString := outputString + '1'
    else
      outputString := outputString + inputString[i];
  end;

// Вывод результата
  writeln('Результат:');
  writeln(outputString);
end.

Программа сначала просит пользователя ввести строку, затем она проходит по каждому символу строки и заменяет точки на нули и буквы X на единицы. Результат сохраняется в переменной `outputString`. Наконец, программа выводит полученную строку на экран.

Примечание: В данном примере я использовал стандартные функции ввода/вывода языка Pascal (`readln` и `writeln`). Если вы используете другую среду разработки, вам может потребоваться использовать другие функции для ввода/вывода.