Question

С клавиатуры вводится строка, содержащая три слова, разделённые пробелом. Напишите программу, которая меняет местами второе и третье слово. Lazarus

Answer 1

Program P4;
type A:array[1..30] of char;
var c:string[30];
begin
  Writeln('Введите слова через пробел');
  Readln(c[1..10], c[11..20], c[21..30]);
  Writeln('Результат');
  Writeln(c[1..10], c[21..30], c[11..20]);
end.

P.S.
Может быть неверно.

Answer 2

Вот пример программы на Lazarus, которая меняет местами второе и третье слово в строке, введенной пользователем:

scssCopy code
program SwapWords;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  inputStr, outputStr, word1, word2, word3: String;
  spacePos1, spacePos2: Integer;
begin
  Write('Введите три слова, разделенные пробелом: ');
  ReadLn(inputStr);
  
  // Находим позиции первых двух пробелов
  spacePos1 := Pos(' ', inputStr);
  spacePos2 := Pos(' ', inputStr, spacePos1+1);
  
  // Если не удалось найти два пробела, выводим сообщение об ошибке и выходим
  if (spacePos1 = 0) or (spacePos2 = 0) then
  begin
    WriteLn('Ошибка: введенная строка не содержит три слова, разделенных пробелом.');
    ReadLn;
    Exit;
  end;
  
  // Выделяем три слова
  word1 := Copy(inputStr, 1, spacePos1-1);
  word2 := Copy(inputStr, spacePos1+1, spacePos2-spacePos1-1);
  word3 := Copy(inputStr, spacePos2+1, Length(inputStr)-spacePos2);
  
  // Составляем новую строку с помощью склеивания слов в новом порядке
  outputStr := word1 + ' ' + word3 + ' ' + word2;
  
  // Выводим результат на экран
  WriteLn('Результат: ', outputStr);
  ReadLn;
end.

Программа запрашивает у пользователя ввод трех слов, разделенных пробелами, и затем ищет позиции первых двух пробелов в строке. Если не удалось найти два пробела, программа выведет сообщение об ошибке и завершится. Если два пробела найдены, программа выделит три слова, поменяет местами второе и третье слово и выведет результат на экран.