12 lines
226 B
Text
12 lines
226 B
Text
|
PROGRAM RANGE
|
||
|
|
|
||
|
|
BEGIN
|
||
|
|
AL=0 AH=10
|
||
|
|
BL=-1 BH=0
|
||
|
|
FOR N=0 TO 10 DO
|
||
|
|
RANGE=BL+(N-AL)*(BH-BL)/(AH-AL)
|
||
|
|
WRITE("### maps to ##.##";N;RANGE)
|
||
|
|
! PRINT(N;" maps to ";RANGE)
|
||
|
|
END FOR
|
||
|
|
END PROGRAM
|