Из введенного предложения вывести на экран все слова, содержащие заданную букву

Posted by obzor under Delphi

Нужно написать программу со следующим описание задачи: Из введенного предложения вывести на экран все слова, содержащие букву (буква задается с клавиатуры). Примечание: буква может находится в любой части слова и встречаться несколько раз.

Aleksandr H.

var s:string; a:array[1..100] of string;
  i,count:integer;letter:char;
begin   {$o-}
 readln(s);
 writeln('bukwa');
 letter:=readkey;
 count:=1;
 i:=1; while (i<=length(s)) do begin
   if s[ i]=' ' then 
    begin 
         if pos(letter,a[count])>=1 then writeln(a[count]); 
         inc(count);inc(i);
    end;
   a[count]:=a[count]+s[ i];
   inc(i);
 end;
 if pos(letter,a[count])>=1 then writeln(a[count]);
 end.

тема на форуме

Похожие статьи

• Способы передачи параметров в подпрограммы в Delphi
• Описать функцию Pi(eps), вычисляющую значение числа Пи по формуле
• Вычислить методом касательных (Pascal)
• Ввести номер одного из друзей и вывести его имя (задача на записи)
• Найти сумму элементов массива, стоящих после последнего нулевого элемента
• Вычисление формулы с произведениями
• Можно ли среди чисел массива найти две разных пары чисел, суммы которых одинаковы?
• Определить, является ли массив «магическим квадратом»
• Создать таблицу умножения
• Обработка строк (Pascal)