- 滑动输入法
- 12 年前 @
var
ch:char;
s:string[11];
n,m,i,j,k,p,r,ans,w,x,y:longint;
a:array[0..21,1..4] of longint;
b:array[0..21] of char;
vis:array[0..11,'0'..'z'] of boolean;
f:array[0..12] of longint;
g:array[0..11,0..11] of char;
c:array[0..11,1..2] of longint;
function check(x,y,t:longint):boolean;
var
j:real;
begin
if (x>=a[t,1])and(x=a[t,2])and(y
3 条评论
-
hyl LV 10 @ 12 年前
前面加 type dds=string[11];
procedure Print(t:longint;s:string[11]); 改为 procedure Print(t:longint;s:dds); -
12 年前@
大段代码请使用 http://paste.ubuntu.com/。。。
-
12 年前@
上面没贴好,
var
ch:char;
s:string[11];
n,m,i,j,k,p,r,ans,w,x,y:longint;
a:array[0..21,1..4] of longint;
b:array[0..21] of char;
vis:array[0..11,'0'..'z'] of boolean;
f:array[0..12] of longint;
g:array[0..11,0..11] of char;
c:array[0..11,1..2] of longint;
function check(x,y,t:longint):boolean;
var
j:real;
begin
if (x>=a[t,1])and(x=a[t,2])and(y
- 1