判断回文的算法

Ⅰ 数据结构，栈 1：试设计一个算法判别一个字符串是否为 回文。 2：从键盘上输入一批整数，然后按相反

第一题不明觉厉，第二题我假设你限定让用户是以空格为分隔符输入的，最后回车，那么首先你先写一个空的数组$arr=[]用字符串循环判定出出空格然后如果是空格就截断，把字符赋值给数组，以此类推，直到循环结束，得到了数组以后我们再利用循环语句去控制数组中的指针所指的数，注意循环的个数就是数组内元素的个数除以2如果能整出就对了，如果不能整出就省略小数点后那个0.5就是你要循环的次数，然后一个是从1开始用1++一个是从结尾开始，用n--讲1++的值赋值和$tmp1将n--的值赋值给$tmp2然后将$tmp1的值放到n--所对应的数组位置上，将$tmp2的值放到1++对应的位置上，如此反复直到这个循环结束

Ⅱ 设计算法判断一个数是不是回文数

var
s:string;
i:integer;

begin
readln(s);{记录该数}
for i:=1 to length(s) div 2 do (回文数两两对应，所以只要搜索一半)
if s[i]=s[length(s)+1-i] then continue {如果是，就让它继续搜下去}
else begin dec(i); break; end;{如果不是，就将指针i指向前面，并且跳出循环}
if i=length(s) then writeln("yes")
else writeln("no");{表明搜索完毕没有受到阻力，所以是回文数}
end.

Ⅲ VB涓璁捐＄畻娉曪纴鍒ゆ柇镆愪竴涓鏁版槸涓嶆槸锲炴枃鏁帮纸鐢ㄦ枃瀛楀彊杩板氨鍙浠ヤ简锛

2绉嶆柟娉,
1,鏄浣跨敤VB镊甯︾殑鍑芥暟StrReverse , 涓涓鏁板瓧,琚缈昏繃𨱒ヤ互钖,杩桦拰铡熸暟瀛楃浉钖,灏卞彲浠ュ垽鏂鏄锲炴枃鏁颁简

2.浣跨敤寰鐜,姣忔￠兘2绔鍙栨暟瀛,閮界浉钖,灏卞彲浠ュ垽鏂涓哄洖鏂囨暟, 褰撴湁涓嶅悓镞,璺冲嚭寰鐜,涓嶆槸锲炴枃鏁