Pseint

Ejercicios en PSeInt 001
1. Hacer un algoritmo que imprima la suma de los 100 primeros números.

Proceso Suma100numeros
suma<-0
x<-1
Para x<-1 Hasta 100 Hacer
suma<-suma+x
FinParaEscribir suma
FinProceso

2. Hacer un algoritmo que imprima los números impares hasta el 100 y que imprima cuantos impares hay.

Proceso impares100
x<-1
impares<-0
Repetir
Si x %2=0entonces x<-x+1
sino escribir x
x<-x+1
impares<-impares+1
FinSi
Hasta Que x=100
Escribir "Hay ", impares ," numeros impares"
FinProceso

3. Hacer un algoritmo que imprima todos losnúmeros naturales que hay desde la unidad hasta un numero que introducimos por teclado.

Proceso ejercicio3
Leer N
x<-1
Repetir
escribir x
x<-x+1
Hasta Que x=N
Escribir N
FinProceso4. Introducir un numero por teclado. Que nos diga si es positivo o negativo.

Proceso positivonegativo
Leer N
Si N>0 entonces escribir "es positivo"
FinSi
Si N<0 entonces escribir "esnegativo"
FinSi
Si N=0 Entonces escribir "es neutro"
FinSi
FinProceso

5. Introducir un numero por teclado. Que nos diga si es par o impar.

Proceso parimpar
Leer N
Si N %2=0 entonces escribirN," es par"
Sino escribir N," es impar"
FinSi
FinProceso

6. Imprimir y contar los múltiplos de 3 desde la unidad hasta un numero que introducimos por teclado.

Proceso multiplos3
Leer Nx<-1
c<-0
Repetir
Si x %3=0
entonces escribir x
x<-x+1
c<-c+1
sino x<-x+1
FinSi
Hasta Que x>N
Escribir "Hay ", c, " multiplos de 3"
FinProceso

7. Hacer un algoritmo queimprima los números del 1 a 100. Que calcule la suma de todos los numeros pares por un lado, y por otro, la de todos los impares.

Proceso numeros1100suma
par<-0
impar<-0
x<-0
Repetir
Six<100
entonces escribir x
x<-x+1
FinSi
Si x %2=0
entonces par<-par+x
sino impar<-impar+x
FinSi
Hasta Que x=100
Escribir x
Escribir "La suma de numeros pares es ", par
Escribir...