DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦b7ba7c347⟧ TextFile

    Length: 640 (0x280)
    Types: TextFile
    Names: »TRIGONOM.PAS«

Derivation

└─⟦08ea08c61⟧ Bits:30003924 PolyPascal programmer
    └─ ⟦this⟧ »TRIGONOM.PAS« 
└─⟦09235ab48⟧ Bits:30003065 Demoprogrammer K-Z til Pascal bog
    └─ ⟦this⟧ »TRIGONOM.PAS« 
└─⟦092727b26⟧ Bits:30005927 Demoprogrammer til Pascal bog (Jet-80)
    └─ ⟦this⟧ »TRIGONOM.PAS«

TextFile

PROGRAM trigonom;

  VAR
    gradtal, radiantal : REAL;
  
  BEGIN
    WRITE(CLRHOM);
    WRITELN('Programmet beregner COSINUS, SINUS og TANGENS');
    WRITELN('til et vilkårligt indtastet gradtal');
    WRITELN;
    WRITE('Indtast GRADtal: '); READLN(gradtal);
    radiantal := gradtal * PI / 180;
    WRITELN;
    WRITELN('COS(', gradtal : 6 : 2, ')= ', COS(radiantal) : 7 : 4);
    WRITELN('SIN(', gradtal : 6 : 2, ')= ', SIN(radiantal) : 7 : 4);
    WRITELN('TAN(', gradtal : 6 : 2, ')= ', 
            SIN(radiantal) / COS(radiantal) : 7 : 4);
    WRITELN;
  END.
«eof»