14 lines
313 B
QBasic
14 lines
313 B
QBasic
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
|