ci = 0.2; co = 0.2;
cu = 0.1;
var
form1: tform1;
s: string;
startc, endc: extended;
implementation
{$r *.dfm}
procedure convertto(s: string; var startc, endc: extended);{将字符串变为数值}
var n, i: integer;
c: char;
g: extended;
begin
startc := 0;
endc := 1;
n := strlen(pchar(s));
for i := 1 to n do
begin
c := s[i];
g := endc - startc;
case c of
'a':
begin
endc :=startc + g * ca;
startc := startc + g * 0;
end;
'e':
begin
endc := startc + g * (ca + ce);
startc := startc + g * ca;
end;
'i':
begin
endc := startc + g * (ca + ce + ci);
startc := startc + g * (ca + ce);
end;
'o':
