vj1379 字符串的展å&frac14

Vj1379 字符串的展å¼

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
//±ÉÈ˵ķ½·¨ //Ä£Äâ / //±ÉÈ˵ÄÎÊÌâ //СдÓÐת´óдµÄʱºò Êý×ÖûÓÐ //Âú×ã '-' ×óÓÒ¶¼ÊÇÊý×Ö»ò¶¼ÊÇСд×ÖĸÇÒASCIIÂëÓÒ´óÓÚ×ó²Åת Âú×ãµÄÇé¿ö½Ï²»Âú×ãµÄÇé¿öÉÙ ËùÒÔÅжÏ×îºÃÓà not (Âú×ãµÄÇé¿ö) //¿´Çå³þ p1 p2 p3¶¼ÊǸÉÂïµÄ / var p1,p2,p3:integer; s:string; procedure print(k:integer); var i,j,l,r,d:integer; begin if (k=1) or (k=length(s)) then begin write(s[k]); exit; end; l:=ord(s[k-1]); r:=ord(s[k+1]);
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

This note was uploaded on 02/21/2011 for the course CS 001 taught by Professor 001 during the Spring '11 term at Shandong University.

Ask a homework question - tutors are online