vj1124 字串变换

Vj1124 字串变换

Info iconThis preview shows pages 1–2. Sign up to view the full content.

View Full Document Right Arrow Icon
//±ÉÈ˵ķ½·¨ //µü´ú¼ÓÉî //ÕÒÄÜת»»µÄÆ¥Åäʱ ¼Ç¼ÉÏÒ»´ÎÕÒµ½µÄλÖà ÕâÒ»´Î´Ó max(1,last-length(x[i])+1) ¿ªÊ¼ / var n:integer; a,b:string; x,y:array[0. .6] of string[20]; function max(x,y:integer):integer; begin if x>=y then exit(x); exit(y); end; procedure get(s:string; var p,q:string); begin p:=copy(s,1,pos(' ',s)-1); q:=copy(s,pos(' ',s)+1,length(s)); end; procedure init; var s:string; begin readln(s); get(s,a,b); while not eof do begin inc(n); readln(s); get(s,x[n],y[n]); end; end; procedure main; var step:integer; procedure print(ans:integer);
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
Background image of page 2
This is the end of the preview. Sign up to access the rest of the document.

Page1 / 2

Vj1124 字串变换

This preview shows document pages 1 - 2. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online