- 滑动输入法
- 2012-08-19 15:59:51 @
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 @ 2013-05-01 22:27:52
前面加 type dds=string[11];
procedure Print(t:longint;s:string[11]); 改为 procedure Print(t:longint;s:dds); -
2012-08-20 06:33:45@
大段代码请使用 http://paste.ubuntu.com/。。。
-
2012-08-19 16:01:33@
上面没贴好,
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