Rosetta Code

Angles (geometric), normalization and conversion: Difference between revisions

Page Discussion

Angles (geometric), normalization and conversion (view source)

Revision as of 11:46, 21 January 2024

46 bytes added ,  4 months ago
→‎{{header|ALGOL 68}}: Tweak
(Added Akgol 68)
Line 232:
 
=={{header|ALGOL 68}}==
{{Trans|11l|using an array of procedures to simplify the output}}
{{Trans|11l}}
<syntaxhighlight lang="algol68">
BEGIN # Angles (geometric), normalization and conversion - translated from the 11l sample #
Line 267:
 
STRING underline = "----------------------------------------------------------------------------------";
PROC printhdf7d7 = ( STRINGREAL headingv )VOIDSTRING: fixed( v, -15, 7 );
 
PROC print values = ( STRING heading, []PROC(REAL)REAL norm, f2a, f2b, f2cf )VOID:▼
BEGIN
print( ( heading, newline ) );
print( ( underline, newline ) );
END # print heaading #FOR ;i FROM LWB values TO UPB values DO
REAL v = values[ i ];
 
PROC f7d7 = ( REAL v )STRING: fixed print( ( f7d7( v, -15,) 7) );
FOR p FROM LWB f TO UPB f DO
 
print( ( f7d7( vprint( ),( " ", f7d7( norm(f[ vp ) ), " ", f7d7( f2a]( v ) ), " " ) );▼
▲ PROC print values = ( PROC(REAL)REAL norm, f2a, f2b, f2c )VOID:
FOR i FROM LWB values TO UPB values DOOD;
REAL v = values[ iprint( ];( newline ) )
OD;
▲ print( ( f7d7( v ), " ", f7d7( norm( v ) ), " ", f7d7( f2a( v ) ), " " ) );
print( ( f7d7( f2b( v ) ), " ", f7d7( f2c( v ) ), newline ) )
ODEND # print values # ;
 
printhd( " Degrees Normalized Gradians Mils Radians" );▼
print values( normd, d2g, d2m, d2r );
print( ( newline ) );
 
printhd( " Gradians Normalized Degrees Mils Radians" );▼
print values( normg, g2d, g2m, g2r );▼
print( ( newline ) );
 
printhd( " Mils Normalized Degrees Gradians Radians" );▼
print values( normm, m2d, m2g, m2r );▼
print( ( newline ) );
 
printhdprint values( " RadiansDegrees Normalized DegreesGradians Gradians Mils Mils" ); Radians"
print values , ( normrnormd, r2dd2g, r2gd2m, r2md2r );
print( ( newline ) );
▲ printhdprint values( " DegreesGradians Normalized GradiansDegrees Mils Radians" );
▲ print values , ( normg, g2d, g2m, g2r );
);
▲ printhdprint values( " Mils Normalized Degrees Gradians Radians" );
▲ print values , ( normm, m2d, m2g, m2r );
);
▲ printhdprint values( " Gradians Radians Normalized Degrees Gradians Mils RadiansMils" );
, ( normr, r2d, r2g, r2m )
)
 
END
Tigerofdarkness
3,043

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/353854"