Scribd
Upload
61 views4 pages

Imprimir Un Array Bidimensional:: Delphi

The document discusses 5 examples of operations on two-dimensional arrays in Pascal: 1) Printing a 2D array, 2) Summing the elements of a 2D array, 3) Searching for an element in a 2D array, 4) Calculating the average of a 2D array, and 5) Sorting a 2D array using bubble sort. Each example provides the Pascal code to implement the operation on a sample 2D integer array.

Uploaded by

raumijerusalemhernandezdiaz
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
61 views4 pages

Imprimir Un Array Bidimensional:: Delphi

The document discusses 5 examples of operations on two-dimensional arrays in Pascal: 1) Printing a 2D array, 2) Summing the elements of a 2D array, 3) Searching for an element in a 2D array, 4) Calculating the average of a 2D array, and 5) Sorting a 2D array using bubble sort. Each example provides the Pascal code to implement the operation on a sample 2D integer array.

Uploaded by

raumijerusalemhernandezdiaz
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
You are on page 1/ 4

Ejercicios de Array Bidimensional en Pascal

1. Imprimir un Array Bidimensional:

Delphi

program ImprimirArrayBidimensional;

var
matriz: array[1..5, 1..3] of integer;
i, j: integer;

begin
for i := 1 to 5 do
begin
for j := 1 to 3 do
begin
matriz[i, j] := i * j;
end;
end;

for i := 1 to 5 do
begin
for j := 1 to 3 do
begin
Write(matriz[i, j]:4);
end;
Writeln;
end;
end.

2. Sumar los elementos de un Array Bidimensional:

Delphi

program SumarArrayBidimensional;

var
matriz: array[1..5, 1..3] of integer;
i, j: integer;
suma: integer;

begin
for i := 1 to 5 do
begin
for j := 1 to 3 do
begin
matriz[i, j] := i * j;
end;
end;

suma := 0;
for i := 1 to 5 do
begin
for j := 1 to 3 do
begin
suma := suma + matriz[i, j];
end;
end;

Writeln('La suma de los elementos del array es: ', suma);


end.

3. Buscar un elemento en un Array Bidimensional:

Delphi

program BuscarElementoArrayBidimensional;

var
matriz: array[1..5, 1..3] of integer;
i, j: integer;
valor, encontrado: integer;

begin
for i := 1 to 5 do
begin
for j := 1 to 3 do
begin
matriz[i, j] := i * j;
end;
end;

Write('Introduzca el valor a buscar: ');


Readln(valor);

encontrado := 0;
i := 1;
while (i <= 5) and (not encontrado) do
begin
j := 1;
while (j <= 3) and (not encontrado) do
begin
if matriz[i, j] = valor then
begin
encontrado := 1;
Writeln('El valor ', valor, ' se encuentra en la posición (',
i, ', ', j, ')');
end;
j := j + 1;
end;
i := i + 1;
end;

if not encontrado then


begin
Writeln('El valor ', valor, ' no se encuentra en el array');
end;
end.

4. Calcular el promedio de un Array Bidimensional:

Delphi

program CalcularPromedioArrayBidimensional;

var
matriz: array[1..5, 1..3] of integer;
i, j: integer;
suma, promedio: integer;

begin
for i := 1 to 5 do
begin
for j := 1 to 3 do
begin
matriz[i, j] := i * j;
end;
end;

suma := 0;
for i := 1 to 5 do
begin
for j := 1 to 3 do
begin
suma := suma + matriz[i, j];
end;
end;

promedio := suma / (5 * 3);


Writeln('El promedio de los elementos del array es: ', promedio);
end.

5. Ordenar un Array Bidimensional (Burbuja):

Delphi

program OrdenarArrayBidimensionalBurbuja;

var
matriz: array[1..5, 1..3] of integer;
i, j, aux: integer;

begin
for i := 1 to 5 do
begin
for j := 1 to 3 do
begin
matriz[i, j] := i * j;
end;
end;

for i := 1 to 5 do
begin
for j := 1 to 3 do
begin
for k := 1 to 4 do
begin
for l := 1 to

You might also like