14 lines
290 B
ObjectPascal
14 lines
290 B
ObjectPascal
program map(output);
|
|
(* Map range *)
|
|
var
|
|
i: integer;
|
|
|
|
function maprange(a1, a2, b1, b2: real; s: real): real;
|
|
begin
|
|
maprange := (s - a1) * (b2 - b1) / (a2 - a1) + b1;
|
|
end;
|
|
|
|
begin
|
|
for i := 0 to 10 do
|
|
writeln(i: 2, ' maps to: ', maprange(0.0, 10.0, -1.0, 0.0, i): 10);
|
|
end.
|