# BASIC PROGRAMMING II

## BASIC PROGRAMS

### FIND SUQARE ROOT OF NUMBERS

10 REM FIND SUQARE ROOT OF NUMBERS

20 INPUT “ENTER FIRST NUMBER OF RANGE”; A

30 INPUT “ENTER LAST NUMBER OF RANGE”; B

40 FOR I = A TO B

50 PRINT “THE SUARE ROOT OF “; A; “IS “;SQR(A)

60 NEXT A

70 END

## FIND SQUARE ROOT OF S ROUNDED UP TO AN INTEGER

10 REM FIND SUQARE ROOT S

20 INPUT “ENTER NUMBER”; A

30 S = INT(SQR(A))

40 PRINT “THE SQUARE ROOT OF S ROUNDED OFF “;A; “IS “; S

50 END

## FIND THE COSINE OF KNOW VALUES

10 REM FIND TANGENT OF GIVEN ANGLE

20 INPUT “ENTER NUMBER”; A

30 S = TAN(A)

40 PRINT “THE TANGENT OF “;A; “IS “; S

50 END

## PLOT SINE WAVE CURVE

We can get the y position of sine wave at any of these 360 points by using the SIN command. Unfortunately the SIN command requires the input Radians but we can convert degrees to radians but multiplying the degrees by 0.017453. so to get the Y position of the sine wave at 90 degrees we would use this

PRINT SIN(90*0.017453)

Of course using a scale of -1 to +1 is a bit limited in my opinion and it requires a bit of multiplication and addition so that we can get a range of something like 0 to 100 with 50 being the midpoint. To make this so:

10 PRINT (SIN (dg% *0.017453)*50)+50

20 SCREEN 13

30 FOR X%= 0 TO 360

40 PSET (X%, (SIN(X%*0.017453)*50)+50),15

50 NEXT X%

60 END

## PLOT COSINE CURVE

20 SCREEN 13

30 FOR x% = 0 to 360

40 PSET (x%, (COS(x%*0.017453)*50)+50),15

50 NEXT x%

60 END

ASSESSMENT ® Write a BASIC program to find the tangent of an angle

Student are allowed to give corrections to the assessment given by the teacher ,while the teacher support s them in order to guide them

BASIC PROGRAMMING

FLOW CHART

ALGORITHM AND FLOW CHART

PROGRAM DEVELOPMENT

### Get A Free USA Scholarship, Visa & Accommodation

Program Development