中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

中国DOS联盟论坛
现在时间是 2026-08-11 11:58
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » 【出题】输出设定范围内的字母 查看 915 回复 6
楼 主 【出题】输出设定范围内的字母 发表于 2009-02-28 07:48 ·  中国 湖南 株洲 电信
金牌会员
★★★★
永远的学习者
积分 3,105
发帖 1,276
注册 2008-03-08 13:00
18年会员
UID 112398
性别 男
状态 离线
很久没在cn-dos发过贴了,真对不住大家,下面就先出道题给大家来练练手吧:
出题目的:
  掌握将常量字符转划成数字变量的方法
  掌握随机取值的方法
加分规则:
  满分10分,视情形加分(以思路为重)
题目如下:
  编写批处理代码,当使用者输入1-26(因为字母有26个)间的任意一个数后,程序在
26个字母中再随机生成一个不等于输入位序上字母的字母(a-z的位序为1-26),最后程序
将这两个字母中的所有字母在一行内列出,示例如下:

请输入1-26中的任意一个数值:3
c和p之间的字母是:defghijklmno
批处理之家新域名:www.bathome.net
2 我来一个,抛砖引玉 发表于 2009-02-28 10:14 ·  中国 广东 东莞 电信
银牌会员
★★★
批处理编程迷
积分 1,916
发帖 752
注册 2008-12-28 04:30
17年会员
UID 135147
性别 男
来自 广西
状态 离线
@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
本帖最近评分记录 (共 1 条) 点击查看详情
评分人分数时间
bat-zw +6 2009-03-01 13:03
精简
=> 个人网志
3 发表于 2009-03-01 01:08 ·  中国 江西 赣州 电信
银牌会员
★★★★
积分 2,025
发帖 1,122
注册 2007-09-05 20:15
18年会员
UID 96653
性别 男
状态 离线
@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
本帖最近评分记录 (共 1 条) 点击查看详情
评分人分数时间
bat-zw +6 2009-03-01 13:00
4 发表于 2009-03-01 12:59 ·  中国 湖南 株洲 电信
金牌会员
★★★★
永远的学习者
积分 3,105
发帖 1,276
注册 2008-03-08 13:00
18年会员
UID 112398
性别 男
状态 离线
Originally posted by tireless at 2009-3-1 01:08:
@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
5 发表于 2009-03-01 13:03 ·  中国 湖南 株洲 电信
金牌会员
★★★★
永远的学习者
积分 3,105
发帖 1,276
注册 2008-03-08 13:00
18年会员
UID 112398
性别 男
状态 离线
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
6 增加一点 发表于 2009-03-01 13:49 ·  中国 广东 东莞 电信
银牌会员
★★★
批处理编程迷
积分 1,916
发帖 752
注册 2008-12-28 04:30
17年会员
UID 135147
性别 男
来自 广西
状态 离线
@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
精简
=> 个人网志
7 发表于 2009-03-01 16:05 ·  中国 湖南 株洲 电信
金牌会员
★★★★
永远的学习者
积分 3,105
发帖 1,276
注册 2008-03-08 13:00
18年会员
UID 112398
性别 男
状态 离线
给出本人的解:

@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
论坛跳转: