Ejercicios hechos en clases

Ejercicios hechos en clases

Proceso Numeros_pares_e_impares

         definir x, num como entero;

         Para x<-1 Hasta 10 Con Paso 1 Hacer

         si x % 2 = 0 entonces

                   escribir "el numero: ", x,"es par";

         sino

                   escribir "el numero: ", x,"es impar";

         FinSi

FinPara

FinProceso

Proceso Array_de_numeros_pares

         definir par, a,b Como Entero;

         Dimension par(10);

         a<-0;

         b<-1;

         Para b<-1 Hasta 20 Con Paso 1 Hacer

                   Si b%2=0 Entonces

                            par(a)<-b;

                            a<-a+1;

                   Sino

                            Escribir "Valor no valido ", b;

                   FinSi

         FinPara

         Escribir "Los pares";

         Para a<-0 Hasta 9 Con Paso 1 Hacer

                   Escribir par(a);

         FinPara

FinProceso

Proceso Interes_simple

         definir interes, capital, tiempo, pin Como Real;

         Escribir "ingrese interes";

         Leer Interes;

         Escribir "ingrese capital";

         Leer capital;

         Escribir "ingrese tiempo en años";

         Leer tiempo;

         pin<-((interes*capital)/tiempo);

         Escribir "El interes simple es de ",pin;

FinProceso

Proceso Los_numeros_primos_1_al_100

         Definir a,b,c Como Entero;

         Para a<-1 Hasta 100 Con Paso 1 Hacer

                   c<-0;

                   Para b<-1 Hasta a Con Paso 1 Hacer

                            Si a%b=0 Entonces

                                      c<-c+1;

                            FinSi

                   FinPara

                   si c = 2 entonces

                            Escribir a;

                   FinSi

         FinPara

FinProceso

Proceso Multipliocacion

         definir num, multiplicacion Como Entero;

         escribir "ingrese nuemro ";

         leer num;

         multiplicacion <- num*2;

         escribir "la multiplicacion es de ", multiplicacion;

FinProceso

Proceso Nombres

         definir a como caracter;

         definir b Como Entero;

         Dimension a(5);

         b<-0;

         Mientras b<5 Hacer

                   Escribir "nombre";

                   leer a(b);

                   b<-b+1;

         FinMientras

         Para b<-0 Hasta 4 Con Paso 1 Hacer

                   Escribir a(b);

         FinPara

FinProceso

Proceso Numeros_pares_e_impares

         definir x, num como entero;

         Para x<-1 Hasta 10 Con Paso 1 Hacer

         si x % 2 = 0 entonces

                   escribir "el numero: ", x,"es par";

         sino

                   escribir "el numero: ", x,"es impar";

         FinSi

FinPara

FinProceso

Proceso _Numeros

         definir a,b como entero;

         Dimension a(3);

         b<-0;

         Mientras b<3 Hacer

                   Escribir "ingrese numero";

                   leer a(b);

                   b<-b+1;

         FinMientras

         Para b<-2 Hasta 0 Con Paso -1 Hacer

                   Escribir a(b);

         FinPara

FinProceso

Proceso Pares

         definir a,b,par Como Entero;

         Dimension par(10);

         a<-0;

         b<-1;

         Para b<-1 Hasta 20 Con Paso 1 Hacer

                   Si b%2=0 Entonces

                            par(a)<-b;

                            a<-a+1;

                   Sino

                            Escribir "Valor no valido ", b;

                   FinSi

         FinPara

         Escribir "Los pares";

         Para a<-0 Hasta 9 Con Paso 1 Hacer

                   Escribir par(a);

         FinPara

        

FinProceso

Proceso Pedir_Tres_Nombres

         definir nombre,telefono Como Caracter;

         definir edad,sueldo Como Real;

         definir a Como Entero;

         Para a<-1 Hasta 3 Con Paso 1 Hacer

                   Escribir "Empleado", a;

                   Escribir "Nombre";

                   Leer nombre;

                   Escribir "telefono",;

                   leer telefono;

                   Escribir "edad";

                   Leer edad;

                   Escribir "sueldo";

                   leer sueldo;

         FinPara

FinProceso

Proceso Promedio_de_tres_notas

         definir nota1,nota2,nota3,promedio Como Real;

         Escribir "Ingrese nota1 ";

         leer nota1;

         Escribir "Ingrese nota2 ";

         leer nota2;

         Escribir "Ingrese nota3 ";

         leer nota3;

         promedio<- ((nota1+nota2+nota3)/3);

         Escribir "El promedio es de ",promedio;

FinProceso

Proceso sumar_dos_numeros

         definir n1,n2,suma Como Entero;

         escribir "ingrese numero 1";

         leer n1;

         escribir "ingrese numero 2";

         leer n2;

         suma<- n1+n2;

         Escribir "la suma es de ",suma;

FinProceso

Proceso Tablas_de_multiplicar

         definir a,b,c como entero;

         Para a<-1 Hasta 10 Con Paso 1 Hacer

                   Escribir "tabla ", a;

                   Para b<-1 Hasta 10 Con Paso 1  Hacer

                            c<-a*b;

                            Escribir a," x ", b," = ",c ;

                   FinPara

         FinPara

FinProceso