13 lines
218 B
Plaintext
13 lines
218 B
Plaintext
program test;
|
|
|
|
var s,t,u,a,v: real;
|
|
|
|
begin
|
|
a := Pi;
|
|
t := sin(a);
|
|
s := cos(a);
|
|
u := t/s;
|
|
v := t*360;
|
|
|
|
WriteLn('Wert: ',a:8:5,' sin: ',t:8:5,' cos: ',s:8:5,' tan: ',u:8:5,' v: ',v:8:5);
|
|
end. |