Дана строка. Вывести те слова, которые содержат хотя бы одну букву k

@Аника · Регистрация: 22.12.2012

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

Можно использовать функции: copy, concat, length, pos, delete, insert.

Delphi

var
  Form1: TForm1;
  str,sl:string;
  k:integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
str:=Edit1.Text;
sl:=...;
ShowMessage('Слова с k:'+sl);
end;
 
end.

@Cyborg Drone · 09.10.2013, 21:24

Аника, если переменную можно объявить локально, не нужно объявлять её глобально (перед implementation). Объявляйте такие переменные в процедуре.

Delphi

procedure TForm1.Button1Click(Sender: TObject);
 
var str, sl, s:string;
 
begin
  str := Edit1.Text + ' ';
  sl := '';
  while length(str) > 0 do
    begin
      s := copy(str, 1, pos(' ', str));
      delete(str, 1, pos(' ', str));
      if pos('k', s) > 0 then sl := sl + s
    end;
  if length(sl) > 0 then ShowMessage('Слова с k: ' + sl)
                    else ShowMessage('Нет слов с k');
end;

@Аника · 09.10.2013, 21:41 **[ТС]**

Cyborg Drone, спасибо за прогу. Работает классно.

@Аника · 14.10.2013, 10:37 **[ТС]**

А можно как-то уменьшить кол-во проверок?

@Cyborg Drone · 22.10.2013, 15:05

??? их всего две.

@Аника 1 / 1 / 0 Регистрация: 22.12.2012 Сообщений: 160
	09.10.2013, 21:41 [ТС]	3
	Cyborg Drone, спасибо за прогу. Работает классно. 0

@Аника 1 / 1 / 0 Регистрация: 22.12.2012 Сообщений: 160
	14.10.2013, 10:37 [ТС]	4
	А можно как-то уменьшить кол-во проверок? 0

@Cyborg Drone Модератор 10042 / 5387 / 3350 Регистрация: 17.08.2012 Сообщений: 16,459
	22.10.2013, 15:05	5
	??? их всего две. 1

Опции темы