C :

#include<stdio.h>
#include<string.h>
#define S 10000
#define T 100
int next[T]={0};
void get_next(char t[],int next[])
{
    int i=0,j=-1;
    while(t[i+1]!='\0')
    {
        if(j==-1||t[i]==t[j])
        {
            ++i;++j;
            next[i]=j+1;
        }
        else
            j=next[j]-1;
    }
}
void get_nextval(char t[],int next[])
{
    int i=0,j=-1;
    while(t[i+1]!='\0')
    {
        if(j==-1||t[i]==t[j])
        {
            ++i;++j;
            if(t[i]!=t[j])
                next[i]=j+1;
            else
                next[i]=next[j];
        }
        else
            j=next[j]-1;
    }
}
int kmp(char s[],char t[],int pos)
{
    int i=pos-1,j=0,a=strlen(s),b=strlen(t);
    while(i<=a-1&&j<=b-1)
    {
        if(j==-1||s[i]==t[j])
        {++i;++j;}
        else
            j=next[j]-1;
    }
    if(j==b)
        return i-j+1;
    else
        return 0;
}
int main()
{
  int i;  char s[S],t[T];
  for(i=1;i<=3;i++){
  scanf("%s %s",s,t);
    //get_next(t,next);
    get_nextval(t,next);
    printf("%d\n",kmp(s,t,1));}
    return 0;
}

C++ :

#include <stdio.h>
#include <string.h>

#define MAXSTRLEN 100
typedef char SString[MAXSTRLEN+2];

void InputString(SString &str) {
	// 读取字符串
	scanf("%s", str + 1); // 首先用scanf读取字符串
	str[0] = strlen(str + 1); // 求出字符串的长度并保存在str[0]中
}

void get_next(SString T, int *next) { // 算法4.7
	int i = 1;
	next[1] = 0;
	int j = 0;
	while (i < T[0]) {
		if (j == 0 || T[i] == T[j]) {
			++i;
			++j;
			next[i] = j;
		} else
			j = next[j];
	}
}

int Index_KMP(SString S, SString T, int pos) { // 算法4.6
	// 利用模式串T的next函数求T在主串S中第pos个字符之后的位置的
	// KMP算法。其中，T非空，1≤pos≤StrLength(S)。
	int next[255];
	int i = pos;
	int j = 1;
	get_next(T, next);
	while (i <= S[0] && j <= T[0]) {
		if (j == 0 || S[i] == T[j]) { // 继续比较后继字符
			++i;
			++j;
		} else
			j = next[j]; // 模式串向右移动
	}
	if (j > T[0])
		return i - T[0]; // 匹配成功
	else
		return 0;
} // Index_KMP

int main() {

	int i;
	SString str, sub;
	for (i = 0; i < 3; i++) {
		InputString(str); // 输入母串
		InputString(sub); // 输入子串
		printf("%d\n", Index_KMP(str, sub, 1)); // 输出调用 KMP 的函数结果
	}

	return 0;
}

Pascal :

program p1751;
var next:array[0..1000]of longint;
    s,p:ansistring;
    i,j,k,l:longint;
begin
 for l:=1 to 3 do
  begin
   readln(s);
   i:=1;
   while s[i]<>' ' do inc(i);
   inc(i);
   p:=copy(s,i,length(s)-(i-1));
   delete(s,i-1,length(s)-(i-2));
   j:=1;k:=0;
   next[1]:=0;
   while j<length(p) do
    if (k=0)or(p[j]=p[k])then
     begin
      inc(k);inc(j);
      next[j]:=k;
     end
    else k:=next[k];
   j:=1;
   k:=1;
   while (j<=length(s))and(k<=length(p))do
    if (k=0)or(s[j]=p[k]) then
     begin
      inc(k);
      inc(j);
     end
    else k:=next[k];
   if k>length(p) then writeln(j-length(p))
   else writeln(0);
  end;
end.

Java :

import java.util.Arrays;
import java.util.Scanner;

public class Main {

	public static void main(String[] args) {
		Scanner cin = new Scanner(System.in);
		while (cin.hasNext()) {
			String s = cin.next();
			String t = cin.next();
			kmp(s, t);
		}
	}

	public static int kmp(String s, String t) {
		int next[] = new int[t.length()];
		getNext(t, next);
		int n = kmpMatch(s,t,next);
		System.out.println(n);
		return n;
	}

	private static int kmpMatch(String s, String t, int[] next) {
		int j=0;
		int len = t.length();
		for(int i=0;i<s.length();i++)
		{
			if(s.charAt(i) == t.charAt(j)  )
			{
				if(j == len -1)
					return (i-len+2);
				j++;
			}
			else 
			{
				while(next[j] != -1)
				{
					if(s.charAt(i) == t.charAt(next[j]))
					{
						j= next[j] +1;
						break;
					}
					else j= next[j];
				}
			}
		}
		return 0;
	}

	private static void getNext(String t, int next[]) {

		next[0] = -1;
		for (int i = 1; i < t.length(); i++) {
			int k = next[i - 1];
			if ( k!= -1  && t.charAt(k) == t.charAt(i-1))
				next[i] = next[i - 1] + 1;
			else
				next[i] = 0;
		}
	}
}