La Web del Programador


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