- Escribir un programa en Pascal que determine la posición de
la siguiente matriz en la que se encuentra el valor máximo.
23 45 68
34 99 12
25 78 89
PROGRAM EJER91B;
USES CRT;
CONST arr_num:ARRAY[1..3,1..3] of INTEGER=( (23,45,68),
(34,99,12),
(25,78,89) );
VAR i,j,val_max,pos_max_i,pos_max_j:INTEGER;
BEGIN
ClrScr;
val_max:=arr_num[1,1];
FOR i:=1 TO 3 DO
BEGIN
FOR j:=1 TO 3 DO
BEGIN
IF arr_num[i,j] > val_max THEN
BEGIN
val_max:=arr_num[i,j];
pos_max_i:=i;
pos_max_j:=j;
END;
END;
END;
WRITELN( 'VALOR MAXIMO: ', val_max:3,
' POSICION: ', pos_max_i:3,pos_max_i:3);
END.
- Escribir un programa en Pascal que sume, independientemente, los
elementos positivos y negativos de la siguiente matriz:
-12 23 32
45 -56 -10
25 78 89
PROGRAM EJER92;
USES CRT;
CONST arr_num:ARRAY [1..3,1..3] of INTEGER=( (-12,23,-32),
(45,-56,-10),
(25,78,89) );
VAR i,j,suma_p,suma_i:INTEGER;
BEGIN
ClrScr;
FOR i:=1 TO 3 DO
BEGIN
FOR j:= 1 TO 3 DO
BEGIN
IF arr_num[i,j] >=0 THEN
suma_p:= suma_p + arr_num[i,j]
ELSE
suma_i:= suma_i + arr_num[i,j];
END;
END;
WRITELN ('La suma de los numeros pares es: ',suma_p);
WRITELN ('La suma de los numeros impares es: ',suma_i);
END.
PROGRAM EJER92;
USES CRT;
CONST arr_num:ARRAY[1..3,1..3] of INTEGER=( (-12,23,-32),
(45,-56,-10),
(25,78,89));
VAR i,j,suma_pos,suma_neg:INTEGER;
BEGIN
suma_pos:=0;
suma_neg:=0;
ClrScr;
FOR i:=1 TO 3 DO
BEGIN
FOR j:=1 TO 3 DO
BEGIN
IF arr_num[i,j] < 0 THEN
suma_neg:=suma_neg+arr_num[i,j]
ELSE
suma_pos:=suma_pos+arr_num[i,j]
END;
END;
WRITELN('SUMA POSITIVOS: ', suma_pos:5);
WRITELN('SUMA NEGATIVOS: ', suma_neg:5);
END.
- Escribir un programa en Pascal que multiplique por dos los
elementos de la siguiente matriz:
4 7 8
6 9 1
5 0 3
PROGRAM EJER93;
USES CRT;
CONST arr_num:ARRAY [1..3,1..3] of INTEGER=( (4,7,8),
(6,9,1),
(5,0,3));
VAR mult,i,j:INTEGER;
BEGIN
ClrScr;
FOR i:= 1 TO 3 DO
BEGIN
FOR j:=1 TO 3 DO
BEGIN
mult:=arr_num[i,j] * 2;
WRITELN('Elemento (',i,',',j,') multiplicado por 2:
',mult:3);
END;
END;
END.
PROGRAM EJER93;
USES CRT;
CONST arr_num:ARRAY[1..3,1..3] of INTEGER=( (4,7,8),
(6,9,1),
(5,0,3));
VAR i,j:INTEGER;
BEGIN
ClrScr;
FOR i:=1 TO 3 DO
FOR j:=1 TO 3 DO
arr_num[i,j]:=arr_num[i,j]*2;
FOR i:=1 TO 3 DO
BEGIN
FOR j:=1 TO 3 DO
WRITE(arr_num[i,j]:3);
WRITELN (' ');
END;
END.
- Escribir un programa en Pascal que almacene en la segunda fila
de la siguiente matriz los cuadrados de los datos de la primera fila:
3 6 7 8 9
0 0 0 0 0
PROGRAM EJER94;
USES CRT;
CONST arr_num:ARRAY [1..2,1..5] of INTEGER=( (3,6,7,8,9),
(0,0,0,0,0));
VAR i,j,cuad:INTEGER;
BEGIN
ClrScr;
i:=1;
FOR j:=1 TO 5 DO
BEGIN
FOR i:=1 TO 1 DO
BEGIN
cuad:=sqr(arr_num[i,j]);
arr_num[2,j]:= cuad;
WRITELN (arr_num[2,j]);
END;
END;
END.
PROGRAM EJER94;
USES CRT;
CONST arr_num:ARRAY[1..2,1..5] of INTEGER=( (3,6,7,8,9),
(0,0,0,0,0));
VAR i,j:INTEGER;
BEGIN
ClrScr;
FOR i:=1 TO 1 DO
FOR j:=1 TO 5 DO
arr_num[i+1,j]:=sqr(arr_num[i,j]);
FOR i:=1 TO 2 DO
BEGIN
FOR j:=1 TO 5 DO
WRITE(arr_num[i,j]:3);
WRITELN(' ');
END;
END.
- Escribir un programa en Pascal que sume los datos de cada una
de las filas de la siguiente matriz; el resultado se almacenará
en la última posición de cada fila:
3 6 7 8 9 0
1 4 3 2 7 0
PROGRAM EJER95;
USES CRT;
CONST arr_num:ARRAY [1..2,1..6] of INTEGER=( (3,6,9,7,8,0),
(1,4,3,2,7,0));
VAR i,j,suma1, suma2:INTEGER;
BEGIN
ClrScr;
FOR i:=1 TO 2 DO
BEGIN
FOR j:=1 TO 6 DO
BEGIN
IF i=1 THEN suma1:= suma1 + arr_num[1,j];
IF i=2 THEN suma2:= suma2 + arr_num[2,j];
END;
END;
WRITELN ('La suma de la fila 1 es: ',suma1);
WRITELN ('La suma de la fila 2 es: ',suma2);
END.
PROGRAM EJER95;
USES CRT;
CONST arr_num:ARRAY[1..2,1..6] of INTEGER=( (3,6,9,7,8,0),
(1,4,3,2,7,0));
VAR suma_fila,i,j:INTEGER;
BEGIN
ClrScr;
FOR i:=1 TO 2 DO
BEGIN
suma_fila:=0;
FOR j:=1 TO 6 DO
suma_fila:=suma_fila+arr_num[i,j];
arr_num[i,j]:=suma_fila;
END;
FOR i:=1 TO 2 DO
BEGIN
FOR j:=1 TO 6 DO
WRITE(arr_num[i,j]:3);
WRITELN(' ');
END;
END.
- Escribir un programa en Pascal que sume los datos de cada una
de las columnas de la siguiente matriz; el resultado se almacenará
en la última posición de cada columna:
3 2
4 6
8 9
0 0
PROGRAM EJER96;
USES CRT;
CONST arr_num:ARRAY [1..4,1..2] of INTEGER=( (3,2),(4,6),
(8,9),(0,0));
VAR i,j,suma1,suma2:INTEGER;
BEGIN
ClrScr;
FOR j:=1 TO 2 DO
BEGIN
FOR i:=1 TO 4 DO
BEGIN
IF j=1 THEN suma1:= suma1 + arr_num[i,j];
IF j=2 THEN suma2:= suma2 + arr_num[i,j];
END;
END;
WRITELN ('El resultado de la suma 1 es: ',suma1);
WRITELN ('El resultado de la suma 2 es: ',suma2);
END.
- Escribir un programa en Pascal que sume los elementos de cada
una de las filas y de las columnas de la siguiente matriz; el resultado
de cada suma se almacenará en la última posición
de la fila o columna correspondiente. Además la suma total
de todos los elementos de la matriz se almacenará en el
elemento de la esquina inferior derecha de la matriz:
1 7 0
5 6 0
6 4 0
7 3 0
0 0 0
PROGRAM EJER97;
USES CRT;
CONST arr_num:ARRAY [1..5,1..3] of INTEGER=( (1,7,0),(5,6,0),
(6,4,0),(7,3,0),
(0,0,0) );
VAR i,j,total:INTEGER;
VAR suma_h,suma_v:INTEGER; {Es la suma horizontal y vertical}
BEGIN
ClrScr;
FOR i:=1 TO 5 DO
BEGIN
FOR j:=1 TO 3 DO
BEGIN
suma_h:= suma_h + arr_num[i,j];
END;
WRITELN ('La suma de la fila ',i,' es: ',suma_h:3);
total:=total + suma_h;
suma_h:=0;
END; WRITELN ('');
FOR j:=1 TO 2 DO
BEGIN
FOR i:=1 TO 5 DO
BEGIN
suma_v:= suma_v + arr_num[i,j];
END;
WRITELN ('La suma de la columna ',j,' es: ',suma_v:3);
suma_v:=0;
total:=total + suma_v;
END; WRITELN ('');
WRITELN ('La suma total es: ',total);
END.
PROGRAM EJER97;
USES CRT;
CONST arr_num:ARRAY[1..5,1..3] of INTEGER=( (1,7,0),
(5,6,0),
(6,4,0),
(7,3,0),
(0,0,0) );
VAR suma_fila,suma_colu,suma_tota,i,j:INTEGER;
BEGIN
ClrScr;
FOR i:=1 TO 4 DO
BEGIN
suma_fila:=0;
FOR j:=1 TO 2 DO
BEGIN
suma_fila:=suma_fila+arr_num[i,j];
suma_tota:=suma_tota+arr_num[i,j];
END;
arr_num[i,j+1]:=suma_fila;
END;
arr_num[i+1,j+1]:=suma_tota;
FOR j:=1 TO 2 DO
BEGIN
suma_colu:=0;
FOR i:=1 TO 4 DO
BEGIN
suma_colu:=suma_colu+arr_num[i,j];
END;
arr_num[i+1,j]:=suma_colu;
END;
FOR i:=1 TO 5 DO
BEGIN
FOR j:=1 TO 3 DO
WRITE(arr_num[i,j]:3);
WRITELN(' ');
END;
END.
- Escribir un programa en Pascal que divida todos los elementos de
una matriz M (3,4) por el elemento situado en la posición 2,2.
PROGRAM EJER98;
USES CRT;
CONST arr_num:ARRAY[1..3,1..4] of INTEGER=( (23,45,-68,99),
(45,65,-76,34),
(56,-75,34,98));
VAR i,j:INTEGER;
VAR divi:REAL;
BEGIN
ClrScr;
FOR i:=1 TO 3 DO
BEGIN
FOR j:=1 TO 4 DO
BEGIN
divi:= arr_num[i,j] / arr_num[2,2];
WRITE ('Dividido ',arr_num[i,j]:3,' por el numero ');
WRITELN (arr_num[2,2]:3,': ',divi:5:2);
END;
END;
END.
PROGRAM EJER98;
USES CRT;
CONST matriz_m:ARRAY[1..3,1..4] OF REAL = ((2,3,4,12),
(7,9,8,11),
(5,6,1,19));
VAR i,j:INTEGER;
VAR ele_22:REAL;
BEGIN
ele_22:=matriz_m[2,2];
ClrScr;
FOR i:=1 TO 3 DO
BEGIN
FOR j:=1 TO 4 DO
WRITE(matriz_m[i,j]:5:2,' ');
WRITELN(' ');
END;
FOR i:=1 TO 3 DO
FOR j:=1 TO 4 DO
matriz_m[i,j]:=matriz_m[i,j]/ele_22;
WRITELN(' ');
FOR i:=1 TO 3 DO
BEGIN
FOR j:=1 TO 4 DO
WRITE(matriz_m[i,j]:5:2,' ');
WRITELN(' ');
END;
END.
- Escribir un programa en Pascal que almacene en un array los números
primos comprendidos entre 1 y 100.
PROGRAM EJER99;
USES CRT;
VAR arr_num:ARRAY [1..100] of INTEGER;
VAR flag:INTEGER;
VAR i,num:INTEGER;
BEGIN
ClrScr;
num:=1;
WHILE num < 100 DO
BEGIN
FOR i:=2 TO (num-1) DO
BEGIN
IF (num mod i)=0 THEN
flag:=1;
END;
IF flag<>1 THEN
WRITELN (num:3,' es un número primo.');
num:= num + 1;
flag:=0;
END;
END.
PROGRAM EJER99;
USES CRT;
VAR arra_prim:ARRAY[1..100] OF INTEGER;
VAR i,divisor:INTEGER;
VAR flag,num:INTEGER;
BEGIN
i:=1;
FOR num:=2 TO 100 DO
BEGIN
flag:=1;
FOR divisor:=2 TO num-1 DO
BEGIN
IF num MOD divisor = 0 THEN
flag:=0;
END;
IF flag=1 THEN
BEGIN
arra_prim[i]:=num;
i:=i+1;
END;
END;
arra_prim[i]:=0;
i:=1;
WHILE(arra_prim[i]<>0) DO
BEGIN
WRITE(arra_prim[i],' ');
i:=i+1;
END;
END.
- Escribir un programa en Pascal que genera la matriz transpuesta
de una matriz de 3 filas y 4 columnas. La matriz transpuesta de una
matriz M(m,n) se obtiene intercambiando filas por columnas y viceversa;
el resultado se tiene que almacenar en una nueva matriz M_TRANS(n,m).
PROGRAM EJERC100;
USES CRT;
CONST matriz:ARRAY [1..3,1..4] of INTEGER=( (12,67,-23,-45),
(45,-34,23,-12),
(-34,22,88,-10));
VAR m_tra:ARRAY [1..4,1..3] of INTEGER;
VAR f,c:INTEGER;
BEGIN
ClrScr;
FOR c:=1 TO 3 DO
BEGIN
FOR f:=1 TO 4 DO
BEGIN
m_tra[f,c]:=matriz[c,f];
WRITE ('(',f,',',c,') ');
WRITELN (m_tra[f,c]:3);
END;
END;
END.
PROGRAM EJERC100;
USES CRT;
CONST m_orig:ARRAY[1..3,1..4] OF REAL = ((2,3,4,12),
(7,9,8,11),
(5,6,1,19));
VAR m_tran:ARRAY[1..4,1..3] OF REAL;
VAR i,j:INTEGER;
BEGIN
ClrScr;
FOR i:=1 TO 3 DO
FOR j:=1 TO 4 DO
m_tran[j,i]:=m_orig[i,j];
FOR i:=1 TO 3 DO
BEGIN
FOR j:=1 TO 4 DO
WRITE(m_orig[i,j]:5:2,' ');
WRITELN(' ');
END;
WRITELN(' ');
FOR i:=1 TO 4 DO
BEGIN
FOR j:=1 TO 3 DO
WRITE(m_tran[i,j]:5:2,' ');
WRITELN(' ');
END;
END.
Volver