*** empty log message ***
This commit is contained in:
14
lang/basic/test/opg6.b
Normal file
14
lang/basic/test/opg6.b
Normal file
@@ -0,0 +1,14 @@
|
||||
1000 rem Temperature conversion
|
||||
1010 print "fahrenheit","centrigrade","kelvin","rankin"
|
||||
1020 for s= 1 to 5
|
||||
1030 print
|
||||
1040 next s
|
||||
1050 for i= 1 to 12
|
||||
1060 read f
|
||||
1070 let c= 5/9 *(f-32)
|
||||
1080 let k = c+273
|
||||
1090 let r= f+ 460
|
||||
1100 print f,c,k,r
|
||||
1110 next i
|
||||
1120 data 144, 36,110,98,63,26,14,78,66,51,107,2
|
||||
1130 end
|
||||
Reference in New Issue
Block a user