1. 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
  2. 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.
  3. 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
  4. 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.
  5. Escribir un programa en Pascal que multiplique por dos los elementos de la siguiente matriz: 4 7 8 6 9 1 5 0 3
  6. 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.
  7. 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
  8. 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.
  9. 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
  10. 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.
  11. 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
  12. 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.
  13. 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
  14. 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.
  15. 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.
  16. 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.
  17. Escribir un programa en Pascal que almacene en un array los números primos comprendidos entre 1 y 100.
  18. 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.
  19. 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).
  20. 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

Revisar política de publicidad