Задача по Делфи

[IGoDoVaN]

Два memo поля: в одно вводится текст в другое пишется результат. Также есть button, которая запускает программу...
Требуется определить число слов в тексте, найти максимальную, минимальную и среднюю длину слова...

[IGoDoVaN]

вот предварительный код программы нужно его исправить и дополнить....
-------------------------------------------------------------------------------
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Label2: TLabel;
Button4: TButton;
Memo2: TMemo;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
S:string;
n,sl,max,min,i:integer;
sr:real;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
S:='В лесу родилась ёлочка, в лесу она росла';
memo1.Text:=s;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
S:='';
Memo1.text:=s;
memo2.text:='';
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
i:=1;
n:=length(s);
S:=Memo1.Text;
sl:=0;

if not (s[i] in [' ',#8, #13, #10, ',','.','!','?']) then
while i<n do
begin
if (s[i] in [' ',#8, #13, #10, ',','.','!','?']) and (not (s[i+1] in [' ',#8, #13, #10, ',','.','!','?'])) then
begin
sl:=sl+1;
end;
i:=i+1;
end

else
while i<n do
begin
if (s[i] in [' ',#8, #13, #10, ',','.','!','?']) and (not (s[i+1] in [' ',#8, #13, #10, ',','.','!','?'])) then
begin
sl:=sl+1;
end;
i:=i+1;
end;


begin
sr:=(max+min)/sl;
memo2.text:='Число слов:'+floattostr(sl)+' Максимальное:'+floattostr(max)+' Минимальное:'+floattostr(min)+' Среднее:'+floattostr(sr);
end;



end;



end.
-----------------------------------------------------------------

[Virtson]

ну и зачем этот кусок 2 раза повторяется :

while i<n do
begin
if (s[i] in [' ',#8, #13, #10, ',','.','!','?']) and (not (s[i+1] in [' ',#8, #13, #10, ',','.','!','?'])) then
begin
sl:=sl+1;
end;
i:=i+1;
end

?!

[IGoDoVaN]

Да это неправильно... этот цикл даже неправильно считает

[Aristarh Dark]

$5 времени на выполнение 1 час

[IGoDoVaN]

согласен, только, если будут недочеты, ты их исправишь?

[Aristarh Dark]

Без вопросов... аська 218четыре13шесть9семь жду

[Aristarh Dark]

Задача решена, exeшник для тестирования лежит тут http://slil.ru/25890212 Исходники - по оплате