Costo por n llamadas en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Determinar el costo que tendrá que realizar n llamadas telefónicas con base en el tiempo (en segundos) que dura la llamada y en costo por minuto.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

Proceso CostoPorNLlamadas

    costo_total <- 0;

    Escribir Sin Saltar "Ingresa el valor de costo por minuto:";

    Leer costo_por_minuto;

    Escribir Sin Saltar "Ingresa el valor de n:";

    Leer n;

    Para i<-1 Hasta n Con Paso 1 Hacer

        Escribir "PROCESO ", i;

        Escribir Sin Saltar "Ingresa el valor de tiempo en segundos:";

        Leer tiempo_en_segundos;

        minutos <- (tiempo_en_segundos-tiempo_en_segundos MOD 60)/60;

        Si tiempo_en_segundos MOD 60 <> 0 Entonces

            minutos <- minutos+1;

        FinSi

        costo_por_llamada <- costo_por_minuto*minutos;

        costo_total <- costo_total+costo_por_llamada;

        Escribir "Valor de costo por llamada: ", costo_por_llamada;

        Escribir "Valor de minutos: ", minutos;

        Escribir "";

    FinPara

    Escribir "Valor de costo total: ", costo_total;

FinProceso