|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 640 (0x280)
Types: TextFile
Names: »TRIGONOM.PAS«
└─⟦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«
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»