Задача в Delphi)

[Наташка1]

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



Пожалуйста помогите. И если нетрудно, можно написать комментарии, желательно к каждому действию заранее спасибо!

[Stilet]

Делфи я тебе не обещаю, но идею подкину:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;

type

  { TForm1 }

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
    function Check(i:integer):Boolean;
  public
    { public declarations }
  end;

var  s,k:string;
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
 s:='слова состоят из строчных латинских букв и разделены одним или несколькими пробелами';
 s:=s+' ';
 k:='';
 repeat
  //Находим пробел
  i:=pos(' ',s);
  //Считаем частоту букв
  if not Check(i-1) then k:=k+copy(s,1,i); //Если нет повторов - запоминаем слово
  //Берем следующее слово
  delete(s,1,i);
 until i=0;
 //Показываем очищенную строку
 ShowMessage(k);
end;

function TForm1.Check(i: integer): Boolean;
var a:array['а'..'я'] of integer; j:integer; c:char;
begin
 Result:=false;
 FillChar(a,Length(a)*SizeOf(integer),0);
 //Выявляем частоту символов
 for j:=1 to i do inc(a[s[j]]);
 //Выясняем какие из них повторялись
 for c:='а' to 'я' do
  if a[c]>1 then begin
    //И если повторялись говорим - "не запоминать слово"
    Result:=true; break;
  end;
end;

end.

Твоя задача: Проанализировать. Попробовать. Вникнуть.

[min@y™]

Делфи я тебе не обещаю, но идею подкину

ну зачем такие сложности, есть же TStringList.