Ejercicios en Pseint

Proceso EJERCICIO1

x<-0;n1<-0;n2<-0;n3<-0;prom<-0;porc_califp<-0;calif_exf<-0;porc_exf<-0;calif_tf<-0;porc_tf<-0;calif_f<-0;

Para x<-1 Hasta 7 Hacer

Escribir "introduzca su calificacion parcial 1";

Leer n1;

Escribir "introduzca su calificacion parcial 2";

Leer n2;

Escribir "introduzca su calificacion parcial 3";

Leer n3;

Escribir "introduzca la calificacion del examen final";

Leer calif_exf;

Escribir "introduzca la calificacion del trabajo final";

Leer calif_tf;

prom<-(n1+n2+n3)/3;

porc_califp<-(prom*0.55);

Escribir "el 55% de sus calificaciones parciales es ",porc_califp;

porc_exf<-(calif_exf*0.30);

Escribir "el 30% de la calificacion del examen final es ",porc_exf;

porc_tf<-(calif_tf*0.15);

Escribir "el 15% de la calificacion del trabajo final es ",porc_tf;

calif_f<-(porc_califp+porc_exf+porc_tf);

Escribir "su calificacion final de la materia de algoritmos es ",calif_f;

Fin Para

FinProceso

Proceso EJERCICIO2

nro1<-0;nro2<-0;

Escribir "introduzca el primer numero";

Leer nro1;

Escribir "introduzca el segundo numero";

Leer nro2;

Si nro1>nro2 Entonces

Escribir "el numero mayor es ",nro1;

Sino

Escribir "el numero mayor es ",nro2;

Fin Si

Escribir "numero: ",nro1;

Escribir "numero: ",nro2;

FinProceso

Proceso EJERCICIO3

pu<-0;cantpza<-0;tcomp<-0;inv<-0;prest<-0;cred<-0;int<-0;r<-"N";

Mientras r="N" O r="n" Hacer

Escribir "introduzca la cantidad de piezas a comprar";

Leer cantpza;

Escribir "introduzca el precio unitario";

Leer pu;

tcomp<-(cantpza*pu);

Escribir "el total de la compra es ",tcomp;

Si tcomp>500000 Entonces

inv<-(tcomp*0.55);

Escribir "el dinero invertido propio es ",inv;

prest<-(tcomp*0.30);

Escribir "el prestamo al banco es ",prest;

cred<-(tcomp*0.15);

Escribir "el credito al fabricante es ",cred;

Sino

inv<-(tcomp*0.70);

Escribir "el dinero invertido propio es ",inv;

cred<-(tcomp*0.30);

Escribir "el credito al fabricante es ",cred;

Fin Si

int<-(cred*0.20);

Escribir

...