Parallel Lines        Congruent Tri.        Congruent R. Tri.        Isosc. and Equil.        Quadrilaterals        Parallelograms        Ratios        Similar Polygons        Special Triangles       Circles        Area        Coordinate Geo.        Triangle Ineq.        Solids    Computer Fun On this page, we've put together a small collection of QBASIC programs that help you solve some of the more common problems geometry deals with, such as finding the measure of the third angle of a triangle when you know the other two angles' measures.  Have fun! Note that although the code is included on this page, there are links you can click on that will allow you to download the files in .BAS (QBasic v1.1) format.  Feel free to edit these programs and do whatever you want with them (they are public domain)! For those using Microsoft® operating systems (MS-DOS, Windows, etc.), you can download the "official" QBasic (v1.1) from the following address: http://eagleperch.net/qbasic.html.  For those using other operating systems, you can use some other flavor of BASIC  Search the Internet and you'll find a number of compilers. Finding the third angle of a triangle Classifying angles Finding an exterior angle of a triangle Angles of a polygon Lengths of sides of right triangles Lines Volume and total area of a cylinder Quiz on QBasic Geometry Programs This program asks the user for the measures (in degrees) of two angles of a triangle and then figures out the measure of the third angle. ``` ' Programmed by John Paul Pruess. ' Completed on July 18th, 1997. ' ' Some source taken from Harper & Row ' Geometry by Max A. Sobel, pub. Scribner ' Laidlaw, NY. CLS ' Clears the screen. 10 PRINT "First angle"; 20 INPUT A 30 IF A > 180 THEN 10 40 PRINT "Second angle"; 50 INPUT B 60 IF (A + B) > 180 THEN 40 70 LET C = 180 - (A + B) 80 PRINT "Third angle = "; C END ' End of program. ``` Download the program. Back to Top  This program takes the measure of an angle between 0o and 180o and classifies the angle as acute, right, or obtuse. ``` ' Programmed by John Paul Pruess. ' Completed on July 18th, 1997. ' ' Some source taken from Harper & Row ' Geometry by Max A. Sobel, pub. Scribner ' Laidlaw, NY. Start: CLS INPUT "Degrees in angle"; D IF D <= 0 THEN GOTO Start IF D >= 180 THEN GOTO Start IF D < 90 THEN GOTO Acute IF D = 90 THEN GOTO Right PRINT D; " is an Obtuse Angle.": GOTO 100 Right: PRINT D; " is a Right Angle.": GOTO 100 Acute: PRINT D; "is an Acute Angle.": GOTO 100 100: INPUT "Another (Y/N)"; YN\$ IF YN\$ = "y" THEN GOTO Start IF YN\$ = "Y" THEN GOTO Start IF YN\$ = "n" THEN GOTO Ending IF YN\$ = "N" THEN GOTO Ending Ending: END ' End of program. ``` Download the program. Back to Top  This program displays the measure of an exterior angle of a triangle, given the measures of the two remote interior angles. ``` ' Programmed by John Paul Pruess. ' Completed on July 18th, 1997. ' ' Some source taken from Harper & Row ' Geometry by Max A. Sobel, pub. Scribner ' Laidlaw, NY. 10 CLS 20 INPUT "Measure of Angle A"; A 30 IF A <= 0 THEN 10 40 IF A >= 180 THEN 10 50 INPUT "Measure of Angle B"; B 60 IF B <= 0 THEN 50 70 IF B >= 180 THEN 50 80 LET E = (A + B) 90 PRINT "Exterior angle = "; E 100 INPUT "Another (Y/N)"; YN\$ 110 IF YN\$ = "Y" THEN GOTO 10 120 IF YN\$ = "y" THEN GOTO 10 130 IF YN\$ = "N" THEN GOTO 150 140 IF YN\$ = "n" THEN GOTO 150 ELSE BEEP: GOTO 100 150 END ``` Download the program. Back to Top  This program asks you how many sides an n-gon has and then displays the number of sides and the angle sum for all polygons from a three sided polygon (triangle) to the n-sided one you entered. ``` ' Programmed by John Paul Pruess. ' Completed on July 18th, 1997. ' ' Some source taken from Harper & Row ' Geometry by Max A. Sobel, pub. Scribner ' Laidlaw, NY. 10 CLS 11 INPUT "How many sides does the polygon have"; I 12 IF I < 3 THEN BEEP: GOTO 11 13 LET Z = INT(I) 20 PRINT 30 PRINT "No. Sides", "Angle Sum" 40 PRINT "---------", "---------" 50 FOR N = 3 TO Z 60 LET S = 180 * (N - 2) 70 PRINT N, S 80 NEXT N 90 PRINT 100 INPUT "Another (Y/N)"; YN\$ 110 IF YN\$ = "Y" THEN GOTO 10 120 IF YN\$ = "y" THEN GOTO 10 130 IF YN\$ = "n" THEN GOTO 150 140 IF YN\$ = "N" THEN GOTO 150 ELSE BEEP: GOTO 100 150 END ``` Download the program. Back to Top  This program finds an unknown length of a side of a right triangle. ``` ' Programmed by John Paul Pruess. ' Completed on July 18th, 1997. ' ' Some source taken from Harper & Row ' Geometry by Max A. Sobel, pub. Scribner ' Laidlaw, NY. 10 CLS 20 PRINT "Enter lengths of sides" 30 PRINT "of right triangle, legs" 40 PRINT "first. Enter a zero for" 50 PRINT "the unknown side." 55 PRINT 60 INPUT "What is the length of Leg 1"; A 70 INPUT "What is the length of Leg 2"; B 80 INPUT "What is the length of the hypotenuse"; C 90 IF A < 0 THEN BEEP: GOTO 60 100 IF B < 0 THEN BEEP: GOTO 70 110 IF C < 0 THEN BEEP: GOTO 80 120 IF A = 0 THEN GOTO 200 130 IF B = 0 THEN GOTO 170 140 LET C = SQR(A * A + B * B) 150 PRINT "Hypotenuse = "; C 160 GOTO 220 170 LET B = SQR(C * C - A * A) 180 PRINT "Unknown leg = "; B 190 GOTO 220 200 LET A = SQR(C * C - B * B) 210 PRINT "Unknown leg = "; A 220 INPUT "Another (Y/N)"; YN\$ 230 IF YN\$ = "Y" THEN GOTO 10 240 IF YN\$ = "y" THEN GOTO 10 250 IF YN\$ = "N" THEN GOTO 270 260 IF YN\$ = "n" THEN GOTO 270 ELSE BEEP: GOTO 220 270 END ``` Download the program. Back to Top  This program asks you for the endpoints of a line segment that has been graphed on a coordinate plane.  It then computes the slope of the segment, the midpoint of the segment, and the distance between the endpoints. ``` ' Programmed by John Paul Pruess. ' Completed on July 18th, 1997. ' ' Some source taken from Harper & Row ' Geometry by Max A. Sobel, pub. Scribner ' Laidlaw, NY. 5 CLS 10 PRINT "Input coordinates of Point 1." 15 INPUT "X1 = "; X1 20 INPUT "Y1 = "; Y1 30 PRINT "Input coordinates of Point 2." 35 INPUT "X2 = "; X2 40 INPUT "Y2 = "; Y2 50 LET M1 = ((X1 + X2) / 2) 60 LET M2 = ((Y1 + Y2) / 2) 70 PRINT "Midpoint = ("; M1; ", "; M2; ")" 80 LET D = SQR(((X2 - X1) ^ 2) + (Y2 - Y1) ^ 2) 90 PRINT "Distance = "; D 100 IF X1 = X2 THEN 140 110 LET M = ((Y2 - Y1) / (X2 - X1)) 120 PRINT "Slope = "; M 130 GOTO 150 140 PRINT "Slope is undefined." 150 INPUT "Another (Y/N)"; YN\$ 160 IF YN\$ = "Y" THEN GOTO 5 170 IF YN\$ = "y" THEN GOTO 5 180 IF YN\$ = "n" THEN GOTO 200 190 IF YN\$ = "N" THEN GOTO 200 ELSE BEEP: GOTO 150 200 END ``` Download the program. Back to Top  This program computes the volume or total area of a cylinder. ``` ' Programmed by John Paul Pruess. ' Completed on July 18th, 1997. Start: CLS LET P = 3.14159 PRINT "1. Volume" PRINT "2. Total Area" PRINT INPUT "What is your selection"; S LET S2 = INT(S) IF S2 < 1 THEN BEEP: GOTO Start IF S2 > 2 THEN BEEP: GOTO Start IF S2 = 2 THEN GOTO TotalArea IF S2 = 1 THEN GOTO Volume Volume: CLS INPUT "How long is the radius"; R INPUT "How tall is the cylinder"; H LET V = (P * H * (R ^ 2)) PRINT "The volume = "; V GOTO Again TotalArea: CLS INPUT "How long is the radius"; R INPUT "How tall is the cylinder"; H LET T = 2 * P * R * (H + R) PRINT "The total area = "; T GOTO Again Again: PRINT INPUT "Another (Y/N)"; YN\$ IF YN\$ = "Y" THEN GOTO Start IF YN\$ = "y" THEN GOTO Start IF YN\$ = "N" THEN GOTO 200 IF YN\$ = "n" THEN GOTO 200 200 END ``` Download the program. Back to Top  Take the Quiz on QBasic geometry programs.  (Very useful to review or to see if you've really got this topic down.)  Do it!

Math for Morons Like Us - Geometry: Computer Fun
/20991/geo/computer.html