Llamada internacional, nacional y local 2 en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Calcular lo que hay que pagar por un conjunto de llamadas telefónicas. Por cada llamada se ingresa el tipo (Internacional, Nacional y Local) y la duración en minutos. El criterio que se sigue para calcular el costo de cada llamada es la siguiente:
Internacional: 3 primeros minutos $7.59. Cada minuto adicional $ 3.03.
Nacional: 3 primeros minutos $1.20 Cada minuto adicional $0.48.
Local: Las primeras 50 llamadas no se cobran. Luego, cada llamada cuesta $ 0.60.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47

Proceso LlamadaInternacionalNacionalYLocal2

    llamadas_locales <- 0;

    total <- 0;

    Repetir

        Escribir Sin Saltar "Ingresa el valor de duracion en minutos:";

        Leer duracion_en_minutos;

        pago_por_la_llamada <- 0;

        Escribir "Selecciona el valor de tipo de llamada.";

        Escribir "    1.- Internacional";

        Escribir "    2.- Nacional";

        Escribir "    3.- Local";

        Escribir Sin Saltar "    :";

        Repetir

            Leer tipo_de_llamada;

            Si tipo_de_llamada<1 O tipo_de_llamada>3 Entonces

                Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";

            FinSi

        Hasta Que tipo_de_llamada>=1 Y tipo_de_llamada<=3;

        Si tipo_de_llamada = 1 Y tipo_de_llamada<=3 Entonces

            pago_por_la_llamada <- duracion_en_minutos*7.59;

        FinSi

        Si tipo_de_llamada = 1 Y tipo_de_llamada>3 Entonces

            pago_por_la_llamada <- 3.0*7.59+(duracion_en_minutos-3)*3.03;

        FinSi

        Si tipo_de_llamada = 2 Y tipo_de_llamada<=3 Entonces

            pago_por_la_llamada <- duracion_en_minutos*1.2;

        FinSi

        Si tipo_de_llamada = 2 Y tipo_de_llamada>3 Entonces

            pago_por_la_llamada <- 3.0*1.2+(duracion_en_minutos-3)*0.48;

        FinSi

        Si tipo_de_llamada = 3 Entonces

            llamadas_locales <- llamadas_locales+1;

        FinSi

        Si tipo_de_llamada = 3 Y llamadas_locales>50 Entonces

            pago_por_la_llamada <- 0.6;

        FinSi

        total <- total+pago_por_la_llamada;

        Escribir "Valor de pago por la llamada: ", pago_por_la_llamada;

        Escribir "";

        Repetir

            Escribir Sin Saltar "¿Deseas repetir el proceso? (S/N):";

            Leer tecla_repetir;

        Hasta Que tecla_repetir='s' O tecla_repetir='n' O tecla_repetir='S' O tecla_repetir='N'

    Hasta Que tecla_repetir='n' O tecla_repetir='N'

    Escribir "Valor de llamadas locales: ", llamadas_locales;

    Escribir "Valor de total: ", total;

FinProceso