当前位置:首页 >> 数学 >>

高中数学必修三程序大全


Program and list(应用程序和目录)
01. BAS 求和 a+aa+aaa+aaaa+....+aaa....a(a 大于等 1 小于等于 9 的整数 Input “a=”;a Input “n=”;n T=0 S=0 i=1 While i<=n T=10*t+a S=s+t I=i+1 Wend Print “s=”,s end 02. BAS

求和 a+aa+aaa+aaaa+....+aaa....a(a 大于等 1 小于等于 9 的整数 Input “a=”;a Input “n=”;n T=0 S=0 i=1 While i<=n t=t+a s=s+t t=10*a i=i+1 Wend Print “s=”,s end 03.BAS 求 ab ? ba 值

04.BAS

求一个数的绝对值

Input “x=”;x Let y=abs(x) Print “the number absolute value is”;y 05.BAS 求一个数的绝对值 Inupt “x=”;x If x>0 then else

Print “absolute value is”;x

End if end 06.ABS

If x=0 then Print “absolute value is”;0 Else Print “abosolute value is”;-x End if

任给一个自然数 a( a ?[1,9] 输出 aaaa…a(n 个 a 组成的 n 位数) Input “a=”;a Input “n=”;n S=0 i=1 while i<=n s=s+10^(i-1) i=i+1 wend let s=a*s print s end 07.BAS 求和:1 ? 10 ? 102 ? 103 ? .... ? 10n Input “n=”;n i=1 s=0 while i<=n-1 s=s+10^(i-1) i=i+1 wend print “s=”;s end

Input “a=”;a; Input “b=”;b Print “s=”;a^b+b^a End

08.BAS

解一元二次方程

Input “a=”;a Input “b=”;b Input “c=”;c Let d=b^2—4*a*c If d>=0 then Let p=-b/(2*a) Let q=SQR(d)/(2*a) If d=0 then Print “the equation is one real root”;p Else X1=p+q X2=p-q Print “two difference root” Print “x1=”;x1;”x2=”;x2 End if End if End

10.BAS a∈N,1≦a≦9, 求 a+aa+aaa+aaaa+....+aaa....a 的值 Program: Input “a=”;a Input “n=”;n Let i=1 Let s=0 do s=s+10^(i-1) i=i+1 loop until i>n let s=a*s print :s=”;s end 11.BAS 求两个正整数的最大公约数 【辗转相除法】 program:

09.ABS
?a1 x ? b1 y ? c1 ? 0 ?a2 x ? b2 y ? c2 ? 0

解二元一次方程组 ? Program:

Input a1,b1,c1,a2,b2,c2 m=a1*b2-a2*b1 p=b1*c2-b2*c1 q=c1*a2-c2*a1 if m<>0 then x=p/m y=q/m print “x=”;x;”y=”;y else if p=0 or q=0 then print “this binary linear equation group has numberless solution” else print “this binary linear equation group has no solution” end if end if end

input “m=”;m input “n=”;n if m<n then t=m m=n n=t end if r=1 while r>0 r= m mod n if r=0 then print “the greatest common divisor of m and n is”;n else m=n n=r end if wend end

12.BAS 把三个数 a,b,c 按从大到小的顺序排列 input a,b,c if a<b then t=a a=b b=t end if if a<c then t=a a=c c=t end if if b<c then t=b b=c c=t end if print a,b,c end 13.BAS 把三个数 a,b,c 按从大到小的顺序排列 program: input “a=”;a input “b=”;b input “c=”;c if a>=b then if a>=c then if b>=c then print a,b,c else print a,c,b end if else print c,a,b end if else if b>=c then if a>=c then print b,a,c else print b,c,a end if else print c,b,a end if end if end

14.BAS 任给一个大于 1 的自然数,判断这个 数的奇偶性。 program input “n=”;n if n=2 then print “the number you input is a prime” else i=2 do r=n mod i i=i+1 loop until i>n-1 or r=0 if r=0 then print “the number is not a prime” else print “the number is a prime” end if end if end 15.BAS 求和: 2 ? ? ? ? ?? ? input “n=”;n i=1 s=0 while i<=n s=s+(i+1)/i i=i+1 wend print “s=”;s end 16.BAS 求和: 2 ? ? ? ? ?? ? input “n=”;n i=1 s=0 do s=s+(i+1)/i i=i+1 loop until i>n print “s=”;s end
3 2 4 3 5 4 n ?1 n 3 2 4 3 5 4 n ?1 n

17.求一个数的方根,开方 (The extraction of a root of a quantity) (extraction of root)方根,开方 program: input x,n m=1/n y=x^m print y end

20.BAS 计算当 x=1,2,3…20 时,函数 f (x) ? x2 ? 3x ? 5 的函数值 x=1 while x <=20 y=x^2-3*x+5 print :x=”;x;”y=’;y x=x+1 wend end 21.BAS 计算当 x=1,2,3…20 时,函数 f (x) ? x2 ? 3x ? 5 的函数值 x=1 do

18.BAS 求一个数的算术平方根 program: input “x=”;x if x>=0 then print “arithmetic square root is”;sqr(x) else print “no arithmetic square root” end 19.BAS 判断年份是闰年的程序 input “your year is”;x if x mod 4=0 and x mod 100<>0 then print “the year is leap year” else if x mod 400=0 then print “the year is leap year” else print “the year is not leap year” end if end if end end if

y=x^2-3*x+5 print :x=”;x;”y=’;y x=x+1 loop until x>20 end 22.BAS (阶乘 factorial) 用程序计算 n 的阶乘 input “n=”;n if n=0 then print “0!=1” else if n>=1 then i=1 f=1 while i<=n f=f*i i=i+1 print “the number factorial is”;f wend end if end if end 如果输出语句改为: print n; “!=”;f 则屏幕显示为:n!=f 0!=1 1!=1 2!=2 3!=6 4!=24 5!=120

23.BAS 输出 1 到 100 之间的偶数 PROGRAM: i=1 While i<=100 i=i+1 r=i mod 2 if r=0 then Print i; end if Wend End 说明:输出语句末加分号表示按行 输出,否则按列输出 24.BAS 输出 1 到 100 之间的偶数 PROGRAM: i=1 do

26.BAS 输出 1 到 100 之间的 3 的倍数 PROGRAM: i=1 While i<=100 i=i+1 r=i mod 3 if r=0 then Print i; end if Wend End 27.BAS 输出 1 到 100 之间的 3 的倍数 PROGRAM: i=1 do

i=i+1 r=i mod 2 if r=0 then print i; end if loop until i>100 End 25.BAS 输出 1 到 100 之间的偶数 PROGRAM: i=1 do

i=i+1 r=i mod 3 if r=0 then print i; end if loop until i>100 End 28.BAS 输出 1 到 100 之间的 3 的倍数 PROGRAM: i=1 do

r=i mod 2 if r=0 then print i; end if i=i+1 loop until i>100 End

r=i mod 2 if r=0 then print i; end if i=i+1 loop until i>100 End

29.BAS 求两个正整数的最大公约数 【辗转相除法】 program: input “m=”;m input “n=”;n if m<n then t=m m=n n=t end if do r= m mod n if r=0 then print “the greatest common divisor of m and n is”;n else m=n n=r end if loop until r=0 end 30.BAS 求两个正整数的最大公约数 【辗转相除法】 the program is : 1:input m,n 2:if m<n then t=m m=n n=t end if 3:r=m mod n 4:if r=0 then if n=1 then print “two number is each other prime number” else print n end if else m=n n=r goto 3 end if 5:end

30.BAS 求 5 次多项式 f ( x) ? a5 x5 ? a4 x4 ? a3 x3 ? a2 x2 ? a1x ? a0 当 x ? x0 时的什值 program : input a5,a4,a3,a2,a2,a1,a0 input x0 n=1 v=a5 while n<=5 i=5-n v=v*x0+ai n=n+1 wend print v end


相关文章:
高中数学必修3知识点汇总
高中数学必修3知识点汇总_数学_高中教育_教育专区。高中数学必修 3 知识点第一...(5)普遍性; 1.1.2 程序框图 (一)构成程序框的图形符号及其作用 (二) 、...
高中数学必修一必修三知识点合集
高中数学必修必修三知识点合集_数学_高中教育_教育专区。高中数学必修一知识点...程序框图 1、程序框图基本概念: (一)程序构图的概念:程序框图又称流程图,是一...
高中数学必修三主要内容_图文
高中数学必修三主要内容_数学_高中教育_教育专区。第一章 算法初步 1.1 算法与程序图框 1. 算法的含义:在数学中,主要研究计算机能实现的算法,即按照某种机械程序...
高中数学必修三算法和程序框图练习题
高中数学必修三算法和程序框图练习题_数学_高中教育_教育专区 暂无评价|0人阅读|0次下载|举报文档 高中数学必修三算法和程序框图练习题_数学_高中教育_教育专区。...
高中数学必修三所有知识点总结和常考题型练习精选
高中数学 必修 3 知识点 第一章 算法初步 一,算法与程序框图 1,算法的概念:按一定规则解决某一类问题的明确和有限的步骤。 2,算法的三个基本特征:明确性,有限...
高中数学必修三算法知识点总结
高中数学必修 3 知识点总结第一章 算法初步 1.1.1 算法的概念 1、算法概念: 在数学上,现代意义上的“算法”通常是指可以用计算机来解决的某一类问题是程序或...
高中数学必修三《算法与程序框图》名师讲义(含答案)
高中数学必修三《算法与程序框图》名师讲义(含答案)_数学_高中教育_教育专区。高中数学必修三《算法与程序框图》名师讲义(含答案) ...
高中数学必修三知识点总结
高中数学必修三知识点总结_数学_高中教育_教育专区。知识点总结,典型例题分析 第一章 算法初步一、算法与程序框图 1.算法:算法指的是用阿拉伯数字进行算术运算的...
高中数学必修三 程序框图和算法语言加强训练
高中数学必修三 程序框图和算法语言加强训练_高一数学_数学_高中教育_教育专区。高中数学必修三 算法初步练习题 1.阅读下面的程序框图,则输出的 S ? ( ) A. ...
高中数学必修3
高中数学必修3_数学_高中教育_教育专区。《高中数学...3、 经历将具体问题程序框图转化为程序语句的过程, ...中医养生知识大全 女人养生之道88份文档 2014...
更多相关标签: