-
Lenguaje
Pascal
-
Descripción
Evalúa la función: y = Cos(2Θ) para [0° ≤ Θ ≤ 360°] con intérvalos de π/12 radianes.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program FuncionYCos2Theta;
uses crt, math;
var i : integer;
var angulo, y : real;
begin
for i:=1 to 25 do
begin
writeln ('PROCESO ', i);
angulo := PI*(i-1)/12.0;
y := cos(2.0*angulo);
writeln ('Valor de angulo: ', angulo:0:6);
writeln ('Valor de y: ', y:0:6);
writeln;
end;
end.
uses crt, math;
var i : integer;
var angulo, y : real;
begin
for i:=1 to 25 do
begin
writeln ('PROCESO ', i);
angulo := PI*(i-1)/12.0;
y := cos(2.0*angulo);
writeln ('Valor de angulo: ', angulo:0:6);
writeln ('Valor de y: ', y:0:6);
writeln;
end;
end.