|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC700 "Piccolo" |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC700 "Piccolo" Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 640 (0x280)
Types: TextFile
Names: »TRIGONOM.PAS«
└─⟦09235ab48⟧ Bits:30003065 Demoprogrammer K-Z til Pascal bog
└─ ⟦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»