Question

Информатика нужна программа по паскаль Вводится строка, в которой сначала записана фамилия человека, а затем через пробел — его имя, например 'Семёнов Андрей'. Запишите операторы, которые позволяют: а) найти номер пробела, разделяющего фамилию и имя, и записать его в переменную р; б) выделить из строки фамилию и записать её в переменную fam; в) выделить из строки имя и записать его в переменную name; г) приписать перед фамилией первую букву имени, точку и пробел.

Answer 1

Пример:
var

 str, fam, name: string;

 r: integer;

begin

 { Ввод строки }

 write('Введите фамилию и имя: ');

 readln(str);

 { Поиск номера пробела }

 r := pos(' ', str);

 { Выделение фамилии и имени }

 fam := copy(str, 1, r - 1);

 name := copy(str, r + 1, length(str) - r);

 { Формирование строки с инициалом }

 fam := name[1] + '.' + ' ' + fam;

 { Вывод результата }

 writeln('Фамилия и имя: ', str);

 writeln('Номер пробела: ', r);

 writeln('Фамилия: ', fam);

 writeln('Имя: ', name);

end.

При запуске программы пользователю будет предложено ввести строку, содержащую фамилию и имя, например "Семёнов Андрей". Далее программа выполнит описанные операции и выведет результат на экран.

Answer 2

Программа на языке Pascal, которая выполняет указанные операции:

pascalCopy code
program StringManipulation;

var
  inputStr: string;
  spacePos: integer;
  fam, name: string;

begin
  // Ввод строки
  write('Введите строку (например, ''Семёнов Андрей''): ');
  readln(inputStr);

  // а) Найти номер пробела и записать его в переменную spacePos
  spacePos := pos(' ', inputStr);

  if spacePos > 0 then
  begin
    // б) Выделить фамилию
    fam := copy(inputStr, 1, spacePos - 1);

    // в) Выделить имя
    name := copy(inputStr, spacePos + 1, length(inputStr) - spacePos);

    // г) Приписать перед фамилией первую букву имени, точку и пробел
    fam := name[1] + '. ' + fam;

    writeln('Номер пробела: ', spacePos);
    writeln('Фамилия: ', fam);
    writeln('Имя: ', name);
  end
  else
    writeln('Ошибка: Пробел не найден в строке.');

  readln;
end.

Программа сначала находит номер пробела, разделяющего фамилию и имя. Затем она выделяет фамилию и имя из строки и добавляет первую букву имени, точку и пробел перед фамилией.