-
Lenguaje
PSeInt (Pseudocódigo)
-
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
2
3
4
5
6
7
8
9
10
Proceso FuncionYCos2Theta
Para i<-1 Hasta 25 Con Paso 1 Hacer
Escribir "PROCESO ", i;
angulo <- PI*(i-1)/12.0;
_y <- COS(2.0*angulo);
Escribir "Valor de y: ", _y;
Escribir "Valor de angulo: ", angulo;
Escribir "";
FinPara
FinProceso
Para i<-1 Hasta 25 Con Paso 1 Hacer
Escribir "PROCESO ", i;
angulo <- PI*(i-1)/12.0;
_y <- COS(2.0*angulo);
Escribir "Valor de y: ", _y;
Escribir "Valor de angulo: ", angulo;
Escribir "";
FinPara
FinProceso