Question

Как вывести в Pascal слово, идущее после запятой?

Answer 1

Ответ:

var

slovo,slovo2:string;

simvol:Char;

a,ampirmetr:integer;

begin

readln (slovo);

a:=Pos(',',slovo);

ampirmetr:=length(slovo);

if a = 0 then writeln ('No data')

else begin

a:=a+1;

ampirmetr:=ampirmetr-a+1;

slovo2:=copy(slovo,a,ampirmetr);

writeln(slovo2);

end;

readln;

end.

Объяснение:

Имеется проверка на запятую.

В начале вводите текст с запятой, затем выполняется вывод текста после запятой (1 раз)

Answer 2

Чтобы вывести в Pascal слово, идущее после запятой в строке, вы можете использовать различные методы обработки строки. Один из способов - это использовать функцию Pos, которая находит позицию заданного символа в строке, и функцию Copy, которая копирует подстроку из исходной строки.

Вот пример кода на Pascal:

pascalCopy code
program ExtractWordAfterComma;

var
  inputString, wordAfterComma: string;
  commaPosition: integer;

begin
  // Вводим строку с запятой
  writeln('Введите строку с запятой:');
  readln(inputString);

  // Находим позицию запятой
  commaPosition := Pos(',', inputString);

  if commaPosition > 0 then
  begin
    // Копируем слово после запятой (исключая саму запятую)
    wordAfterComma := Copy(inputString, commaPosition + 1, Length(inputString) - commaPosition);

    // Убираем возможные пробелы перед словом (если есть)
    wordAfterComma := TrimLeft(wordAfterComma);

    // Выводим слово после запятой
    writeln('Слово после запятой:', wordAfterComma);
  end
  else
  begin
    writeln('Запятая не найдена в строке.');
  end;
end.

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