Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                

Ejercicios Resueltos de PSeINT

Descargar como docx, pdf o txt
Descargar como docx, pdf o txt
Está en la página 1de 4

Tarea6:

Algoritmo arreglo_dimension_7

Dimension num[7]

num[1]=20

num[2]=14

num[3]=8

num[4]=0

num[5]=5

num[6]=19

num[7]=4

Para i=1 Hasta 5 Con Paso 1 Hacer

Escribir "La posicion es: ", i," y el numero es: ", num[i];

Fin Para

FinAlgoritmo

Algoritmo dimensionar_vector

Dimension Num[5]

Para i=1 hasta 5

Escribir "Ingrese numero: ";

Leer Num[i]

Fin para

Para i=1 hasta 5

Escribir "La posicion es: ", i " y el valor es: ", Num[i]

Fin para

FinAlgoritmo

Algoritmo arreglo_de_5_numeros
Dimension num[5];

Para i=1 Hasta 5 Con Paso 1 Hacer

Escribir "Digite el numero para la posicion: ",i;

Leer num[i];

Fin Para

Para i=1 Hasta 5 Con Paso 1 Hacer

Escribir "La posicion es: ", i, " y el numero es: ", num[i];

Fin Para

FinAlgoritmo

Algoritmo Tarea_Algoritmia_7

Dimension lista[5];

Para i<-1 Hasta 5 Con Paso 1 Hacer

Escribir "INGRESE EL NUMERO EN LA POSICION: ", i;

Leer lista[i]

Fin Para

Para i<-1 Hasta 4 Con Paso 1 Hacer

Para j<-1 Hasta 4 Con Paso 1 Hacer

Si lista[j]>lista[j+1] Entonces

temp = lista[j];

lista[j] = lista[j+1];

lista[j+1] = temp;

FinSi

Fin Para

Fin Para

Para c<-1 Hasta 5 Con Paso 1 Hacer

Escribir "El orden es: ", lista[c];


Fin Para

FinAlgoritmo

Algoritmo duplicar_datos

Dimension datos[100];

Escribir "Ingrese el número de elementos: "

Leer N

Para i<-1 hasta N Con Paso 1 hacer

Escribir "ingrese el elemento en la posición: ", i;

Leer datos[i];

FinPara

Para i<-1 hasta N Con Paso 1 hacer

datos[i]= datos[i]*2

FinPara

Para i<-1 hasta N Con Paso 1 hacer

Escribir "LOS DATOS DUPLICADOS SON: ", datos[i];

FinPara

FinAlgoritmo

Algoritmo matriz

Dimension M[3,3];

Definir M,I,J como Entero;

Para J=1 Hasta 3 Hacer

Para I=1 Hasta 3 Hacer

Escribir "Ingrese valor para Fila ",I,", en Columna ",J,":";

Leer M[I,J]

FinPara
FinPara

Para I=1 Hasta 3 Hacer

Para J=1 Hasta 3 Hacer

Escribir "El valor para Fila ",I,", en la Coluna ",J," es: " M[I,J];

FinPara

FinPara

FinAlgoritmo

También podría gustarte