编程练习13题
计算机编程题目
Visual foxpro程序设计练习题1、求[10,1000]内所有能被被7和9中至少一个数整除的整数之个数。
答案：2362、求[101,299]内所有能被2整除但不能同时被3和5整除的整数之和。
答案：186303、求100以内最大的自然数n，使得从1开始的连续n个自然数的倒数之和小于3.5。
答案：184、求100以内最小的自然数n，使得从1开始的连续n个自然数的立方之和大于30000。
答案：195、求出100以内使得算式1*2+2*3+…+n*(n+1)的值小于5000的最大的自然数n。
答案：236、求出100以内使得算式1/(1*1)+1/(2*2)+…+1/(n*n)的值小于1.6的最大的自然数n。
答案：217、某国今年的人口总数为1亿，若以每年4%的速度递增，试求出至少要再过几年该国人口总数才会翻一翻。
答案：188、设等比数列：1，3，9，27，…。
求使得此数列的前n项之和大于2345678的最小的自然数n。
答案：149、求出45678的所有非平凡因子（即除1和它本身以外的约数）中是奇数的因子个数。
答案：710、求出203267的所有真因子（即小于它本身的约数）中最大的因子数。
答案：655711、求出20677和42067的最大公约数。
答案：71312、求前[1,100]内能被6或8整除的所有自然数的平方根的和（将第1位小数四舍五入，结果只保留整数）。
答案：16213、求所有符合算式ab*ba=2701的最小的两位数ab（即a*10+b）。
其中a、b是1~9之间的一位整数。
答案：3714、已知数列：1,2,4,7,11,16,…，其规律是相邻两项之差依次是1,2,3,4,5,…。
试求出此数列中大于5000的最小的项。
答案：505115、已知数列{f(n)}：f(1)=1，f(2)=4，当n=3,4,5,…时，f(n)=3*f(n-1)-f(n-2)。
试求出100以内最小的自然数n使得此数列的第n项大于87654321。
顺序结构编程练习题
顺序结构编程练习
第二周2011-9-10
1．输入一个四位整数如：“1569”，编程求出它的各位数之和，并在屏幕上输出。
2．从键盘上输入两个实数，将其整数部分交换后输出。
如23.45与54.22,交换后变为54.45与23.22;
3．从键盘输入两个整数A、B，输出较大数。
4．随机产生一个4位整数和一个2位的整数，输出它们的积和商。
（精确到小数点后第3位数）
5．输入两个整数求它们的和，输出要求如样例：
输入：259 965
输出：
6. 从键盘上读入一个小写字母，利用函数输出其大写字母和对应的AscⅡ码值。
7. 用write语句输出如下两个图形：
8. 打印如下图形：
9．有三个小朋友甲乙丙。
甲有50粒糖果，乙有43粒糖果，丙有13粒糖果。
现在他们做一个游戏。
从甲开始，将自己的糖分三份，自己留一份，其余两份分别给乙与丙，多余的糖果自己吃掉，然后乙与丙也依次这样做。
问最后甲、乙、丙三人各吃了多少粒糖果？10．键盘任意输入3个正整数代表三角形的三个边长，编程输出该三角形的面积。
(提示：利用海伦公式s=sqrt(q*(q-a)*(q-b)*(q-c)) 其中q=(a+b+c)/2) 提高题
11．求一元一次方程ax+b=0的解，其中系数a、b从键盘输入。
12．用w rite/w riteln语句输出下面的竖式：
13.不用绝对值函数，求一个数的绝对值。
家庭作业：中级教材练习册P18 第六题1-11小题。
还没有买书的可从srliyan_1@下载，完成后用自己的邮箱发lyhnyz_1@。
计算机程序设计基础(C语言)编程习题
计算机程序设计基础（C语言）编程练习题及参考答案1.输入2个整数，求两数的平方和并输出。
#include <stdio.h>main(){ intt a ,b,s;printf("please input a,b:\n");scanf("%d%d”,&a,&b);s=a*a+b*b;printf("the result is %d\n",s);}2. 输入一个圆半径（r）当r>＝0时，计算并输出圆的面积和周长，否则，输出提示信息。
#include <stdio.h>#define PI 3.14 <stdio.h>main(){ float r ,s , l;printf("please input r:\n");scanf("%f”,&r);if (r>=0){s=pi*r*r;l=2*i*r ;printf("the area is %f\n",s);printf("the circumference is %f\n",l);}elseprintf("input error!\n");}3、函数y=f(x)可表示为：2x+1 (x<0)y= 0 (x=0)2x-1 (x>0)编程实现输入一个x值，输出y值。
main(){int x,y;scanf(“%d”,&x);If(x<0)y=2*x+1;If(x>0)y=2*x-1;If(x==0) y=0;prin tf(“%d”,y);}4、编写一个程序,从4个整数中找出最小的数,并显示此数。
main( ){int a,b,c,d,t;scanf (“%d,%d,%d,%d ”,&a,&b,&c,&d);if (a>b){t=a; a=b; b=t;}if (a>c){t=a; a=c; c=t;}if (a>d){t=a; a=d; d=t;}pri ntf (“m in = %d \n”,a);}5．有一函数当x<0时y=1，当x>0时，y=3，当x=0时y=5，编程，从键盘输入一个x值，输出y值。
PYTHON编程基础算法练习20题(附答案)
PYTHON编程基础算法练习36题（附答案）1.计算并输出1到100之间所有奇数的和。
sum = 0for i in range(1, 101, 2):sum += iprint(sum)2.要求用户输入一个字符串，然后输出该字符串中每个字符的ASCII码。
string = input("请输入一个字符串：")for c in string:print(ord(c))3.使用递归函数计算一个整数的阶乘。
def factorial(n):if n == 0:return 1else:return n * factorial(n-1)print(factorial(5))4.使用二分查找算法在一个已排序的整数数组中查找指定的数字。
def binary_search(arr, target):low = 0high = len(arr) - 1while low <= high:mid = (low + high) // 2if arr[mid] == target:return midelif arr[mid] < target:low = mid + 1else:high = mid - 1return -1arr = [1, 3, 5, 7, 9, 11, 13]target = 7result = binary_search(arr, target)if result == -1:print("未找到该元素")else:print("该元素在数组中的索引为：", result)5.读取一个整数n，然后输出1到n之间的所有素数。
def is_prime(num):if num < 2:return Falsefor i in range(2, int(num**0.5)+1):if num % i == 0:return Falsereturn Truen = int(input("请输入一个整数："))for i in range(2, n+1):if is_prime(i):print(i)6.输入两个整数a和b，然后交换它们的值并输出。
编程基础练习题
第二章基本数据类型和运算因为题目略有删减，可能编号不连续，请见谅一、单项选择题1．下列数据中属于“字符串常量”的是（A ）。
A. "a"B．{ABC} C．’abc\0’D．’a’4．字符串"ABC"在内存占用的字节数是（ B ）。
A．3 B．4C．6 D．85．字符串" \’ABCD\’ "内存占用的字节数是（ C ）。
A．4 B．6 C．7D．86．在C语言中,合法的长整型常数是（ A ）。
A．0L B．4962710 C．0.054838743 D．2.1869e107. 在C语言中,合法的短整型常数是（ D ）。
A．0L B．0821 C．40000 D．0x2a8.下列数据中不属于“字符常量”的是（ C ）。
A．‘\xff’B．‘\160’C．’070’D．0709．char型常量的内存中存放的是（ A ）。
A．ASCII代码值B．BCD代码值C．内码值D．十进制代码值11.常数的书写格式决定了常数的类型和值，03322是（ B ）。
A、16进制int类型常数B、8进制int类型常数C、10进制int类型常数D、10进制long int类型常数12．“e2”是( D ) 。
A、实型常数100B、值为100的整型常数C、非法标识符D、合法标识符13. 要为字符型变量a赋初值，下列语句中哪一个是正确的（ A ）。
A、char a=’3’;B、char a=”3”;C、char a=%;D、char a=*;14. 要为float类型变量x、y、z赋同一初值3.14，下列说明语句哪一个是正确的（C ）。
A、float x,y,z=3.14;B、float x,y,z=3*3.14;C、float x=3.14,y=3.14,z=3.14;D、float x=y=z=3.14;15. 语句float pi=3.1415926535; 将（ D ）。
PLC编程练习题
前言PLC编程练习题由技成老师在平时收集及整理的一些练习题，该练习题主要用于提供给技成学员作为编程练习的习题使用。
意在帮助大家熟悉PLC之间，锻炼编程思路。
常用指令练习习题1：《电机的单按钮启停控制》按钮S1为启停按钮，M1表示电机运行，电机在运行状态时，按下按钮S1，电机停止运行，电机在停止状态时，按下按钮S1，电机开始运行，试编写控制程序习题2：《电机混合运行控制》S1表示长运行启动按钮，S2表示长运行停止按钮，S3表示点动按钮，M1表示电机运行，按下按钮S1，电机运行，按下按钮S2电机停止运行，按下按钮S3,电机点动运行，要求点动和长运行具有互锁习题3：《故障报警显示电路程序设计》习题3：《故障报警显示电路程序设计》S1表示故障复位信号， K1表示故障信号, 指示灯H1表示故障报警信号, 要求：当故障信号出现时，报警指示灯以1HZ的频率进行闪烁，此时操作人员按下复位按钮，若故障信号继续存在，则报警指示灯转为常亮，直到故障信号消失，若故障信号不存在，则报警指示灯熄灭。
习题4：《电机的延时启动与延时停止控制》S1表示启动信号，S2表示停止信号，M1表示电机1，M2表示电机2，要求，按下启动按钮，电机1启动，延时5S后电机2驱动，按下停止按钮，电机2停止，延时5S 后，电机1停止运行。
习题5：《小车往返运行控制》S1表示启动按钮，S2表示停止按钮，S3表示复位信号， K1表示左限位，K2表示右限位。
H1表示电机左限、H2表示电机右行，示意图如图所示：控制要求：（1）小车在左限位时，按下启动按钮S1,小车右行，碰到右限位停止，停止2S后，小车自动左行，左行后碰到左限位停止，停止2S后，小车自动右行，如此循环。
（2）运行过程中按下停止按钮，小车回到左限位停止（3）记录小车运行周期次数，一个来回为一个周期，当与设定周期相同时，小车停止运行。
（4）按下复位按钮，对记录的运行周期次数清零。
习题6：《简易交通灯程序控制》S1表示启动按钮，S2表示停止按钮，根据时序图编写控制程序，H1~H3表示东西方向的红灯、绿灯、黄灯。
数控编程练习题
模拟试卷一一、选择题〔请将正确答案的序号填写在题中的括号中。
每题2分，总分值30分〕1、一般来讲，M99出现在〔〕内。
〔A〕子程序〔B〕主程序〔C〕主、子程序均可2、在数控机床的组成中，其核心局部是〔〕。
〔A〕输进装置〔B〕CNC装置〔C〕伺服装置〔D〕机电接口电路3、在FANUC数控系统中，〔〕适合粗加工铸铁、锻造类毛坯。
〔A〕G71〔B〕G70〔C〕G73 〔D〕G724、用于主轴旋转速度操纵的代码是〔〕。
〔A〕T〔B〕G〔C〕S〔D〕H5、依据ISO标准，数控机床在编程时采纳〔〕规那么。
〔A〕刀具相对静止，工件运动〔B〕工件相对静止，刀具运动〔C〕按实际运动情况确定〔D〕按坐标系确定6、程序中指定了〔〕时，刀具半径补偿被撤消。
〔A〕G40〔B〕G41〔C〕G42〔D〕G497、数控升落台铣床的升落台上下运动坐标轴是〔〕。
〔A〕X轴〔B〕Y轴〔C〕Z轴〔D〕A轴8、精车45钢光轴应选用〔〕牌号的硬质合金车刀。
〔A〕YG3〔B〕YG8〔C〕YT5〔D〕YTl59、车床数控系统中，用哪一组指令进行恒线速操纵〔〕。
〔A〕G0 S＿〔B〕G96 S＿〔C〕G01 F 〔D〕G98 S＿10、需要屡次自动循环的螺纹加工，应选择〔〕指令。
〔A〕G76〔B〕G92 〔C〕G32〔D〕G9011、有一平面轮廓的数学表达式为(X-2)2+(y-5)2=64的圆，欲加工其内轮廓，请在以下刀具中选一把〔〕。
〔A〕Φ24立铣刀〔B〕Φ20立铣刀〔C〕Φ12立铣刀〔D〕密齿端铣刀12、G91 G00X30.0Y-20.0表示〔〕。
〔A〕刀具按进给速度移至机床坐标系X=30 mm,Y=-20 mm点〔B〕刀具快速移至机床坐标系X=30 mm,Y=-20 mm点〔C〕刀具快速向X正方向移动30mm，Y负方向移动20 mm〔D〕编程错误13、铣削一个XY平面上的圆弧时，圆弧起点为〔30，0〕，终点为〔-30，0〕，半径为50，圆弧起点到终点的旋转方向为顺时针，那么程序为〔〕。
(完整版)编程练习题
(完整版)编程练习题问题一请编写一个程序，在控制台上输出"Hello, World!"。
问题二请编写一个程序，实现将一个字符串逆序输出。
示例输入：`"Hello, World!"`示例输出：`"!dlroW ,olleH"`问题三请编写一个程序，计算一个整数列表中所有元素的和。
示例输入：`[1, 2, 3, 4, 5]`示例输出：`15`问题四请编写一个程序，找出一个整数列表中的最大值。
示例输入：`[10, 5, 8, 20, 13]`示例输出：`20`问题五请编写一个程序，判断一个字符串是否为回文字符串。
示例输入：`"level"`示例输出：`True`示例输入：`"hello"`示例输出：`False`问题六请编写一个程序，将两个有序整数列表合并成一个有序整数列表。
示例输入：`[1, 3, 5], [2, 4, 6]`示例输出：`[1, 2, 3, 4, 5, 6]`问题七请编写一个程序，统计一个字符串中每个字符的出现次数。
示例输入：`"Hello, World!"`示例输出：`{"H": 1, "e": 1, "l": 3, "o": 2, ",": 1, " ": 1, "W": 1, "r": 1, "d": 1, "!": 1}`问题八请编写一个程序，找出一个字符串中最长的连续数字序列。
示例输入：`"abcdef123"`示例输出：`""`问题九请编写一个程序，将一个字符串中的所有单词进行翻转。
示例输入：`"Hello, World!"`示例输出：`"olleH, dlroW!"`问题十请编写一个程序，计算一个数的平方根。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1.求1+3+5+……+99之和。
Private sub command1-slick()Dim s%,n%i=1for i=1 to 99 step 2s=s+inext iprint sEnd sub2.求1*2*3*……*10之积。
Private sub command1-slick()Dim i%,s%i=1s=1For i=1 to 10s=s*iNext iPrint sEnd Sub3.编程，在窗体上显示如下图案* Private sub command-click()*** Dim i%,j%****** for I=I to 5******** print tab(10-I);*********** for j=1 to 2*I-1print “*”;next jnext Iend sub4.设计一个计算1+2+3……+N之和直到累加结果超过30000的程序。
Private sub command1-click()Dim s%,n%n=1Don=n+2s=s+nPrint n;sIf n mod 10=0 thenPrintEnd IfLoop while s<30000Print nEnd Sub5.编写程序，产生若干个随机数，直到有一个随机数大于0.9为止。
Private sub command1-click()Dim x%RandomizeDo x=rnd()Print xLoop while x<0.9或Do whileX=rnd()Print xIf x>0.9 thenExit doEnd ifloop6.编程程序，产生50个两位整数.Private Sub Command1_Click()Dim i%, x%For i = 1 To 50x = Int(Rnd * 90) + 10Print x;If x Mod 10 = 0 ThenPrintEnd IfNext iEnd Sub7.编写程序，产生12个30-100随机数Private Sub Command1_Click()Dim i%For i=1to 12Print int(rnd*71+30)Next iEnd sub8.编程，输出1-50之间，能被3整除的数，并累加这些数的和。
Private Sub Command1_Click()Dim i%,s%For i=1 to 50If i mod 3=0 thenPrint iS=s+IEnd ifNext iPrint sEnd sub9.编程，任意输入5个数，找出其中最大数。
Option base 1Private Sub Command1_Click()Dim i%, max%, x(5) As IntegerFor i = 1 To 5x(i) = InputBox("请输入数")Next imax = x(1)For i = 2 To 5If x(i) > max Then max = x(i)Next iPrint maxEnd Sub10编程，任意输入5个数，找出其中最小数。
Option base 1Private Sub Command1_Click()Dim i%, min%, x(5) As IntegerFor i = 1 To 5x(i) = InputBox("请输入数")Next imin = x(1)For i = 2 To 5If x(i) < min Then min= x(i)Next iPrint minEnd Sub11.编程，任意输入10个数，找出最大数和最小数。
Private Sub Command1_Click()Dim max%, x%, i%x = InputBox("请输入数")max = manFor i = 1 To 9x = InputBox("请输入数")If x > max Thenmax = xEnd IfIf x < min Thenmin = xEnd IfNext iPrint max; minEnd Sub12求100以内（包括100）偶数和。
Private Sub Command1_Click()Dim i%,s%For i=0 to 100If i mod 2 thenPrint is=s+Iend ifnext Iprint send sub13.求100到200之间奇数的和。
Private Sub Command1_Click()Dim i%,s%For i=100 to 200If i mod 2<>0 thens=s+iend ifnext Iprint send sub14.求1到100之间能被3和4整除的数的个数及其和。
Private Sub Command1_Click()Dim i%,s%,n%For i=1 to 100If i mod 3 =0 and I mod 4=0 thenn=n+1s=s+Iend ifnext iprint s,nend sub15.求1000以内能同时被3.5.7整除的数及其个数。
Private Sub Command1_Click()Dim i%,s%,n%For I=1 to 1000If i mod 3=0 and i mod 5=0 and i mod 7=0 thenn=n+1s=s+Iend ifnext iprint s,nend sub16.任意输入若干个数，求它们的和，输入0为止。
Private Sub Command1_Click()Dim s%,i%,x%Do while truex=input(“请输入数”)If x=0 thenExit doEnd ifs=s+xloopprint send sub17、有两位数，其各位数字之差的绝对值为5，各位数字之和为该数的三分之一，求所有这样的二位数。
Private Sub Command1_Click()Dim a%,b%For a=1 to 9For b=0 to 9If abs(a-b)=5 and (a+b)*3=a*b+bPrint a*10+bEnd ifNext bNext aEnd sub18、水仙花数问题。
有三位数，其各位数字的立方和等于该数本身，求这样的三位数。
Private Sub Command1_Click()Dim a%,b%,c%,x%For x=100 to 999a=x\100b=(x\10) mod 10c=x mod 10If a*a*a+b*b*b+c*c*c=x thenPrint xEnd ifNext xEnd sub19、有一数列，前两项分别为1，从第三项开始，后项总是前两项的和，即1、1、2、3、5、8、13、……，求这个数列的前30项及其和。
Private Sub Command1_Click()Dim i%, a() As integeta(1) = 1a(2) = 1Print a(1); a(2)For i = 3 To 30a(i) = a(i - 2) + a(i - 1)Print a(i);Next iEnd Sub20、求一数列，前三项分别是为0、1、1，从第四项开始，后一项总是前三项的和，即0、1、1、2、4、7、13、24、44、……，求这个数列的前20项及其和。
Private Sub Command1_Click()Dim a(1 to 20) as interget,i%a(1)=0:a(2)=1:print a(1),a(2)for i=3 to 20a(i)=a(i-2)+a(i-1)print a(i)next iend sub21、3+33+333+……+33……3的n项之和。
n通过键盘输入。
Private Sub Command1_Click()Dim s%,t%,i%,n%t=0s=0n=inputbox(“请输入数”)for i=1 to nt=t*10+3s=s+tprint t,snext iprint send sub22、求a+aa+aaa+……+aa……a(最后一项为n个a)的值，其中a是一个数字。
Private Sub Command1_Click()Dim a%,s%,t%,i%,n%t=0s=0a=inputbox(“”)n=inputbox(“”)for i=1 to nt=t*10+as=s+tprint t,snext iprint send sub23、由1、2、3、4这四个数字可以组成的所有四位数及其个数。
（各位数字可以重复）Private Sub Command1_Click()Dim a%,b%,c%,d%,k%For a=1 to 4For b=1 to 4For c=1 to 4For d=1 to 4If a<>b and a<>c and a<>dPrint a*1000+b*100*c*10+d:k=k+1If k mod 15 =0 then printNext dNext cNext bNext aPrint kEnd sub24、求由6、7、8、9这四个数字可以组成的四位数及其个数。
（各位数字不可以重复）25、任意输入一个字符串，输出其中大写字母并统计其个数。
Private Sub Command1_Click()Dim s$,c$,d%,x%,q%S=inputbox(“ksjfhieuhf”)For i=1 to len(s)C=mid(s,t,1)If c>=＂Ａ＂and c<=”Z” thend=d+1print celseif c>=”a” and c<=”z” thenx=x+1elseq=q+1end ifnext iprint d,xend sub26、百钱百鸡问题。
公鸡每只5钱，母鸡每只3钱，鸡雏1 钱3只。
100钱买了100只鸡。
问三种鸡各买了多少只？Private Sub Command1_Click()Dim x%,y%,z%For x=0 to 19For y=0 to 33For z=0 to 100If((5*x+3*y+z/3.0=100) and (x+y+z=100)) thenPrint x;y;zEnd ifNext zNext yNext xEnd sub27、求s=1-1/2+1/3-1/4+1/5-1/6+……+1/19-1/20的和。
Private Sub Command1_Click()Dim s!, i%For i = 1 To 20If i Mod 2 = 0 Thens = s - 1 / iElses = s + 1 / iEnd IfNext iPrint sEnd Sub28、求1+1/2+1/3+1/5+1/8+1/13+……的前10项之和。