Pseint

9
//escribir un algoritmo que pida al usuario un numero y le diga si es positivo, negativo o nulo Proceso ejercicio3 definir numero como entero escribir numero escribir "digite numero" leer numero si numero >0 Entonces escribir "numero positivo" FinSi si numero <0 Entonces escribir "numero negativo" FinSi si numero =0 Entonces escribir "numero nulo" FinSi FinProceso ////////////////////////////////////////////////////////////////// ////////////////////////////////////// 2)crear un algoritmo que escriba su nombre y apellido 5 veces para x<- 1 hasta 5 Hacer escribir "Juliana Marisol Rodriguez Real"

Transcript of Pseint

Page 1: Pseint

//escribir un algoritmo que pida al usuario un numero y le diga si es positivo, negativo o nulo

Proceso ejercicio3

definir numero como entero

escribir numero

escribir "digite numero"

leer numero

si numero >0 Entonces

escribir "numero positivo"

FinSi

si numero <0 Entonces

escribir "numero negativo"

FinSi

si numero =0 Entonces

escribir "numero nulo"

FinSi

FinProceso

////////////////////////////////////////////////////////////////////////////////////////////////////////

2)crear un algoritmo que escriba su nombre y apellido 5 veces

para x<- 1 hasta 5 Hacer

escribir "Juliana Marisol Rodriguez Real"

FinPara

FinProceso

Page 2: Pseint

/////////////////////////////////////////////////////////////////////////////////////////////////

3)

crear un algoritmo que pida al usuario 5 datos y escriba su suma

Proceso ejercicio3

definir datos como entero

escribir datos

escribir "digite datos"

escribir "Ndoc"

leer Ndoc

escribir "Nedad"

leer Nedad

escribir "Ntel"

leer Ntel

escribir "Ncuenta"

leer Ncuenta

escribir "Ncodfor"

leer Ncodfor

suma<-(Ndoc+Nedad+Ntel+Ncuenta+Ncodfor)

escribir "resultado",suma

///////////////////////////////////////////////////////////////////////////////////

4)

crear un algoritmo que sume 2 numeros dados

Proceso ejercicio4

definir numeros como entero

escribir "N1"

leer N1

Page 3: Pseint

escribir "N2"

leer N2

suma<-(N1+N2)

escribir "resultado",suma

FinProceso

///////////////////////////////////////////////////////////////////////////////

5)

crear un algoritmo que pida 2 numeros, los sume y el resultado de la suma la multiplique por el primer numero dado

Proceso ejercicio5

definir numeros como real

escribir "n1"

leer n1

escribir "n2"

leer n2

res<-(n1+n2)

escribir "suma",res

multiplicacion<-(res*n1)

escribir " multiplicacion",multiplicacion

FinProceso

////////////////////////////////////////////////////////////////////

6)

leer desde el teclado el numero de control, el nombre y 5 calificasiones, obtener el promedio. imprimir la calificasion con su promedio

Proceso ejericio6

definir x, menu como real

definir a como real

escribir "numero de alumnos"

leer a

Page 4: Pseint

mientras x<a hacer

x<-(a-1)

escribir "digite nombre"

leer nombre

escribir "digite control"

leer control

escribir "digite 5 calificasiones"

leer CA

leer CB

leer CC

leer CD

leer CE

suma<-CA+CB+CC+CD+CE/5

escribir "digite promedio",suma

si suma<6 entonces

escribir "reprobo"

sino

escribir "aprobo"

finsi

escribir "menu"

leer menu

Segun menu Hacer

1: escribir "nombre : ",nombre

2: escribir "control : ",control

3: escribir "calificasiones : ",calificasiones

4: escribir "promedio : ",promedio

De Otro Modo:

Page 5: Pseint

escribir "no valido "

Fin Segun

FinMientras

fin proceso

/////////////////////////////////////////////////////////////////////////////////////////////

7)

Proceso sin_titulo

definir N1,N2,N3,N4,suma,multi,divi,menu Como Entero

definir cont como cadena

cont<-N

mientras cont<>"N" hacer

escribir "digite N1"

leer N1

escribir "digite N2"

leer N2

escribir "digite N3"

leer N3

escribir "digite N4"

leer N4

suma<-N1+N2+N3+N4

Page 6: Pseint

multi<-N1*N2*N3*N4

divi<-N1/N2/N3/N4

escribir "suma: 1 "

escribir "multi: 2 "

escribir "divi: 3 "

escribir "opsion"

leer menu

Segun menu Hacer

1:

escribir "suma de numeros es: ",suma

2:

escribir "multi de numeros es: ",multi

3:

escribir "divi de numeros es: ",divi

De Otro Modo:

escribir "no valido"

Fin Segun

escribir "si desea cerrar oprima N si no cualquier letra"

leer cont

limpiar pantalla

Page 7: Pseint

fin mientras

FinProceso

///////////////////////////////////////////////////////////////////////////////

8)

Proceso sin_titulo

definir smensual,ssemanal,res como entero

escribir "smensual "

leer smensual

res<-smensual*2.5

escribir "res 2s y medio: ",res

escribir "ssemanal: "

res<-res/4

escribir "res",res

FinProceso

///////////////////////////////////////////////////////////////////////////////////

9)

Proceso sin_titulo

definir salario Como Real

escribir "salario "

leer salario

escribir "dl "

Page 8: Pseint

leer dl

res<-salario/30

escribir "salario ",res

res<-res*20

escribir "sbasico : ",res

res<-res-7.3/100

escribir "deducciones : ",res

res<-res-sbasico

escribir "valorneto : ",res

FinProceso