编写程序,根据给出的一个结束于‘．’的英文句子,找出其中最长的含有字母‘a’的单词.

题目

编写程序,根据给出的一个结束于‘．’的英文句子,找出其中最长的含有字母‘a’的单词.
【样例输入】
Her name is Lilan and she is a happy student．
【样例输出】
Lilan
我要完整的程序

答案

program finda;
var
ch:char;
s,k:string;
l:integer;
flag:boolean;
begin
s:='';
flag:=false;
l:=0;
while ch'.' do
begin
read(ch);
if (ch='a') or (ch='A') then flag:=true;
if not((ch='.') or (ch=' ')) then s:=s+ch
else begin
if (length(s)>l) and flag then begin
l:=length(s);
k:=s;
end;
s:='';
flag:=false;
end;
end;
writeln(k);
readln;
readln;
end.
根据你的题目,happy 也应当输出,可是看样例,题目应该改为：
找出其中 第一个 最长的含有字母‘a’的单词.
思路：一个一个字母地读,顺便分离单词,采取打擂台的方式