ابتدا ضرایب معادله درجه دوم را وارد می کنیم سپس مختصات نقطه ی مورد نظر را وارد می کنیم در نهایت برنامه معادله های مماس از نقطه به سهمی را چاپ خواهد کرد

CLS INPUT "a,b,c : ", a, b, c INPUT " x,y : ", x, y PRINT IF a = 0 THEN PRINT "nemodar daregha dovom ra vared coned !!": END d = a * x ^ 2 + b * x + c IF d = y THEN PRINT "noghteh ros khat ast": END e = 1 / a * (d - y) IF e < 0 THEN PRINT "gher momken": END FOR i = -1 TO 1 STEP 2 f = x + (SQR(e) * i) g = 2 * a * f + b h = -a * (f ^ 2) + c IF h > 0 THEN h$ = "+" + STR$(h) ELSE h$ = STR$(h) END IF SELECT CASE g CASE 0 PRINT "y="; h CASE 1 IF h = 0 THEN PRINT "y=x" ELSE PRINT "y=x "; h$ END IF CASE -1 IF h = 0 THEN PRINT "y=x" ELSE PRINT "y=-x "; h$ END IF CASE ELSE IF h = 0 THEN PRINT "y="; g; "* X" ELSE PRINT "y="; g; "* X "; h$ END IF END SELECT PRINT NEXT i END

نویسنده برنامه رسول فضلی