ACTIVIDAD
Digitar y ejecutar utilizando PseInt
1.
Proceso usomientras
I<-0
F<-5
Mientras I<=F Hacer
A<-A+I
Escribir "No=",I;
I<-I+1
FinMientras
Escribir "Suma=",A;
FinProceso
2.
Proceso mod
Para num<-1 Hasta 100 Con Paso 1
//asi indicamos si un numero es multiplo de 3 o de 2
si (num MOD 7=0 ) Entonces
Escribir num
FinSi
FinPara
FinProceso
3.
Proceso usodelpara
definir a,b,c como reales
Escribir "Digite el valor inicial ";
Leer a;
Escribir "Digite el valor final ";
Leer b;
Escribir "Digite el valor de incremento ";
Leer c;
Para d<-a Hasta b Con Paso c Hacer
Escribir "El No es:",d;
FinPara
FinProceso
4.
Proceso Repetir01
Repetir
Escribir "Dime tu clave de acceso";
Leer clave;
Si clave <> 1234 Entonces
Escribir "Clave incorrecta";
FinSi
Hasta Que clave=1234
Escribir "Bienvenido!";
FinProceso
5.
Proceso EjemploCasos
Escribir "Introduzca la nota";
Leer nota;
Segun nota Hacer
10:
Escribir "Ha obtenido un sobresaliente alto";
9:
Escribir "Ha obtenido un sobresaliente bajo";
8:
Escribir "Ha obtenido un notable alto";
7:
Escribir "Ha obtenido un notable bajo";
6:
Escribir "Ha obtenido un aprobado alto";
5:
Escribir "Ha obtenido un aprobado";
De Otro Modo:
Escribir "Ha perdido, debe recuperar";
FinSegun
FinProceso
6.
Proceso compra
definir a,b,c como reales
Escribir "Digite el mes";
Leer m;
Escribir "Valor de la compra";
Leer a;
b<-a*0.85;
Si m="Abril" o m="Octubre" Entonces
Escribir "El valor de su compra, CON descuento es :",b;
Sino
Escribir "El valor de su compra, SIN descuento es :",a;
FinSi
FinProceso
7.
Proceso FACTORIAL
V1<-1;
V2<-2;
NUMERO<-0;
ESCRIBIR "INGRESE UN NUMERO";
LEER NUMERO;
PARA I<-1 HASTA NUMERO-1 CON PASO 1 HACER
R<-V1*V2
V1<-R;
V2<-V2+1;
FINPARA
ESCRIBIR R;
FinProceso
8.
Proceso Para1
// declara un arreglo de 10 elementos
Dimension A[10];
// recorre los 10 elementos y va asignandoles enteros aleatorios
para cada elemento de A Hacer
// elemento toma el contenido de cada posicion del arreglo
// y si se modifica elemento se modifica el arreglo
elemento <- azar(100);
FinPara
Escribir "Los elementos del arreglo son:";
// recorre los 10 elementos utilizando subindices y los muestra en pantalla
para i desde 1 hasta 10 Hacer
escribir "Posición " i ": " A[i];
FinPara
Escribir ""; // deja una linea en blanco
Escribir "En orden inverso:";
// recorre los 10 elementos en orden inverso y los muestra en una misma linea
para i desde 10 hasta 1 Hacer
escribir sin bajar A[i] " ";
FinPara
FinProceso
9.
Proceso Matriz
//Primero se crea la matriz de 2 x 2 y se define su tipo, asi como los dos indices para la fila y columna
Dimension M [2,2];
Definir M,I,J como Entero;
// Leer valores, aqui se cargan los valores en cada celda
Para J<-1 Hasta 2 Hacer
Para I<-1 Hasta 2 Hacer
Escribir 'Ingrese valor para indice ',I,', en columna ',J,':'
Leer M[I,J]
FinPara
FinPara
// Mostrar valores de cada celda
Para I<-1 Hasta 2 Hacer
Para J<-1 Hasta 2 Hacer
Escribir 'El valor para indice ',I,', en columna ',J,'es :' M[I,J];
FinPara
FinPara
FinProceso
10.
Proceso Rectangulo
Escribir Sin Saltar "Introduce el ancho: "
Leer ancho
Escribir Sin Saltar "Introduce el alto: "
Leer alto
Para fila<-1 Hasta alto Hacer
Para columna <- 1 Hasta ancho Hacer
Escribir Sin Saltar "*" ;
FinPara
Escribir ""; // Avance de línea tras cada fila
FinPara
FinProceso
Comentarios
Publicar un comentario