Angles (geometric), normalization and conversion: Difference between revisions
Content deleted Content added
Added Akgol 68 |
→{{header|ALGOL 68}}: Tweak |
||
Line 232:
=={{header|ALGOL 68}}==
{{Trans|11l|using an array of procedures to simplify the output}}
<syntaxhighlight lang="algol68">
BEGIN # Angles (geometric), normalization and conversion - translated from the 11l sample #
Line 267:
STRING underline = "----------------------------------------------------------------------------------";
PROC
BEGIN
print( ( heading, newline ) );
print( ( underline, newline ) );
REAL v = values[ i ];
FOR p FROM LWB f TO UPB f DO
▲ PROC print values = ( PROC(REAL)REAL norm, f2a, f2b, f2c )VOID:
OD;
▲ print( ( f7d7( v ), " ", f7d7( norm( v ) ), " ", f7d7( f2a( v ) ), " " ) );
print( (
printhd( " Degrees Normalized Gradians Mils Radians" );▼
printhd( " Gradians Normalized Degrees Mils Radians" );▼
print values( normg, g2d, g2m, g2r );▼
printhd( " Mils Normalized Degrees Gradians Radians" );▼
print values( normm, m2d, m2g, m2r );▼
);
);
, ( normr, r2d, r2g, r2m )
)
END
|