|
bat-zw
金牌会员
永远的学习者
积分 3105
发帖 1276
注册 2008-3-8
状态 离线
|
『楼 主』:
【出题】输出设定范围内的字母
很久没在cn-dos发过贴了，真对不住大家，下面就先出道题给大家来练练手吧：
出题目的：
掌握将常量字符转划成数字变量的方法
掌握随机取值的方法
加分规则：
满分10分，视情形加分（以思路为重）
题目如下：
编写批处理代码，当使用者输入1－26（因为字母有26个）间的任意一个数后，程序在
26个字母中再随机生成一个不等于输入位序上字母的字母（a-z的位序为1－26），最后程序
将这两个字母中的所有字母在一行内列出，示例如下：
请输入1-26中的任意一个数值：3
c和p之间的字母是：defghijklmno
|
批处理之家新域名：www.bathome.net |
|
 2009-2-28 07:48 |
|
|
netbenton
银牌会员
批处理编程迷
积分 1916
发帖 752
注册 2008-12-28
来自 广西
状态 离线
|
 『第
2 楼』:
我来一个，抛砖引玉
@echo off
set "asc=abcdefghijklmnopqrstuvwxyz"
:lp
set /p in=请输入1-26中的任意一个数值：
echo.
if %in% gtr 26 echo.输入错误,请重新输入。&goto :lp
if %in% lss 1 echo.输入错误,请重新输入。&goto :lp
set/a in-=1
set/a ran=%random% %% 25
::随机数取少一个，大于或等于就加一，可去掉等于的可能
if %ran% geq %in% (set/a b=25-ran,ran+=1,a=in+1) else (set/a a=ran+1,b=26-in)
call echo.%%asc:~%in%,1%%和%%asc:~%ran%,1%%之间的字母是：%%asc:~%a%,-%b%%%
pause
|
精简
[你的+我的+他的]=>[大家的] 个人 网志  |
|
|
2009-2-28 10:14 |
|
|
tireless
银牌会员
积分 2025
发帖 1122
注册 2007-9-5
状态 离线
|
『第
3 楼』:
@echo off
set /p b=请输入 1-26 中的任意一个数值:
:lp
set /a e=%random%%%26+1,1/(e-b) 2>nul || goto lp
if %e% lss %b% set /a b=%e%,e=%b%
set /a L=b-1,R=e-1,M=e-b-1
set Letters=abcdefghijklmnopqrstuvwxyz
call echo %%Letters:~%L%,1%% 和 %%Letters:~%R%,1%% 之间的字母是: %%Letters:~%b%,%M%%%
pause
|
|
|
2009-3-1 01:08 |
|
|
bat-zw
金牌会员
永远的学习者
积分 3105
发帖 1276
注册 2008-3-8
状态 离线
|
『第
4 楼』:
| Quote: | Originally posted by tireless at 2009-3-1 01:08:
[code]@echo off
set /p b=请输入 1-26 中的任意一个数值:
:lp
set /a e=%random%%%26+1,1/(e-b) 2>nul || goto lp
if %e% lss %b% set /a b=%e%,e=%b%
set /a L=b-1,R=e-1,M=e-b-1
set Let ... |
|
楼上的代码好精,但是不是没考虑到c d间无字母的情况?
|
批处理之家新域名：www.bathome.net |
|
|
2009-3-1 12:59 |
|
|
bat-zw
金牌会员
永远的学习者
积分 3105
发帖 1276
注册 2008-3-8
状态 离线
|
『第
5 楼』:
| Quote: | Originally posted by netbenton at 2009-2-28 10:14:
@echo off
set "asc=abcdefghijklmnopqrstuvwxyz"
:lp
set /p in=请输入1-26中的任意一个数值：
echo.
if %in% gtr 26 echo.输入错误,请重新输入。&goto :lp
if %in% ... |
|
存在楼上一样的问题
|
批处理之家新域名：www.bathome.net |
|
|
2009-3-1 13:03 |
|
|
netbenton
银牌会员
批处理编程迷
积分 1916
发帖 752
注册 2008-12-28
来自 广西
状态 离线
|
『第
6 楼』:
增加一点
@echo off
set "asc=abcdefghijklmnopqrstuvwxyz"
:lp
set /p in=请输入1-26中的任意一个数值：
echo.
if %in% gtr 26 echo.输入错误,请重新输入。&goto :lp
if %in% lss 1 echo.输入错误,请重新输入。&goto :lp
set/a in-=1
set/a ran=%random% %% 25
::随机数取少一个，大于或等于就加一，可去掉等于的可能
if %ran% geq %in% (set/a a=in+1,ran+=1,b=ran-a) else (set/a a=ran+1,b=in-a)
if %b% equ 0 (set ech=没有字母) else (call set ech=的字母是：%%asc:~%a%,%b%%%)
call echo.%%asc:~%in%,1%%和%%asc:~%ran%,1%%之间%ech%
pause
|
精简
[你的+我的+他的]=>[大家的] 个人网志 |
|
|
2009-3-1 13:49 |
|
|
bat-zw
金牌会员
永远的学习者
积分 3105
发帖 1276
注册 2008-3-8
状态 离线
|
『第
7 楼』:
给出本人的解：
@echo off
set "code=abcdefghijklmnopqrstuvwxyz"
set /p input=请输入1-26内的任意数值：
:lp
set /a _random=%random%%%26+1,a=_random-input
if "%a:-=%" lss "2" goto lp
if %_random% gtr %input% (
set /a a=input,b=27-_random,c=a-1,d=_random-1
) else (
set /a a=_random,b=27-input,c=a-1,d=input-1
)
call,set /p=%%code:~%c%,1%%和%%code:~%d%,1%%间的字母是：%%code:~%a%,-%b%%%<nul
pause>nul [ Last edited by bat-zw on 2009-3-1 at 16:07 ]
|
批处理之家新域名：www.bathome.net |
|
|
2009-3-1 16:05 |
|
