Map range: Difference between revisions
Map range en FreeBASIC
MaiconSoft (talk | contribs) m (Added Delphi reference to Pascal code) |
(Map range en FreeBASIC) |
||
Line 1,114:
end function Maprange
end program Map</lang>
=={{header|FreeBASIC}}==
{{trans|Yabasic}}
<lang freebasic>Function MapRange(s As Integer, a1 As Integer, a2 As Integer, b1 As Integer, b2 As Integer) As Double
Return b1+(s-a1)*(b2-b1)/(a2-a1)
End Function
For i As Integer = 0 To 10
Print Using "## maps to ##.#"; i; MapRange(i,0,10,-1,0)
Next i
Sleep</lang>
{{out}}
<pre>
0 maps to -1.0
1 maps to -0.9
2 maps to -0.8
3 maps to -0.7
4 maps to -0.6
5 maps to -0.5
6 maps to -0.4
7 maps to -0.3
8 maps to -0.2
9 maps to -0.1
10 maps to 0.0
</pre>
=={{header|Go}}==
| |||