EJERCICIOS ELABORADOS EN PSEINT

En este espacio subiré los archivos o trabajos realizados hechos en pseint realizado por los estudiantes de nivelación de la Carrera Sistemas de Información:

Antes de Empezar recordemos que debenos tener la version mas actualizada del programa para disfrutar de una buena experiencia


CLICK AQUI

 Ahora ya una vez descargado el programa iniciamos visualizando cada uno de los ejercicios publicados en esta pagina web:

1) Calcular las notas de N estudiantes y comprobar si aprobó o reprobó en las materias de Matemáticas y Programación:

Ejercicio hecho en el tipo de lenguaje flexible:

Proceso Calificacion_Estudiantes
Escribir 'Digite la cantidad de estudiantes';
Leer n;
Para c1 <-1 Hasta n Con Paso 1 Hacer
Para c2<-1 Hasta 2 Con Paso 1 Hacer
Si c2 = 2 Entonces
Escribir 'digite las notas de programacion';
Leer n1,n2,n3;
pr <- (n1+n2+n3)/3;
Si pr>=7.5 Entonces
Escribir 'el estudiante aprobo la materia';
SiNo
Escribir 'el estudiante reprobo la materia';
FinSi
SiNo
Si c2=1 Entonces
Escribir 'digite notas de matematicas';
Leer n1,n2,n3;
pr <- (n1+n2+n3)/3;
Si pr>=7.5 Entonces
Escribir 'el estudiante aprobo la materia';
SiNo
Escribir 'el estudiante reprobo la materia';
FinSi
FinSi
FinSi
FinPara
FinPara

FinProceso

2) Realizar La serie de Fibonacci En pseint A partir de 0:

Ejercicio hecho en el tipo de lenguaje flexible:

Proceso Fibonacci

NT <-NT;

Escribir "VISUALIZAR N TERMINOS DE LA SERIE DE FIBONACCI";

Escribir "INGRESE CUANTO NUMEROS O SERIES DESEA VISUALIZAR";

Leer NT ;

N1<-1 ;

N2<-1 ;

C<-0 ;

Escribir N1;

Escribir N2;

Mientras C<(NT-2) Hacer

C<-C+1;

NF<-N1+N2;

N1<-N2;

N2<-NF;

Escribir NF;

FinMientras

FinProceso

3) Realizar un programa de Ingrese 3 notas y calcular el 60% de la nota Mas el 15% del examen formativo y mas el 25% del examen Final:

Ejercicio hecho en el tipo de lenguaje flexible:

Algoritmo  Calcular_Porcentaje_DE_NOtas

escribir "calcular las 3 notas, y saca el promedio total del 60%"

Escribir  "ingrese la nota numero 1 "

Leer N1

Mientras N1 >= 11 Hacer

Escribir "ingrese nuevamente la nota"

Leer N1

Fin Mientras

Escribir  "ingrese la nota 2"

Leer N2 

Mientras N2 >=11 Hacer

Escribir "ingrese nuevamente la nota" 

Leer N2

Fin Mientras 

Escribir " Ingrese la nota 3" ;

leer N3

Mientras N3 >=11 Hacer

Escribir "ingrese nuevamente la nota"

Leer N3

FinMientras

Escribir "ingrese la nota 4"

Leer N4

Mientras N4 >=11 Hacer

Escribir  "ingrese nuevamente la nota"

Leer N4

FinMientras

PN<-(N1+N2+N3+N4)/4

PF<-(PN * 60)/100

Escribir "promedio total es de " PN

Escribir " el promedio total del 60% es de" PF

Escribir  "nota del examen formativo"

Leer NF

mientras NF >=11 Hacer

Escribir  " ingrese nuevamente la nota"

Leer NF

FinMientras

NFF<-(NF*15)/100

escribir "nota normal del exament formativo es de " NF

Escribir "Nota al 15% del trabajo es de " NFF

Escribir  "ingrese la nota del examen"

Leer  E

mientras E>=11 Hacer

Escribir  "ingrese nuevamente la nota"

leer E

FinMientras

EF<-(E*25)/100

Escribir  " el examen formativo sacado su 25% es de " EF

Escribir " promedio total es de "

PT<-PF + NFF + EF

Escribir  "total de " PT

FinAlgoritmo

Ejercicios Hechos con Array:

4) Realizar un Programa que ingrese nombres y visualizar los nombres en cada array:

Ejercicio hecho en el tipo de lenguaje Estricto:

Proceso Nombres

Definir nombre como caracter;

Definir i como numerico;

Dimension nombre[4];

para i <- 0 hasta 3 hacer

Escribir " ingrese el nombre", i ;

leer nombre[i];

FinPara

Para i<-0 Hasta 3 Con Paso 1 Hacer

Escribir "el nombre es" ,i, "fue" ,nombre[i];

FinPara

FinProceso

5) Realizar un programa que escoga dos o mas numeros al azar y verificar cual es mayor y cual es menor:

Ejercicio hecho en el tipo de lenguaje Estricto:

Proceso sin_titulo

definir arr, numm , i ,c como entero;

definir repetido como logico;

dimension arr[20];

Para i=0 Hasta 19 Con Paso 1 Hacer

Repetir

num=1+azar(100);

repetido=falso;

si i>=1 Entonces

Para c=0 Hasta i-1 Con Paso 1 Hacer

si arr[c]==num Entonces

repetido=verdadero;

escribir ' numero repetido ' , num;

FinSi

Fin Para

FinSi

Hasta Que  repetido = Falso

arr[i]= num;

escribir arr[i];

Fin Para

nmayor=0;

pos=0;

Para i=0 Hasta 19 Con Paso 1 Hacer

si (arr[1]>nmayor) entonces

nmayor=arr[i];

pos=1;

FinSi

Fin Para

Escribir '';

Escribir 'el numero mayor es ' , nmayor , ' y se encuentra en la posicion ' , pos ;

FinProceso

6) Realizar el programa para ingresar la nota y calcular la media total de todas las notas:

(CICLO MIENTRAS)

Ejercicio hecho en el tipo de lenguaje Estricto:

CICLO MIENTRAS 
Algoritmo sin_titulo
Definir Nnotas, contar, acumulador como numerico;
Definir notas , media como numerico;
Escribir 'Ingrese el numero de notas que desee';
Leer Nnotas;
contar<-1;
acumulador<-0;
Mientras contar< =Nnotas Hacer
Escribir 'Ingrese las notas ',contar;
Leer notas;
contar<-contar+1;
acumulador<- acumulador+notas;
Fin Mientras
media<-acumulador/2;
Escribir ' la media es ' , media;

7)Realizar el programa para ingresar la nota y calcular la media total de todas las notas:

(CLICLO PARA)

Ejercicio hecho en el tipo de lenguaje Estricto:

CICLO PARA 
Algoritmo sin_titulo
    Definir i,med como numerico;
Definir numero,suma como entero;
suma<-0;
Dimension numero[8];
Para i<-1 Hasta 7 Con Paso 1 Hacer
Escribir "ingrese el numero", i;
Leer numero[i];
FinPara
para i<-1 hasta 7 con paso 1 Hacer
Escribir "el numero ingresado es",numero[i];
suma<- suma+(numero[i]);
med<- (suma)/2;

FinPara
Escribir " la suma es" ,suma;
Escribir " media es", med;

8): Realizar un programa donde la opciones son:1= suma, 2= divida y 3= multiplique.. 
( pequeña calculadora)
El PSeint esta realizado con le Funcion "Segun" con el tipo de lenguaje estricto.

Proceso calculadora
definir num , resp , n1 , n2 como numerico;

Repetir
Escribir "digite 1 para suma, 2 dividir , 3 multiplicar";
Escribir "ingrese el numero de la opcion que ud desea";
Leer num;
Segun num Hacer
1:
Escribir "la suma de dos numeros";
leer n1;
leer n2;
resp <- n1+n2;
Escribir resp;
2:
Escribir " la division de dos numeros";
leer n1;
leer n2;
resp<- n1/n2;
Escribir resp;
3:
Escribir "multiplicacion de dos numeros";
leer n1;
leer n2;
resp<- n1*n2;
Escribir resp;
4:
Escribir "salir del programa";
De Otro Modo:
Escribir "opcion no valida";
FinSegun 
Escribir " vuelva pronto feliz lunes";
Esperar Tecla; 
Hasta Que num<=4;


FinProceso

9) Realizar un programa donde las opciones a escoger son: 1= visualize mis datos personales y 2= realize la suma de dos numeros:

El PSeint esta realizado con le Funcion "Segun" con el tipo de lenguaje estricto.

Proceso ejercicio2

Definir op, sum,num, num2 como numerico;

Repetir

Limpiar Pantalla;

Escribir " escoja la opcion: 1 visualiza un mensaje, 2 suma de dos numeros";

Leer op;

Segun op Hacer

1:

Escribir "gracias ";

2:

Escribir "digite el primer numero";

Leer num;

Escribir "digite el segundo numero";

Leer num2;

Escribir " su respuesta es:" ;

sum <-num+num2;

Escribir sum;

3:

Escribir "salir del programa";

De Otro Modo:

Escribir "opcion no valida";

FinSegun

Hasta Que op <=3;

Escribir "";

FinProceso

10) realizar un programa donde las opciones a seguir seran: 1= Calcular el área de un cuadrado 2= calcular el perimetro de un triangulo, 3=visualizar mis datos personales:


El PSeint esta realizado con le Funcion "Segun" con el tipo de lenguaje estricto.

Proceso ejercicio3

Definir l, n, area,perimetro,datos como numerico;

definir a, b, c como numerico;

Repetir

Limpiar Pantalla;

Escribir 'escriba las siguientes opciones';

Escribir "opcion 1 para calcular el area de un cuadrado";

Escribir "opcion 2 para calcular el perimetro de un triangulo";

Escribir "opcion 3 para visualizar mis datos personales"

Leer n;

Segun n Hacer

1:

Escribir 'escribir los datos para sacar el area de un cuadrado';

Leer l

area<-l*l

Escribir "el area del cuadrado es " , area;

2:

Escribir 'escribir los datos para calcular el perimetro de un triangulo';

Leer a, b, c;

perimetro<-a+b+c;

Escribir "el perimetro de un triangulo es " , perimetro;

3:

Escribir " em esta opcion visualisamos nuestros datos personales";

Escribir ' mi nombre es jefferson';

Escribir " mi edad es 19";

Escribir " min estado civil es soltero";

De Otro Modo:

Escribir "opcion incorrecta";

Fin Segun

Escribir 'presione enter para elegir otra opcion';

Esperar Tecla

Hasta Que n<-3

FinProceso

11) realizar un programa donde las las opciones a seguir serán: 1=realizar el calculo de la hipotenusa,  2= realizar la suma de dos números; si la respuesta es a partir de 10 escribir que el resultado es de dos cifras en caso de no serlo escribir que sea solo de una cifra y 3=visualizar mis datos personales:

El PSeint esta realizado con le Funcion "Segun" con el tipo de lenguaje estricto.

Proceso taller

Definir opcion, c1,c2,h,n1,n2 , total, fecha como numerico;

Definir nombre,gen Como Caracter;

//realizar un pseudocodigo:

//opcion1: realizar el calculo de la hipotenusa

//opcion2: si la respuesta de la suma de dos nuemeros es mayor a 10 un mensaje que me diga es valor de dos cifras y si es menor de 10 valor de una cifra:

//opcion3: datos personales

Repetir

Limpiar Pantalla;

Escribir "digite la opcion que ud desea " ; 

Escribir " digite opcion 1 si desea sacar la hipotenusa, 2 suma dos numeros ,  3 ingresar los datos personales";

Leer opcion;

Segun opcion Hacer

1:

Escribir "la formula es H2=CO2+CA2";

Escribir "ingrese sus catetos";

Leer c1;

Leer c2;

h<-(c1)^2 + (c2)^2;

Escribir " la hipotusa es " , h ,  " al cuadrado";

2:

Escribir "sumar dos numeros";

Leer n1;

Leer n2;

total<- n1 + n2;

Escribir " la suma es de " , total;

Si total>=10 Entonces

Escribir " el valor es de dos cifras";

Sino

Escribir " es de una cifra";

FinSi

3: 

Escribir "ingrese los datos personales";

Escribir "ingrese su nombres";

Leer nombre;

Escribir "ingrese su fecha nacimiento";

Leer fecha;

Escribir " ingrese su genero";

Leer gen;

4:

Escribir "salir del programa";

De Otro Modo:

Escribir "ingrese su valor correcto";

FinSegun

Hasta Que opcion<=4;

Escribir "";

FinProceso

FIN