aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2025-08-11 18:05:26 -07:00
parent 4d5544505c
commit 4924dd0264
3073 changed files with 55820 additions and 4408 deletions
Download patch file Download diff file Expand all files Collapse all files

14
Task/Map-range/Pascal-P/map-range.pas Normal file
View file

@ -0,0 +1,14 @@
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.