jueves, 21 de octubre de 2010
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
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
Suscribirse a:
Entradas (Atom)