Llamada telefónica internacional en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Calcular el importe de una llamada telefónica internacional. El importe de la llamada telefónica está enfunción del número de minutos hablados y de la zona a la cual se llama, de acuerdo a la siguiente tabla:
Código de Zona | Lugar | Precio/minuto(S/.) | Descuento(%)
1 | América del sur | 2.50 | 5
2 | América del norte | 3.00 | 8
3 | África | 5.50 | 6
4 | Asia | 4.50 | 3
5 | Oceanía | 5.00 | 5
El descuento se realiza solamente para llamadas demás de 10 minutos. Se ingresa el número de minutos hablados y el código de la zona a la cual se llama.

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
48
49
50

Proceso LlamadaTelefonicaInternacional

    Escribir Sin Saltar "Ingresa el valor de minutos hablados:";

    Leer minutos_hablados;

    Escribir "Selecciona el valor de codigo de zona.";

    Escribir "    1.- América del sur";

    Escribir "    2.- América del norte";

    Escribir "    3.- África";

    Escribir "    4.- Asia";

    Escribir "    5.- Oceanía";

    Escribir Sin Saltar "    :";

    Repetir

        Leer codigo_de_zona;

        Si codigo_de_zona<1 O codigo_de_zona>5 Entonces

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

        FinSi

    Hasta Que codigo_de_zona>=1 Y codigo_de_zona<=5;

    precio_por_minuto <- 0;

    descuento <- 0;

    Si codigo_de_zona = 1 Entonces

        precio_por_minuto <- 2.5;

        descuento <- 5;

    FinSi

    Si codigo_de_zona = 2 Entonces

        precio_por_minuto <- 3;

        descuento <- 8;

    FinSi

    Si codigo_de_zona = 3 Entonces

        precio_por_minuto <- 5.5;

        descuento <- 6;

    FinSi

    Si codigo_de_zona = 4 Entonces

        precio_por_minuto <- 4.5;

        descuento <- 3;

    FinSi

    Si codigo_de_zona = 5 Entonces

        precio_por_minuto <- 5;

        descuento <- 5;

    FinSi

    importe <- minutos_hablados*precio_por_minuto;

    Si minutos_hablados>10 Entonces

        descuento <- importe*descuento/100.0;

    SiNo

        descuento <- 0;

    FinSi

    total <- importe-descuento;

    Escribir "Valor de descuento: ", descuento;

    Escribir "Valor de importe: ", importe;

    Escribir "Valor de precio por minuto: ", precio_por_minuto;

    Escribir "Valor de total: ", total;

FinProceso