How to resolve the algorithm Trigonometric functions step by step in the Modula-2 programming language

Published on 12 May 2024 09:40 PM
#Modula-2

How to resolve the algorithm Trigonometric functions step by step in the Modula-2 programming language

Table of Contents

Problem Statement

If your language has a library or built-in functions for trigonometry, show examples of: using the same angle in radians and degrees. For the non-inverse functions,   each radian/degree pair should use arguments that evaluate to the same angle   (that is, it's not necessary to use the same angle for all three regular functions as long as the two sine calls use the same angle). For the inverse functions,   use the same number and convert its answer to radians and degrees. If your language does not have trigonometric functions available or only has some available,   write functions to calculate the functions based on any   known approximation or identity.

Let's start with the solution:

Step by Step solution about How to resolve the algorithm Trigonometric functions step by step in the Modula-2 programming language

Source code in the modula-2 programming language

MODULE Trig;
FROM RealMath IMPORT pi,sin,cos,tan,arctan,arccos,arcsin;
FROM RealStr IMPORT RealToStr;
FROM Terminal IMPORT WriteString,WriteLn,ReadChar;

PROCEDURE WriteReal(v : REAL);
VAR buf : ARRAY[0..31] OF CHAR;
BEGIN
    RealToStr(v, buf);
    WriteString(buf)
END WriteReal;

VAR theta : REAL;
BEGIN
    theta := pi / 4.0;

    WriteString("theta: ");
    WriteReal(theta);
    WriteLn;

    WriteString("sin: ");
    WriteReal(sin(theta));
    WriteLn;

    WriteString("cos: ");
    WriteReal(cos(theta));
    WriteLn;

    WriteString("tan: ");
    WriteReal(tan(theta));
    WriteLn;

    WriteString("arcsin: ");
    WriteReal(arcsin(sin(theta)));
    WriteLn;

    WriteString("arccos: ");
    WriteReal(arccos(cos(theta)));
    WriteLn;

    WriteString("arctan: ");
    WriteReal(arctan(tan(theta)));
    WriteLn;

    ReadChar
END Trig.

You may also check:How to resolve the algorithm Hailstone sequence step by step in the SAS programming language
You may also check:How to resolve the algorithm Strip whitespace from a string/Top and tail step by step in the Nemerle programming language
You may also check:How to resolve the algorithm Catamorphism step by step in the Quackery programming language
You may also check:How to resolve the algorithm Sorting algorithms/Quicksort step by step in the Craft Basic programming language
You may also check:How to resolve the algorithm Map range step by step in the Ruby programming language