Algorimos Codigos

ALGORITMOS

EJERCICIOS DE LA PRIMERA FASE EN CODIGO PSEINT

AUTOR:

 PEDRO LUIS BETRAN OTERO

GRUPO:  

301303_167

TUTOR:

ING ERNESTO ORLANDO PARRA

UNIVERSIDAD NACIONAL ABIERTA Y A DISTANCIA – UNAD

COLOMBIA

OPERACIONES BASICAS

//Nombre del Autor: Pedro Luis Beltran Otero

//Fecha:09/10/2015

//Doy fe que este ejercicio es de mi autoría, en caso de encontrar plagio la nota de todo mi trabajo debe ser de CERO además de las respectivas sanciones a que haya lugar

Proceso OperacionesBasicas

        Escribir "***************************************"

        Escribir "OPERACIONES MATEMATICAS BASICAS BASICAS"

        Escribir "***************************************"

        Escribir "Ingrese el primer numero y presione enter";

        Leer a;

        Escribir "Ingrese el segundo numero y presione enter";

        Leer b;

        suma<-(a+b);

        resta<-(a-b);

        multiplicacion<-(a*b);

        Si (b=0) Entonces

                Escribir "*******************"

                Escribir "Los Resultados son:"

                Escribir "*******************"        

                Escribir "No se puede dividir un numero entre cero"

                Escribir "La suma de ",a," + ",b," = ",suma;

                Escribir "La restade ",a," - ",b," = ",resta;

                Escribir "La multiplicacion de ",a," * ",b," = ",multiplicacion;

        Sino

                division<-(a/b);

                Escribir "*******************"

                Escribir "Los Resultados son:"

                Escribir "*******************"

                Escribir "La suma de ",a," + ",b," = ",suma;

                Escribir "La restade ",a," - ",b," = ",resta;

                Escribir "La multiplicacion de ",a," * ",b," = ",multiplicacion;

                Escribir "La division de ",a," / ",b," = ",division;

        Fin Si

FinProceso

CUADRADO DE UN NUMERO

//Nombre del Autor: Pedro Luis Beltran Otero

//Fecha:09/10/2015

//Doy fe que este ejercicio es de mi autoría, en caso de encontrar plagio la nota de todo mi trabajo debe ser de CERO además de las respectivas sanciones a que haya lugar

Proceso Cuadrado_de_un_Numero

        Escribir "***************************************"

        Escribir "CUAADRADO DE UN NUMERO"

        Escribir "***************************************"

        Escribir "Ingrese un numero ENTERO y presione ENTER"

        Leer a;

        Si (a MOD 1=0) Entonces

                cuadrado<-(a*a);

                Escribir "El Cuadrado de ",a," es ",cuadrado;

        Sino

                Escribir "El Numero ingresado no es un ENTERO"

        Fin Si

FinProceso

AREA DE UN CÍRCULO

//Nombre del Autor: Pedro Luis Beltran Otero

//Fecha:09/10/2015

//Doy fe que este ejercicio es de mi autoría, en caso de encontrar plagio la nota de todo mi trabajo debe ser de CERO además de las respectivas sanciones a que haya lugar

Proceso Area_de_un_Circulo

        Escribir "***************************************"

        Escribir "AREA DE UN CIRCULO"

        Escribir "***************************************"

        Escribir "Ingrese el radio del circulo"

        Leer R;

        area<-(pi*R*R);

        Escribir "El Area del circulo es ",area," m2";

FinProceso

NUMERO PAR O IMPAR

//Nombre del Autor: Pedro Luis Beltran Otero

//Fecha:09/10/2015

//Doy fe que este ejercicio es de mi autoría, en caso de encontrar plagio la nota de todo mi trabajo debe ser de CERO además de las respectivas sanciones a que haya lugar

Proceso Par_o_Impar

        Escribir "***************************************"

        Escribir "NUMERO PAR  IMPAR"

        Escribir "***************************************"

        Escribir "Ingrese un numero"

        Leer num;

        Si (num MOD 2=0) Entonces

                Escribir "El numero es PAR"

        Sino

                Escribir "El numero es IMPAR"

        Fin Si

FinProceso

MAYOR MENOR O IGUAL

//Nombre del Autor: Pedro Luis Beltran Otero

//Fecha:09/10/2015

//Doy fe que este ejercicio es de mi autoría, en caso de encontrar plagio la nota de todo mi trabajo debe ser de CERO además de las respectivas sanciones a que haya lugar

Proceso Mayor_Menos_Igual

        Escribir "***************************************"

        Escribir "MAYOR MENOR O IGUAL DE DOS NUMEROS"

        Escribir "***************************************"

        Escribir "Ingrese el primero numero y  presione enter"

        Leer V1;

        Escribir "Escribir el segundo numero y presione enter"

        Leer V2;

        Si (V1=V2) Entonces

                Escribir "Los Numeros son iguales"

        Sino

                Si (V1>V2) Entonces

                        Escribir "El Numero ",V1," Es mayor que ",V2;

                Sino

                        Escribir "El Numero ",V2," Es mayor que ",V1;

                Fin Si

        Fin Si

FinProceso

DIVISION EXACTA

//Nombre del Autor: Pedro Luis Beltran Otero

//Fecha:09/10/2015

//Doy fe que este ejercicio es de mi autoría, en caso de encontrar plagio la nota de todo mi trabajo debe ser de CERO además de las respectivas sanciones a que haya lugar

Proceso Division_Exacta

        Escribir "***************************************"

        Escribir "DIVISION EXACTA ENTRE DOS NUMEROS"

        Escribir "***************************************"

        Escribir "Ingrese el primer numero y presione enter"

        Leer N1;

        Escribir "Ingrese el segundo numero y presione enter"

        Leer N2;

        Si (N1 MOD N2 = 0) Entonces

                Escribir N2," divide exactamente a ",N1;

        Sino

                Si (N2 MOD N1 = 0) Entonces

                        Escribir N1," divide exactamente a ",N2;

                Sino

                        Escribir 'Los numeros no son divisibles exactamente'

                Fin Si

        Fin Si

...