# 高中数学必修三程序大全

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

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

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