Pseudocódigo Vectores y Matrices I

Ejercicios de pseudocódigo con vectores:

Mejorar el algoritmo de búsqueda en un vector.

1 Proceso BuscarEnArray1Dim

2      //Buscar de forma secuencial.

3      //si encuentra para la bisqueda

4      Definir N como entero;

5      Dimension N[10];

6      Definir I, Buscado, Encontrado como entero;

7      Buscado <- 23;

8      Encontrado <- 0;

9      Para I <- 1 hasta 10 hacer

10           N[I] <- Azar(50) ;

11           Escribir N[I], " " Sin Saltar;

12     FinPara

13     Escribir "";

14     I<-1;

15     Mientras Encontrado = 0 & I<=10

16           Si N[I] = Buscado Entonces

17                  Encontrado <- I;

18           FinSi

19           I<-I+1;

20     FinMientras

21     Si Encontrado = 0 entonces

22           Escribir "No Encontrado";

23     Sino

24           Escribir "Encontrado en pos " , Encontrado , " Con " , I-1 , " Pasos";

25     FinSi

26

27 FinProceso

Diseñar un algoritmo de búsqueda que busque en un vector ordenado. 

1 Proceso BuscarEnArrayOrdenado

2      Definir N como entero;

3      Dimension N[10];

4      Definir I,K,Tmp, Buscado, Encontrado como entero;

5      Buscado <- 50;Azar(25);

6      Escribir "Buscarmos el " , Buscado;

7      Encontrado <- 0;

8      Para I <- 1 hasta 10 hacer

9            N[I] <- Azar(25) ;

10     FinPara

11     //n[1]<-50;

12     Para I<-1 hasta 10 - 1 hacer

13           Para K<-1 Hasta 10 - I hacer

14                  Si N[K] > N[K+1] entonces

15                         tmp <- N[K];

16                         N[K]<-N[K+1];

17                         N[K+1]<-tmp;

18                  FinSi

19           FinPara

20     FinPara

21

22     Para I <- 1 hasta 10 hacer

23           Escribir N[I];

24     FinPara

25

26

27 Definir Min, Max, Med como entero;

28     Med<-0;

29     Min<-1;

30     Max<-10;

31     Mientras Min <= Max & Encontrado = 0

32           Med <- (( Max - Min ) / 2) + Min;

33           Escribir "Min:" , Min , " Max:", Max, " Med:" , Med, " Enc", Encontrado;

34           Si N[Med] > Buscado entonces //el central es mayor que buscado

35                  Max <- Med - 1;

36           Sino

37                  si N[med] < Buscado Entonces //el central es menor que buscado

38                         Min <- med + 1;

39                  sino // el central es el buscado

40                         encontrado <- Med;

41                  FinSi

42           FinSi

43           //Esperar Tecla;

44     FinMientras

45

46     Si Encontrado = 0 Entonces

47           Escribir "No esta";

48     Sino

49           Escribir "Esta en pos", Encontrado;

50     FinSi

51 FinProceso

Escriba un programa simule varios lanzamientos de un dado y muestre la frecuencia de cada una de las caras así como la proporción del número de veces que haya salido cada cara con respecto al total.Para ello simule 6000 lanzamientos de un dado.

1 Proceso LanzarDado6000Veces

2      //lanzar el dado y indicar las vecez que

3      //sale cada cara en total y en %

4      Definir Max Como Entero;

5      Max<-500; //Cambiar por 6000

6      Definir Dado, tanto Como Real;

7      Definir Datos Como Real;

8      Dimension Datos[6]; //1 2 3 4 5 6

9      Definir indice Como Entero;

10     //poner a 0

11     para indice <-1 hasta 6

12           Datos[Indice]<-0;

13     FinPara

14     para Indice <-1 hasta Max

15           Dato<-Azar(6) + 1;

16           Datos[Dato] <- Datos[Dato] + 1;

17           segun Dato hacer //Commentar para mas rapido

18                  1: Escribir " ";

19                         Escribir " * ";

20                         Escribir " ";

21                  2: Escribir " *";

22                         Escribir " ";

23                         Escribir "* ";

24                  3: Escribir " *";

25                         Escribir " * ";

26                         Escribir "* ";

27                  4: Escribir "* *";

28                         Escribir " ";

29                         Escribir "* *";

30                  5: Escribir "* *";

31                         Escribir " * ";

32                         Escribir "* *";

33                  6: Escribir "* *";

34                         Escribir "* *";

35                         Escribir "* *";

36           FinSegun

37           Esperar 0.05 Segundos;

38           Borrar Pantalla;

39     FinPara

40     para indice <-1 hasta 6

41           Escribir "Cara " , Indice Sin Saltar;

42           Escribir " Veces " , Datos[Indice] Sin Saltar;

43           Tanto <- ( Datos[Indice] / Max ) * 100;

44           Escribir " % " , Tanto;

45     FinPara

46 FinProceso

Leer Números hasta introducir 0, calcular la media y mostrar los valores que están por encima de la media.

1 Proceso LeerNumerosMediaYmayoredelamedia

2      //Leer Numero hasta intoducir el 0

3      //Calcular Media y mostrar los que estan

4      //por encima de la media

5      //Como maximo se leen 1000 Numeros.

6      Definir Num, Nums, Cuantos, Suma, Media, i Como Entero;

7      Dimension Nums[1000];

8      Cuantos<-0;

9      Suma <-0;

10     Repetir

11           Escribir "Dime el numero " , Cuantos +1;

12           Leer Num;

13           si Num <> 0 entonces

14                  Cuantos <- Cuantos + 1;

15                  Nums[Cuantos]<-Num;

16                  Suma <- Suma + Num;

17           FinSi

18     Hasta Que Num = 0 | Cuantos > 1000

19     Si Cuantos > 0 entonces

20           Media <- Suma / (Cuantos );

21           Escribir "La media es ", Media;

22           Para i<-1 hasta cuantos

23                  Si Nums[i]> Media entonces

24                         Escribir Nums[i], " es mayor que la media";

25                  FinSi

26           FinPara

27     Sino

28           Media <- 0;

29     fin si

30

31

32 FinProceso

Siguiente>