• Lenguaje

    PSeInt (Pseudocódigo)

  • Descripción

    El costo de un envío de fax ordinario es de $1,000 si el número de palabras es hasta 10, por cada palabra adicional se cobra $200.
    Si el envio de fax es urgente los costos son de $2,000 y $400 respectivamente.
    Lea el tipo de envío y el número de palabras de telegrama y escriba el costo a pagar de este.

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
Proceso CostoDeTelegrama
    Escribir Sin Saltar "Ingresa el valor de palabras:";
    Leer palabras;
    costo_a_pagar <- 0;
    Escribir "Selecciona el valor de tipo de envio.";
    Escribir "    1.- ordinario";
    Escribir "    2.- urgente";
    Escribir Sin Saltar "    :";
    Repetir
        Leer tipo_de_envio;
        Si tipo_de_envio<1 O tipo_de_envio>2 Entonces
            Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
        FinSi
    Hasta Que tipo_de_envio>=1 Y tipo_de_envio<=2;
    Si tipo_de_envio = 1 Y palabras<=10 Entonces
        costo_a_pagar <- 1000;
    FinSi
    Si tipo_de_envio = 1 Y palabras>10 Entonces
        costo_a_pagar <- 1000+(palabras-10)*200;
    FinSi
    Si tipo_de_envio = 2 Y palabras<=10 Entonces
        costo_a_pagar <- 2000;
    FinSi
    Si tipo_de_envio = 2 Y palabras>10 Entonces
        costo_a_pagar <- 2000+(palabras-10)*400;
    FinSi
    Escribir "Valor de costo a pagar: ", costo_a_pagar;
FinProceso