• Lenguaje

    PSeInt (Pseudocódigo)

  • Descripción

    Generar 10 números aleatorios y obtener:
    a) La suma de los cosenos de cada número aleatorio.
    b) La productoria de los senos de cada número aleatorio.
    c) La suma de las exponenciales de cada número aleatorio.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Proceso SumaDeCosenosYExponenciales
    a <- 0;
    b <- 0;
    c <- 0;
    Para i<-1 Hasta 10 Con Paso 1 Hacer
        Escribir "PROCESO ", i;
        numero_aleatorio <- AZAR(10000);
        radianes <- numero_aleatorio*PI/180;
        Si i = 1 Entonces
            b <- 1;
        FinSi
        a <- a+COS(radianes);
        b <- b*SEN(radianes);
        c <- c+EXP(numero_aleatorio);
        Escribir "Valor de numero aleatorio: ", numero_aleatorio;
        Escribir "Valor de radianes: ", radianes;
        Escribir "";
    FinPara
    Escribir "Valor de a: ", a;
    Escribir "Valor de b: ", b;
    Escribir "Valor de c: ", c;
FinProceso