Programacion.

•  Escriba un programa que lea la edad de una persona, e imprima el mensaje, ES VOTANTE, si tiene 16 o más años de edad y el mensaje, NO ES VOTANTE, si tiene una edad superior a cero años pero inferior a 16 años.

Análisis de Problema

Entrada: ED: Edad de la persona.

Proceso:      Si ED> 16 Imprimir “ES VOTANTE”.

                       En caso contrario imprimir “NO ES VOTANTE”.

Salida: Mensaje.

Pseudocodigo

Inicio

Escribir 'Ingrese la edad de la persona'

    Leer ED

    Si ED>=16 Entonces

        Escribir 'La persona es VOTANTE'

    Sino

        Escribir 'La persona NO ES VOTANTE'

    Fin Si

Fin.

Diagrama de Flujo.[pic 1]

Diagrama N-S[pic 2]

Código en Pascal

Program Votante;

Uses crt;

Var edad: integer;

Begin

Clrscr;

Write ('Ingrese la edad de la persona');

Readln (edad);

If (edad>16) then

Writeln ('La persona es votante')

Else

Writeln ('La persona no es votante');

Readkey;

End.

• En una universidad estatal, los cargos por colegiatura son de 50 córdobas por materia. Se tiene un cargo máximo de 750 córdobas independientemente del número de asignaturas tomadas. Por ejemplo, un estudiante que inscribe 12 materias pagaría 600 córdobas, mientras que uno que toma 21 materias pagaría el cargo máximo de 750 córdobas. Escriba un programa en el que la entrada es el número de materias a inscribir y la salida es el costo de la colegiatura.

Análisis de Problema

Entrada: N: Numero de materias a Inscribir.

                  CM: Costo Máximo a pagar=750

Proceso: Si N<=16 Calcular CT:= N*50

                   En caso Contrario CT:=CM

Salida: CT: Costo Total a Pagar.

Pseudocodigo

Inicio.

Escribir "Ingrese el número de materias que desea inscribir"

    Leer N

    CM<-750

    Si N<=12 Entonces

        CT<-N*50

    Sino

        CT<-CM

    Fin Si

    Escribir "El costo total a pagar en córdobas es: ", CT

Fin.

Diagrama de Flujo.[pic 3]

Código en Pascal

Program UNIVERSIDAD;

Uses CRT;

Var N, CT: integer;

Const

CM=750;

Begin

Write ('Ingrese la cantidad de materias a escribir');

Readln (N);

If N<=12 then

CT: =N*50

Else

CT:=CM;

Writeln ('El costo total a pagar es de ', CT);

Readkey;

End.

Diagrama N-S

[pic 4]

• Escribir una programa que lea tres números y calcule el producto de estos si uno de los tres números es negativo, en caso contrario calcular la suma de ellos.

Análisis de Problema

Entrada: N1: Primer Numero

                  N2: Segundo Numero
                N3: Tercer Número

                  SU: Suma de los tres Números

                  PR: Producto de los tres Números

Proceso: Si se cumple que N1<0 O N2<0 O N3<0 Calcular

                   PR: N1*N2*N3

                 En caso contrario calcular
                SU: N1+N2+N3

Salida: PR, SU (Según sea el caso)

Pseudocodigo

Inicio

    Escribir "Ingrese el primer número";

    Leer N1;

    Escribir "Ingrese el segundo número";

    Leer N2;

    Escribir "Ingrese el tercer número";

    Leer N3;

    Si N1<0 O N2<0 O N3<0 Entonces

        PR<-N1*N2*N3;

        Escribir "El valor del producto es de: ", PR;

    Sino

        SU<-N1+N2+N3;

        Escribir "El valor de la suma es de: ", SU;

    Fin Si

Fin.

Diagrama N-S

[pic 5]

Diagrama de Flujo

[pic 6]

Código en Pascal

Program tresnumeros;

Var

        N1, N2, N3, PR, SU: Real;

Begin

        Writeln ('Ingrese el primer número');

        Readln (N1);

        Writeln ('Ingrese el segundo número');

        Readln (N2);

        Writeln ('Ingrese el tercer número');

        Readln (N3);

        If N1<0 or N2<0 or N3<0 Then Begin

                PR:= N1*N2*N3;

                Writeln ('El valor del producto es de: ', PR);

        End

        Else Begin

                SU: = N1+N2+N3;

                Writeln ('El valor de la suma es de: ', SU);

        End;

End.

• Escriba un Programa que lea dos números y calcule la suma de ellos.

Análisis de problema

Entrada: A: Primer Numero

                  B: Segundo Numero

                  SU: Suma de los dos números.

Proceso: SU:=A+B

Salida: SU

Diagrama N-S

[pic 7]

Diagrama de Flujo

[pic 8]

Pseudocodigo

Inicio

Escribir 'Ingrese el primer valor a sumar'

    Leer A

    Escribir 'Ingrese el segundo valor por sumar'

    Leer B

    SU<-A+B

    Escribir 'El valor de la suma es: ', SU

...