查找指定字母在某字符串中出现的次数，字符串和字母为参数，以函数的形式编写本程序

//C
int find(char str[],char ch){
int ret = 0;
for(int i = 0;i<strlen(str);i++)
if(str[i]==ch) ret++;
return ret;
}

//C++
int find(string str,char ch){
int ret = 0;
for(int i = 0;i<str.length();i++)
if(str[i]==ch) ret++;
return ret;
}

//java
int find(String str,char ch){
int ret = 0;
for(int i = 0;i<str.Length;i++)
if(str.charAt(i)==ch) ret++;
return ret;
}

//pascal
function find(str:String;ch:char):Integer;
var ret,i:Integer;
begin
ret:=0;
for i:=1 to Length(str) do
if str[i]=ch then inc(ret);
find := ret;
end;