Вывести слова из заданной строки, в которых есть буква "к"

@sash7 · Регистрация: 26.02.2009

Author24 — интернет-сервис помощи студентам

помогите решить задачу пожалуйста

дана строка вывести слова в которых есть буква к

@schdub · 26.02.2009, 20:24

Вот

Pascal

uses CRT;
 
var s, s2     : string;
    c, len, i : integer;
    q         : Boolean;
 
begin
  ClrScr;
  
  Write('Введите строку : '); ReadLn(s);
  len := length(s); {берем длину строки}
 
  s2  := '';    {вторая строка, куда мы копируем слова}
  q   := False; {флаг, означающий, что мы нашли слово с буквой к}
  c   := 0;     {общее количество найденных слов с к}
 
  for i:=1 to len do {обрабатываем посимвольно}
    case s[i] of
    ' ':
    begin
      if q=TRUE then
      begin
        Inc(c);
        WriteLn(s2);
        q  := False;
      end;
      s2 := '';
    end;
 
    'k':
    begin
      q:=TRUE;
      s2:=s2+s[i];
    end;
    else s2:=s2+s[i];
    end;
 
  if q=TRUE then
  begin
    Inc(c);
    WriteLn(s2);
    q  := False;
    s2 := '';
  end;
 
  {вывод результатов}
  WriteLn('Было напечатано ',c,' слов с буквой "k"');
  ReadLn;
end.

@sash7 · 26.02.2009, 20:28 **[ТС]**

xitNightMare, большое спасибо, с меня пиво, а блок схему можешь замутить

@sash7 0 / 0 / 0 Регистрация: 26.02.2009 Сообщений: 9
		1
	Вывести слова из заданной строки, в которых есть буква "к" 26.02.2009, 18:54. Показов 2983. Ответов 2 Метки нет (Все метки) помогите решить задачу пожалуйста дана строка вывести слова в которых есть буква к 0

@sash7 0 / 0 / 0 Регистрация: 26.02.2009 Сообщений: 9
	26.02.2009, 20:28 [ТС]	3
	xitNightMare, большое спасибо, с меня пиво, а блок схему можешь замутить 0

Вывести слова из заданной строки, в которых есть буква "к"

Решение