Pesudocodigo

FORMULA GENERAL.

X1= [-b+SQR((bˆ2-4*a*c),2)]/2*a

X1= [-b+SQR((bˆ2-4*a*c),2)]/2*a

X2= [-b-SQR((bˆ2-4*a*c),2)]/2*a

INICIO

Real:a,b,c,X1,X2;

Escribir ¨Dame el valor de a¨;

Leer a

Mientras a=ø hacer

Escribir¨Valor inválido¨

Escribir¨Dame un valor de a diferente de ø¨;

Leer a;

Fin del mientras

Escribir¨Dame el valor de b¨;

Leer b;

Escribir ¨Dame el valor de c¨;

Leer c;

X1= [-b+SQR((bˆ2-4*a*c),2)]/2*a

X2= [-b-SQR((bˆ2-4*a*c),2)]/2*a

Escribir ¨Los resultados son ¨X1¨;¨X2¨;

FIN

Nombre inversión.

Inicio

Real: Capital inicial;

Entero:Aux;

Escribir¨Dame el valor inicial de tu inversión¨

Leer Cap.Inical;

Mientras Cap.Inicial<=øhacer

Escribir¨Valor invalido¨

Escribir¨Dame el valor inicial de tu inversión¨

Leer Cap.Inicial.

Fin Mientras

Mientras Aux<12hacer

Cap.Inicial=Cap.Inicial*1.02;

Aux++;

Fin Mientras

Escribir ¨El valor de tu inversión final de 12 meses es¨Cap.Inicial;

Fin

Nombre: Suma de N a M números.

Inicio

Real:N,M,Suma;

Escribir¨Dame el valor inical¨;

Leer N;

Escribir¨Dame el valor final¨;

Leer M;

For(Suma=ø,N<=M,N++)

Suma=Suma+N

Escribir el resultado es ¨Suma¨

FIN

Nombre:Serie Fibonacci

Inicio

Entero:a,b,c,aux;

a=1;

b=1;

Escribir a ¨,¨ b;

For(aux=1,aux<11,aux++)

{

c=a+b;

Escribir ¨,¨C;

a=b;

b=c;

}

FIN

Nombre: Programación.

Inicio

Real X;

Escribir¨Dame un numero¨

Leer X,

Si X > 0 entonces

Escribir ¨El# es positovo¨;

Si no

Escribir ¨El#es negativo¨;

Fin si

Fin

Nombe:Factorial

Inicio

Entero: factorial, respuesta=1, auxiliar= 1;

Escribir “ingrese un número”;

Leer factorial;

Mientras auxiliar<factorial hacer

Respuesta=respuesta*auxiliar

Auxiliar++

Fin mientras

Escribir “la respuesta es:” respuesta;

FIN

Nombre: El precio de una compra.

INICIO

Real: Precio, valor;

Escribir “ingrese el valor de su compra”;

Leer valor;

Si valor<0 entonces

Escribir “error”;

Si no

Si valor<2000 entonces

Precio=valor

Escribir “Su precio es:” precio;

Si no

Si valor<4000 entonces

Precio=valor*.98

Escribir “su precio es:” precio;

Si no

Si valor<1000

Precio=valor*.95

Escribir “su precio es:” precio;

Si no

Precio=valor*.9

Escribir “su precio es:” precio;

Fin si

FIN

Nombre:Promedio de calificaciones.

Inicio.

Real:av, s, c;

Entero: N, Aux;

Escribir “ingrese el número de materias”;

Leer N;

Mientras N<=0 hacer

Escribir “error” ;

Leer N;

Fin Mientras

Mientras Aux<=N hacer

Escribir “ingrese la calificación”;

Leer c;

Mientras c<=0 hacer

Escribir

...