Question

Всем привет. Не до конца разобралась в строковом типе данных в Паскале, хотелось бы на примере задачи немного вникнуть. Задача. Дан текст из малых русских букв, состоящих из нескольких слов. Напечатать все гласные буквы, которые не входят ни в одно слово. Важно: Помимо самой программы хотелось бы еще объяснение, чтобы понять, как выходим к результату. Заранее спасибо за ответы.

Answer 1

Ответ:

const glasnye:array[1..10] of string = ('а','е','ё','и','о','у','ы','э','ю','я');

var i:byte;

   s:string = 'Съешь ещё французских булок, да выпей чаю';

begin

   for i:=1 to length(glasnye) do begin

       if pos(glasnye[i],s) = 0 then write(glasnye[i],' ')  // если функция pos() возвращает не ноль, значит такая подстрока присутствует в строке, иначе pos() выводит 0.

   end;

end.

Answer 2

Для решения этой задачи на языке программирования Pascal вам нужно выполнить следующие шаги:

1. Прочитать входной текст.
2. Разделить текст на слова.
3. Определить все гласные буквы, которые встречаются в тексте.
4. Определить гласные буквы, которые не входят ни в одно слово.
5. Вывести найденные гласные буквы.

Пример программы на Pascal:

pascalCopy code
program FindNonVowelLetters;
var
  inputText: string;
  vowels: string;
  word: string;
  ch: char;
  i, j: integer;
  isVowelInWord: boolean;
begin
  // Чтение входного текста
  writeln('Введите текст: ');
  readln(inputText);

  // Определение всех гласных букв
  vowels := 'аеёиоуыэюя';

  // Проходим по каждой букве в тексте
  for i := 1 to Length(inputText) do
  begin
    ch := inputText[i];
    isVowelInWord := False;

    // Проверяем, является ли символ гласной буквой
    if Pos(ch, vowels) > 0 then
    begin
      // Проверяем, входит ли эта гласная буква в какое-либо слово
      isVowelInWord := False;
      word := '';
      // Слово - это последовательность букв до пробела или конца строки
      for j := i to Length(inputText) do
      begin
        if (inputText[j] <> ' ') and (j <> Length(inputText)) then
          word := word + inputText[j]
        else
        begin
          if Pos(ch, word) > 0 then
          begin
            isVowelInWord := True;
            break;
          end
          else
            word := ''; // Сбрасываем слово
        end;
      end;

      // Если гласная буква не входит ни в одно слово, выводим её
      if not isVowelInWord then
        write(ch);
    end;
  end;

  writeln; // Перевод строки для вывода результата
end.

Эта программа пройдет по введенному тексту, определит все гласные буквы и проверит, входят ли они в какие-либо слова. Если гласная буква не входит ни в одно слово, она будет выведена на экран.