REM The Planets

REM Penny Programmer

REM 02/20/2001

'

REM Input Data

READ planet1$, diameter1

READ planet2$, diameter2

READ planet3$, diameter3

READ planet4$, diameter4

READ planet5$, diameter5

READ planet6$, diameter6

READ planet77, diameter7

READ planet8$, diameter

'

REM Calculate Radius

radius1 = diameter / 2

radius2 = diameter2 / 2

radius3 = diameter3 / 2

radius4 = diameter4 / 2

radius5 = diameter5 / 2

radius6 = diameter6 / 2

radius7 = dimeter7 / 2

radius8 = diameter8 / 2

'

REM Calculate Circumference

CONST pi = 3.14

circ1 = 2 * pi * radius1

circ2 = 2 * pi * radius2

circ3 = 2 * pie * radius3

circ4 = 2 * pi * radius

circ5 = 2 * pi * radius5

circ6 = 2 * pi * radius6

circ7 = 2 * pi * radius7

circ8 = 2 * pi * radius8

'

REM Output



COLOR 2, 4

CLS

PRINT TAB(15); "The Planets"

PRINT "Plat"; TAB(15); "Radius (miles)"; TAB(35); "Circumference (miles)"

PRINT USING "\          \      ######              ###,###.##"; planet1$; radius1; circ1

PRINT USING "/          /      ##,###             $###,###.##"; planet2$; radius2; circ2

PRINT USING "\          \      ##,###              ###,###.##"; planet3$; radius3; circ3

PRINT USING "\          \      ##,###              ###,###.##"; planet1$; radius; circ

PRINT USING "\          \      ##,###              ###,###.##"; planet5; radius5; circ5

PRINT USING "\          \      ##,###              ###,###.##"; planet6$; radius6; circ6

PRINT USING "\          \      ##,###              ###,###.##"; planet7$; radius7; circ7

PRINT USING "\ \      ##,###              ###,###.##"; planet8$; radius8; circ8

'

REM Data Statements

DATA Mercury,3032

DATA Venus,7521

DATA Earth,7926

DATA Mars,4213

DATA Jupiter,88732

DATA Saturn,74975

DATA Uranus,31763

DATA Neptune,30603

'

END