高中数学必修3程序大全.docVIP

Program and list(应用程序和目录) 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 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 求值 Input “a=”;a; Input “b=”;b Print “s=”;a^b+b^a End 04.BAS 求一个数的绝对值 Input “x=”;x Let y=abs(x) Print “the number absolute value is”;y 05.BAS 求一个数的绝对值 Inupt “x=”;x If x0 then Print “absolute value is”;x else If x=0 then Print “absolute value is”;0 Else Print “abosolute value is”;-x End if End if end 06.ABS 任给一个自然数a( 输出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 求和： Input “n=”;n i=1 s=0 while i=n-1 s=s+10^(i-1) i=i+1 wend print “s=”;s 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 09.ABS 解二元一次方程组 Program: Input a1,b1,c1,a2,b2,c2 m=a1*b2-a2*b1 p=b1*c2-b2*c1 q=c1*a2-c2*a1 if m0 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 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 in let s=a*s print :s=”;s end 11.BAS 求两个正整数的最大公约数 【辗转相除法】 program: input “m=”;m input “n=”;n if mn then t=m m=n n=t end if r=1 while r0 r= m mod n if r=0 then print “the greatest common divisor of m an