PSEINT
-This is the first section of my PSEINT project:
" Proceso listar__primos
Escribir "ingrese el limite para listar los numeros primos:";
leer limite;
n=2;
mientras n<=limite hacer
para i=1 hasta n Hacer
si n mod i =0 Entonces
cont<-cont+1;
FinSi
FinPara
si cont <3 Entonces
mostrar "es numero primo :" n;
FinSi
cont= 0
n<-n+1;
FinMientras
FinProceso "
The aim of this section is to organise all the prime numbers between two given numbers.
-This is the second section of my PSEINT project:
"Funcion asc(n)
Dimension arreglon[n]
Para i<-1 Hasta n Con Paso 1 Hacer
Escribir "Intro num ",i
Leer arreglon[i]
Fin Para
Para i<-1 hasta n-1 hacer
Para j<-i+1 hasta n Hacer
Si arreglon[i]<arreglon[j] Entonces
aux<-arreglon[i]
arreglon[i]<-arreglon[j]
arreglon[j]<-aux
FinSi
FinPara
FinPara
Escribir "Los numeros de manera ascendente:"
Para i<-1 hasta n hacer
Escribir arreglon[i]
FinPara
Fin Funcion
Algoritmo arregloN_ASC
Definir n como Entero
Escribir "Ingrese el tamaño del arreglo a tratar"
Leer n
asc(n)
FinAlgoritmo "
The aim of this section is to organise all numbers between two given ones and organise them from highest to lowest.
-This is the final section of my PSEINT project:
" Proceso serieFibonacci
Definir n, Fib, pre, pos como Entero
pre <- 0
pos <- 1
Escribir "Favor ingrese el numero: "
Leer n
Fib<-0
Mientras n>Fib Hacer
Escribir Fib
Fib<-pre+pos
pre<-pos
pos<-Fib
Fin Mientras
FinProceso "
The aim of this section is to organise all numbers between two given ones and organise them following the fibonacci series.
.
" Proceso listar__primos
Escribir "ingrese el limite para listar los numeros primos:";
leer limite;
n=2;
mientras n<=limite hacer
para i=1 hasta n Hacer
si n mod i =0 Entonces
cont<-cont+1;
FinSi
FinPara
si cont <3 Entonces
mostrar "es numero primo :" n;
FinSi
cont= 0
n<-n+1;
FinMientras
FinProceso "
The aim of this section is to organise all the prime numbers between two given numbers.
-This is the second section of my PSEINT project:
"Funcion asc(n)
Dimension arreglon[n]
Para i<-1 Hasta n Con Paso 1 Hacer
Escribir "Intro num ",i
Leer arreglon[i]
Fin Para
Para i<-1 hasta n-1 hacer
Para j<-i+1 hasta n Hacer
Si arreglon[i]<arreglon[j] Entonces
aux<-arreglon[i]
arreglon[i]<-arreglon[j]
arreglon[j]<-aux
FinSi
FinPara
FinPara
Escribir "Los numeros de manera ascendente:"
Para i<-1 hasta n hacer
Escribir arreglon[i]
FinPara
Fin Funcion
Algoritmo arregloN_ASC
Definir n como Entero
Escribir "Ingrese el tamaño del arreglo a tratar"
Leer n
asc(n)
FinAlgoritmo "
The aim of this section is to organise all numbers between two given ones and organise them from highest to lowest.
-This is the final section of my PSEINT project:
" Proceso serieFibonacci
Definir n, Fib, pre, pos como Entero
pre <- 0
pos <- 1
Escribir "Favor ingrese el numero: "
Leer n
Fib<-0
Mientras n>Fib Hacer
Escribir Fib
Fib<-pre+pos
pre<-pos
pos<-Fib
Fin Mientras
FinProceso "
The aim of this section is to organise all numbers between two given ones and organise them following the fibonacci series.
.
Comentarios
Publicar un comentario