jueves, 14 de octubre de 2010

1.
Proceso Imprimir9
Para x<-0 Hasta 9 Con Paso 1 Hacer
Escribir x
Fin Para

Fin Proceso

2.
Proceso Imprimir1000
Para x <- 0 Hasta 1000 Con Paso 1 Hacer
Escribir x
Fin Para
Fin Proceso

3.
Proceso Imprimir456
Para x<-0 Hasta 456 Con Paso 1 Hacer
Escribir x
Fin Para
Para Z<-456 Hasta 0 Con Paso -1 Hacer
Escribir Z
Fin Para
Fin Proceso

4.
Proceso ANIELRODRIGEZ
Para x<-0 Hasta 4 Con Paso 1 Hacer
Escribir "ANIEL";
FinPara
Para z<-0 Hasta 6 Con Paso 1 Hacer
Escribir "RODRIGEZ";
FinPara
FinProceso

jueves, 7 de octubre de 2010

ejercisios de algoritmos


1)    Proceso DatosPQ
            Escribir "Introduzca el valor P,Q";
            Leer P,Q
            si P,Q <- (P*P*P) + (Q*Q*Q) - 2 * (P*P) > 680 Entonces       
                  Escribir "su expresión si cumple"
           Sino
                 Escribir "su expresión no cumple"
            FinSi
   FinProceso


2)    Proceso Tanx
    Escribir "Introdusca valor de x";
    Leer x
    si cos(x) <> 0  Entonces       
          Tanx <- sen(x) / cos(x)
                 Escribir Tanx;
    Sino
            Escribir "Error 10N10"
    FinSi
     FinProceso

3)    Proceso Cotx
   Escribir "Introdusca valor de x";
  Leer x
  si sen(x) <>= 0  Entonces       
             Cotx <- cos(x) / sen(x)
                 Escribir Cotx;
  Sino
          Escribir "Error 0"
 FinSi
   FinProceso
4)    Proceso Impuesto
          Escribir "Introduzca A";
    Leer A
   Si A > 20  Entonces
             I <- A + (A * 0.30)
  FinSi
  si A > 40 Entonces
          I <- A + (A * 0.40)
   FinSi
  Si  A > 500 Entonces
            I <- A + (A * 0.50)
  Finsi
 Escribir I
FinProceso