Lección 011: El uso de arreglos

Ejercicio 1

Dadas las declaraciones:

Código:

CONST
  N = 500;
VAR
  puntos: ARRAY [1..N] OF Integer;
  prueba, menor, indice: Integer;

¿Cuál segmento de programa encontrará el valor más pequeño de este arreglo, y almacenará el subíndice del elemento donde está guardado este valor?

a.

Código:

FOR prueba := 1 TO N DO
        IF (puntos[prueba] < menor) THEN
                menor := puntos [menor];

----------------------------------------------------------------------------------------

b.

Código:

menor := puntos[1];
FOR prueba := 2 TO N DO
    IF (puntos[prueba] < menor) THEN
        menor := puntos [prueba];

---------------------------------------------------------------------------------------

c.

Código:

indice := 1;
FOR prueba := 2 TO N DO
    IF (puntos[prueba] < puntos[indice]) THEN
        indice := prueba;

----------------------------------------------------------------------------------------

d.

Código:

FOR prueba := 1 TO N DO
    IF (puntos[prueba] < menor) THEN
        menor := prueba;

----------------------------------------------------------------------------------------

e.

Código:

indice := 1;
FOR prueba := 2 TO N DO
    IF (puntos[prueba] < índice) THEN
        indice := prueba;

===========================================================================

Ejercicio 2

¿Cuáles de los siguientes segmentos de programa invertirán un arreglo de caracteres llamado cadena que consta de N elementos?

a.

Código:

FOR conmuta := 1 TO N DO BEGIN
        temp := cadena[conmuta];
        cadena[(N+1) - conmuta] := temp
END

----------------------------------------------------------------------------------

b.

Código:

FOR conmuta := 1 TO N DO BEGIN
        temp := cadena[conmuta];
        cadena[conmuta] := cadena[(N+1) - conmuta];
        cadena[(N+1) - conmuta] := temp
END

----------------------------------------------------------------------------------

c.

Código:

FOR conmuta := 1 TO (N DIV 2) DO BEGIN
        temp := cadena[conmuta];
        cadena[conmuta] := cadena[(N+1) - conmuta];
        cadena[(N+1) - conmuta] := temp
END

----------------------------------------------------------------------------------

d.

Código:

FOR conmuta := 1 TO (N DIV 2) DO BEGIN
        temp := cadena[conmuta];
        cadena[conmuta] := cadena[(N+1) - conmuta];
        cadena[conmuta] := temp
END

----------------------------------------------------------------------------------

e.

Código:

FOR conmuta := 1 TO (N DIV 2) DO Begin
        temp := cadena[conmuta];
        cadena[conmuta] := cadena[(N DIV 2) - conmuta];
        cadena [(N DIV 2) - conmuta] := temp
END

===========================================================================

Ejercicio 3

Dadas las siguientes declaraciones:

Código:

CONST N = . . .;
. . .
TYPE
        RangoN = 1..N;
        Tabla = Array[RangoN] OF Integer;

• Escriban un programa HallaIndMax que imprima el índice del valor más grande de un arreglo.
  
• Escriban un programa HallaMax que imprima el valor más grande de un arreglo.
  
• Escriban un programa Ordenado que imprima una salida indicando si los elementos del arreglo se encuentran en orden ascendente.

En todos los casos se deben obtener los valores del arreglo desde la entrada estándar.

===========================================================================

Ejercicio 4

Dada la definición de tipo para representar cadenas de caracteres de largo M y N :

Código:

    CONST N = . . .;
    CONST M = . . .; { M < N }
    . . .
    TYPE
            CadenaM = ARRAY[1..M] Of Char;
            CadenaN = ARRAY[1..N] Of Char;

Implementar un programa que lea dos cadenas de la entrada estándar de largo M y N respectivamente, y determine si la primera cadena ocurre como parte de la segunda cadena. El programa debe funcionar para cualquier valor positivo que puedan tomar M y N, considerando la restricción M < N.

Ejemplo de entrada para N=6, M=3:

Código:

tor
totora

Ejemplo de salida:

Código:

El texto 'tor' se encuentra dentro del texto 'totora'.

Ejemplo de entrada:

Código:

tos
totora

Ejemplo de salida:

Código:

El texto 'tos' no se encuentra dentro del texto 'totora'.

==========================================================================

Ejercicio 5

Dada la definición de tipo para representar cadenas de caracteres de largo N y M:

Código:

    CONST N = . . .;
    CONST M = . . .;
    . . .
    TYPE
            CadenaM = ARRAY[1..M] Of Char;
            CadenaN = ARRAY[1..N] Of Char;

• Escriban un programa que lea dos cadenas de largo M y N respectivamente, e imprima un mensaje en la salida estándar indicando si alguna letra en la primera palabra ocurre en la segunda.
  
• Escriban un programa que lea dos cadenas de largo M y N respectivamente, y determine si todas las letras en la primera palabra ocurren en la segunda.

============================================================================

Navegación:

• Ir al índice del curso.
  
• Ir al índice de ejercicios de Pascal.