数据结构第4章例题与答案

PROCEDURE  maxcomstr(VAR s,t : orderstring; VAR index,length : integer);

VAR i,j,k,length1:integer;  con:boolean;

BEGIN

 index :=0; length :=0;  i :=1;

WHILE(i<=s.len) DO

[j:=1;

     WHILE (j<=t.len) DO

[ IF (s[i]=t[j])  THEN

END;