11 lines
226 B
Text
11 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
|