PSEINT: seudocdigo

1)para un grupo de n (n<=100) artculos se desea almacenar para cada

uno, cdigo entero y precio (real)Luego presentar el mayor precio y
los cdigos de los artculos que lo poseen
Proceso
dimension cod(20)
dimension precio(20)
escribir ":::::::::::::::::::::::::::::::"
escribir "ingrese el numero de articulos" ;leer n sinbajar;
escribir ":::::::::::::::::::::::::::::::"
mientras n>0 y n< 101
para i<-1 hasta n Hacer
escribir "ingrese codigo del articulo" i
leer cod(i)
escribir "ingrese precio del articulo" i
Leer precio(i)
FinPara
max<-precio(1)
para i<-1 hasta n Hacer
si precio(i)>max
max<-precio(i)
FinSi
FinPara
escribir "--------------------------------"
escribir ""
escribir "el mayor precio es" max
para i<-1 hasta n
si precio(i)=max
escribir "Elcodigo es" cod(i)
FinSi
FinPara
FinMientras
FinProceso

2)Para un grupo de n(n<=50) alumnos se desea almacenar para cada uno,

cdigo (entero) y 8 notas (enteras). Luego presentar por cada alumno
el cdigo y promedio de notas
Proceso
dimension cod(50)
dimension not(50,8)
escribir "ingrese el numero de alumnos";leer n ;sin bajar
Mientras n>0 y n<51 hacer
para i<-1 hasta n
escribir "ingrese el codigo del alumno " i ":"
leer cod(i)
para j<-1 hasta 8 hacer
escribir "escriba la nota N " j ;leer not(i,j)
FinPara
FinPara
para i<-1 hasta n Hacer
s<-0
para j<-1 hasta 8 Hacer
s<-not(i,j)+s
FinPara
escribir "------------------------"
escribir "su codigo es" cod(i)
escribir "su promedio es" s/8
escribir "------------------------"
FinPara
FinMientras
FinProceso
3) El cartero de una zona campestre debe de entregar cartas en n casas
de una regin. Para ello, desea armarse un recorrido que le permita
entregar todas las cartas y regresar a su oficina queriendo que el
trayecto entre dos casas consecutivas sea siempre recto. Como le gusta
pasear pretende, adems, que el recorrido no se corte a s mismo,
entonces el problema consiste en escribir un programa que le permita
el ingreso de las coordenadas (x,y)de cada una de las n casas y de la
oficina de correos y que si existe una lista de las casas en el orden
en que deben ser visitadas
Proceso cartero

definir casax ,casay,m,n,i,j,disto,x,yy,aux,pos,aux1 como reales;

dimension casax[20];
dimension casay[20];
dimension disto[20];
dimension pos(20);
escribir ">->-> CARTERO <-<-<-";
Escribir "";
escribir "Ingrese ordenadas de la oficina";
escribir " x-";leer x;sin bajar;
escribir " y-";leer yy;sin bajar;
escribir " Sr. ingrese el nmero de casas a visitar";leer n;sin
bajar;
escribir "";
j<-0;
para i<-1 hasta n con paso 1 Hacer
escribir "Ingrese las coordenadas de la casa ",i;
escribir " x-";leer casax[i];sin bajar;
escribir " y-";leer casay[i];sin bajar;
disto[i]<-RC((x-casax[i])^2 + (yy-casay[i])^2);
pos[i]<-i;
j<-j+1;
escribir "La distancia de la casa ",i," a la oficina =
",disto[i];
escribir "";
FinPara
// Ordenar
para i<-1 hasta n-1 con paso 1 hacer
para j<-i+1 hasta n con paso 1 hacer
si disto[i]>disto[j] Entonces
aux<-disto[i];aux1<-pos[i];
disto[i]<-disto[j];pos[i]<-pos[j];
disto[j]<-aux;pos[j]<-aux1;
FinSi
FinPara
FinPara
escribir "Orden de casas a visitar ";
para i<-1 hasta n con paso 1 hacer
escribir "Casa ",pos[i]," :",disto[i];
FinPara
FinProceso

4) Competidores. - Disear un programa para registrar los tiempos de

los chequeos de 4 velocistas que compiten por un cupo de la
clasificacin nacional. Cada velocista recorre por un carril y se debe
realizar 3 chequeos por cada velocista. Ud. debe registrar nombre del
velocista que recorre por cada canal, registrar el tiempo de cada
prueba y su tiempo promedio. Tome en cuenta que el nombre del
competidor tiene una longitud mxima de 40 caracteres.
Proceso sin_titulo
definir tiempo,i,j,total,totals,prom como reales;
definir nombres como cadena;
dimension nombres[4];
dimension tiempo[3,3];
dimension totals[4];
para i<-1 hasta 3 con paso 1 Hacer
escribir " Nombre del ",i," competidor ";leer nombres[i];sin
saltar;
Escribir "";
total<-0;
para j<-1 hasta 3 con paso 1 hacer
Escribir "Tiempos del ",i," competidor :";leer
tiempo[i,j];sin saltar;
total<-total+tiempo[i,j];
FinPara
Escribir "";
prom<-(total/3);
totals[i]<-redon(prom*100)/100;
FinPara
para i<-1 hasta 3 con paso 1 Hacer
escribir "";
escribir Nombres[i];
escribir "TIEMPOS:";
para j<-1 hasta 3 con paso 1 hacer
escribir Tiempo[i,j]," ";sin saltar;
FinPara
escribir " Promedio: ",totals[i];sin saltar;
escribir "";
FinPara
FinProceso

5) ordenar las cifras de un nmero n (menor a 10)

Proceso sin_titulo
definir n,orden,i,d,aux como enteros;
Escribir "Ingrese numero a ordenar ";leer n;sin bajar;
i<-0;orden<-0;
mientras i<=9 Hacer
aux<-n;
mientras n<>0 Hacer
d<-n%10;
n<-trunc(n/10);
si d==i entonces
orden<-orden*10+d;
FinSi
FinMientras
i<-i+1;n<-aux;
FinMientras
escribir orden;
FinProceso

6) Ingresar 4 notas de n alumnos donde se elimine la menor nota y

saque el promedio de estas
Algoritmo sin_titulo
dimension pc(50)
escribir "el numero de alumnos"
leer m
 repetir
Hasta Que m>0
n<-4
para j<-1 hasta m hacer
escribir "alumno N" j
para i<-1 hasta n
escribir "la nota numero " i ;leer pc(i);sinsaltar
FinPara
min<-pc(1)
s<-0
para i<-1 hasta n
s<-s+pc(i)
si pc(i)<min
min<-pc(i)
FinSi
FinPara
escribir min
escribir "---------------------------------------"
escribir "su promedio alumno N" j " es " (s-min)/3
FinPara
FinAlgoritmo

7) Para un grupo den (n<=100) empleados, se desea almacenar sus

sueldos. Luego presentar los sueldos ordenados en forma creciente de
forma tal que el vector que las contiene no se vea alterado

Algoritmo
Dimension emp(100)
dimension suel(100)
escribir "ingrese el numero de sueldos"; leer n
para i<-1 hasta n
escribir "ingrese sueldo " i; leer suel(i)
emp(i)<-i
FinPara
para i<-1 hasta n-1
para j<-i+1 hasta n
si suel(emp(i))>suel(emp(j))
aux<-emp(i)
emp(i)<-emp(j)
emp(j)<-aux
FinSi
FinPara
FinPara
escribir"------------------------"
Escribir "el numero ordenado es"
para i<-1 hasta n hacer
escribir suel(emp(i))
FinPara
escribir "_-_-_-_-_-_-_-_-_-_-_-_-
FinAlgoritmo

8) Escribir (n) nmeros y ordenarlos de forma creciente y de forma

decreciente, de tal manera que el resultado sea un vector.
Algoritmo
dimension ord(100)
escribir "ingrese la cantidad de numeros";leer n;sinbajar
para i<-1 hasta n
escribir "ingrese los numeros "
leer ord(i)
FinPara
 aux2<-ord(i)
escribir ord(i)
para i<-1 hasta n-1
para j<-i+1 hasta n
si ord(i)> ord(j)
aux<-ord(i)
ord(i)<- ord(j)
ord(j)<-aux
FinSi
FinPara
FinPara
escribir "--------------------------------------"
escribir "El orden decreciente es"
para i<-1 hasta n con paso 1 hacer
escribir ord(i)
fin para
ord(i)<-aux2
para i<-1 hasta n-1
para j<-i+1 hasta n
si ord(i)<ord(j)
aux<-ord(i)
ord(i)<-ord(j)
ord(j)<-aux
FinSi
FinPara
FinPara
escribir "---------------------------------------"
Escribir "el orden creciente es"
para i<-1 Hasta n Hacer
escribir ord(i)
FinPara
FinAlgoritmo

9) Ingrese una cantidad n de edades, donde tenga que eliminar todas

las edades iguales a 13. (Eliminacin de un vector)

Algoritmo
dimension edad(75)
escribir "ingrese la canidad de edades"
leer n
para i<-1 hasta n
escribir "ingrese la edad" ;leer edad(i)
FinPara
k<-1
mientras k<=n
si edad(k)=13
para i<-k+1 hasta n
edad(i-1)<-edad(i)
FinPara
n<-n-1
sino
k<-k+1
FinSi
FinMientras
escribir "el grupo de edades sin las eliminadas"
escribir "..---------------------------------.."
para i<-1 hasta n
escribir edad(i)
FinPara
FinAlgoritmo
10) Escribir n edades en forma de vector, donde tenga que
intersectar en la posicin k la edad 23. K puede ser 1, 2,3 n

En el ejemplo k =2
Algoritmo
Dimension edad(49)
Escribir "ingresela cantidad de numeros"
leer n
para i<-1 hasta n
escribir "ingrese la edad" "(" i ")" ; leer edad(i);sin bajar
FinPara
k<-2
si n<50
para i<-2 hasta n
edad(n+k+1-i)<-edad(n-1+k+1-i)
FinPara
edad(k)<-23
n<-n+1
sino
escribir "No hay espacio en el vector"
FinSi
Escribir "El nuevo vector es"
escribir "-------------------------------"
para i<-1 hasta n
escribir edad(i)
FinPara
FinAlgoritmo

11) Escribir un algoritmo que permita leer un nmero n y lo exprese

como la suma de cubos de tres nmeros a; b; c y adems mostrar el
nmero de posibilidades.

Algoritmo
escribir "::::::::::::Algorirmo de cubos::::::::::::"
escribir "a^3+b^3+c^3=n"
escribir "escribe el numero"
leer n
para i<-1 hasta n
para j<-1 hasta n Hacer
para k<-1 hasta n Hacer
si i^3+j^3+k^3=n y i<=j y j<=k
escribir "-----------------------------------"
escribir "posibilidad (" i ")"
escribir "los numeros son " i " ; " j " ; " k
escribir "-----------------------------------"
FinSi
FinPara
FinPara
FinPara
FinAlgoritmo

12) Pasar una cadena a un vector. Ejemplo de cadena Per campen usando bucles como
para y tambin bucles como repetir
BUCLE PARA.
Algoritmo
definir v como cadena
dimension v(100)
definir i Como Entero
escribir "pasar una cadena a un vector"
escribir ""
 cad = "peru es campeon"
para i<-1 Hasta longitud(cad)
v(i)<-subcadena(cad,i,i)
FinPara
escribir "-----------------------------"
para i<-1 hasta longitud(cad)
escribir "vector ( " i " )= " v(i)
FinPara
FinAlgoritmo

BUCLE REPETIR
Algoritmo
definir v como cadena
dimension v(100)
definir i Como Entero
escribir "pasar una cadena a un vector"
escribir ""
cad = "peru campeon"
lon<-longitud(cad)
i<-1
repetir
v(i) <- subcadena (cad,i,i)
i<-i+1
Hasta Que cad=='\0' o 50<i
para i<-1 hasta lon hacer
escribir "vector (" ,i ,")= " v(i)
FinPara
FinAlgoritmo

13) Disear un algoritmo que permita leer una cadena de longitud n

caracteres, luego mostrndolo de forma invertida. Y si su forma
invertida que te muestre un mensaje diciendo: Esta palabra invertida es
igual.
Algoritmo
inv<-""
k<-0
escribir "invertir cadena"
escribir ""
escribir "Ingrese cadena = " ; leer cad;sin bajar
escribir ""
longi<-longitud(cad);
para i<-0 hasta longi Hacer
inv<-inv+subcadena(cad,longi-i,longi-i)
FinPara
escribir ""
escribir " cadena invertida " , inv
escribir ""
si cad=inv
escribir "----------------------------------"
escribir ".Esta palabra invertida es igual.."
escribir "----------------------------------"
FinSi
FinAlgoritmo

14) Caso Sistema de Gestin de alumnos: Consiste en registrar un

numero indeterminado de alumnos por Nombre, con la siguiente condicin

1.- No debe repetirse los nombres

2.-Si ocurre caso 1, estos se deben registrar en una nueva lista

Luego realice los siguientes reportes

Listado de alumnos sin repetirse, si existe repetidos mostrarlos en su

respectivo orden

Algoritmo
definir nombre,lista,aux,rep como cadenas
definir se_repite Como Logico
Definir cant,i,j,pos_menor,k Como Entero
dimension lista(200)
dimension rep(200)
escribir "SISTEMA DE GESTION DE ALUMNOS"
escribir "----------------------------------"
escribir ""
escribir " Finaliza con : ENTER "
cant<-1 ; k<-0
escribir ""
Escribir "Alumno (o)= "; leer nombre ; sin saltar
mientras nombre<>"" Hacer
lista(cant)<-nombre;
cant<-cant+1
repetir
k<-k+1
escribir "alumno (" ,k ,")=" ; leer nombre Sin Saltar
se_repite<-Falso;
para i<-1 hasta cant-1 Hacer
si nombre==lista(i) Entonces
escribir "Existe...."
se_repite<-Verdadero
rep(i)<-nombre
FinSi
FinPara
Hasta Que ~se_repite
FinMientras
escribir ""
escribir "Nro nombres repetidos"
para i<-1 hasta cant-1 Hacer
escribir "" ,i,".- ", lista(i) " " rep(i)
FinPara
FinAlgoritmo

15) Disee un programa para leer una cadena y luego mostrar sus
caracteres ordenados y sin repetirse; tambin mostrar la longitud de
la cadena
Algoritmo
Dimension k(100) ; dimension vsr(100)
definir k,cad,vsr Como Caracter
definir i,j,t,lon,d Como Entero
t<-0
Escribir "Eliminarelementos repetidos en euna cadena"
escribir "------------------------------------------"
escribir ""
escribir "ingrese cadena" ; leer cad ; sinbajar
lon<-longitud(cad);
Escribir ""
escribir "longitud de la cadena =" ,lon
Escribir ""
para j<-0 hasta lon
si subcadena(cad,j,j)<>' ' Entonces
 t<-t+1
k(t)<-subcadena(cad,j,j)
FinSi
FinPara
escribir "Cadena expresada en caracteres"
escribir ""
para i<-1 hasta t
Escribir " " , k(i)
FinPara
para i<-1 hasta t-1
para j<-i+1 hasta t
si k(j)<k(i) entonces
aux<-k(i)
k(i)<-k(j)
k(j)<-aux
FinSi
FinPara
FinPara
escribir "Elementos ordenados"
escribir ""
para i<-1 hasta t
escribir " " , k(i)
FinPara
d<-1
para i<-1 hasta t-1
si k(i)<>k(i+1) entonces
vsr(d)<-k(i)
d<-d+1
FinSi
FinPara
escribir "Elementos sin repetirse"
escribir ""
para i<-1 hasta d Hacer
escribir " " , vsr(i)
FinPara
FinAlgoritmo

16) Disee un programa para contar las vocales en una cadena. Se lee
una cadena y luego se muestra el nmero de vocales. El algoritmo debe
presentar el bucle INTERACTIVO.

Algoritmo
definir cadec Como Cadena
definir resp Como Caracter
repetir
limpiar pantalla
escribir ""
escribir "CONTAR VOALES EN UNA CADENA"
escribir "---------------------------"
escribir "Ingrese una cadena = " ;leer cadenac Sin Saltar
cadenac<- Minusculas(cadenac)
vocales<-"aeiou" //para comparar//
totalvoc<-0
para i<-1 hasta longitud(cadenac) Hacer
para j<-1 hasta longitud(vocales) Hacer
si Subcadena(cadenac,i,i)=subcadena(vocales,j,j)
Entonces
totalvoc<-totalvoc+1
FinSi
FinPara
FinPara
 escribir "La frase contiene :" ,totalvoc ," vocales."
escribir "Sr. desea procesar nueva cadena....? (S/N)== " ;leer
resp;sin bajar

Hasta Que resp <>'S' y resp <>'s'

si resp<> 'N' o resp<> 'n'
Escribir "Gracias hasta luego..."
Esperar Tecla
FinSi
FinAlgoritmo

17) Disee un programa que dado una cadena extraer porciones de

letra(s) subcadenas.
Algoritmo
definir caden como cadena
escribir " Ingrese cadena = "; leer caden ; sin saltar
escribir ""
escribir "Longitud de la cadena : "
Escribir longitud(caden)
escribir ""
escribir " Primera letra de la cadena: "
escribir subcadena(caden,1,1)
escribir Subcadena(caden,1,2)
Escribir Subcadena(caden,1,3)
escribir subcadena(caden,3,3)
FinAlgoritmo

18) Disee un programa donde el algoritmo pida frases (bucle

interactivo) y este de por resultado el nmero de frases.

Algoritmo
cont<-0
res<-1
Mientras res=1 Hacer
Escribir "ingrese frase";
Leer frase
cont<-cont+1
Escribir "escribir ms frases? n/s";
Leer res1
Si res1="s" Entonces
res<-1
Sino
res<-0
FinSi
FinMientras
Escribir cont;
FinAlgoritmo

19) Disee un programa que pueda unir dos oraciones (cadenas).

Algoritmo
Escribir "Ingresa una oracin: "
Leer oracion1
Escribir "Ingresa otra oracin: "
Leer oracion2
Final = Concatenar(Oracion1, Oracion2)
Escribir "El resultado es: ", Final
FinAlgoritmo