Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés.
Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
  1. Escribir un programa en Pascal que rellene un array con los números enteros comprendidos entre 4 y 14. PROGRAM EJER81; USES CRT; VAR arr_num:ARRAY [4..14] of INTEGER; VAR i:INTEGER; BEGIN ClrScr; FOR i:=4 TO 14 DO arr_num[i]:=i; FOR i:=4 TO 14 DO BEGIN WRITELN('Numero: ',arr_num[i]); END; END. PROGRAM EJER81; USES CRT; VAR arr_num:ARRAY[1..11] of INTEGER; VAR i,num:INTEGER; BEGIN ClrScr; num:=4; FOR i:=1 TO 11 DO BEGIN arr_num[i]:=num; num:=num+1; END; FOR i:=1 TO 11 DO BEGIN WRITE('Posici¢n ',i:2, ': '); WRITELN(arr_num[i]:5); END; END.
  2. Escribir un programa en Pascal que rellene un array con los números pares comprendidos entre 1 y 10. PROGRAM EJER82; USES CRT; VAR arr_num:ARRAY [1..10] of INTEGER; VAR i, b:INTEGER; BEGIN ClrScr; i:=1; WHILE i <= 10 DO BEGIN arr_num[i]:=i; IF (i mod 2)=0 THEN BEGIN WRITELN(arr_num[i]); END; i:= i + 1; END; END. PROGRAM EJER82; USES CRT; VAR arr_num:ARRAY[1..10] of INTEGER; VAR i,num:INTEGER; BEGIN ClrScr; i:=1; num:=1; WHILE num<=10 DO BEGIN IF num mod 2 = 0 THEN BEGIN arr_num[i]:=num; i:=i+1; END; num:=num+1; END; arr_num[i]:=3; i:=1; WHILE arr_num[i] <> 3 DO BEGIN WRITE('Posicion ',i:2,' : '); WRITELN(arr_num[i]:5); i:=i+1; END; END.
  3. Escribir un programa en Pascal que rellene un array con los números comprendidos entre 25 y 35 divididos por 3. PROGRAM EJER83; USES CRT; VAR arr_num:ARRAY [1..11] of REAL; VAR i:INTEGER; BEGIN ClrScr; FOR i:=25 TO 35 DO arr_num[i]:=i; FOR i:=25 TO 35 DO WRITELN(arr_num[i] / 3:5:2); END. PROGRAM EJER83; USES CRT; VAR arr_num:ARRAY[1..11] of REAL; VAR i,num:INTEGER; BEGIN ClrScr; i:=1; num:=025; FOR i:=1 TO 10 DO BEGIN arr_num[i]:=num/3; num:=num+1; END; i:=1; WHILE i <= 10 DO BEGIN WRITE('Posicion ',i:2, ': '); WRITELN(arr_num[i]:5); i:=i+1; END; END.
  4. Escribir un programa en Pascal que rellene un array con cinco números enteros consecutivos y haga una copia de ese array en otro. PROGRAM EJER84; USES CRT; VAR arr_num1,arr_num2:ARRAY [5..10] of INTEGER; VAR i:INTEGER; BEGIN ClrScr; FOR i:=5 TO 10 DO BEGIN arr_num1[i]:=i; arr_num2[i]:=arr_num1[i]; END; FOR i:=5 TO 10 DO WRITELN (arr_num2[i]); END. PROGRAM EJER84; USES CRT; VAR arr_num1,arr_num2:ARRAY[1..5] of INTEGER; VAR i,num:INTEGER; BEGIN ClrScr; i:=1; num:=100; FOR i:=1 TO 5 DO BEGIN arr_num1[i]:=num; num:=num+1; END; FOR i:=1 TO 5 DO arr_num2[i]:=arr_num1[i]; i:=1; WRITELN('ARRAY 1 ARRAY 2':30); WHILE i <= 5 DO BEGIN WRITE('Posicion ',i:2, ': '); WRITE(arr_num1[i]:5); WRITELN(arr_num2[i]:10); i:=i+1; END; END.
  5. Escribir un programa en Pascal que rellene un array de 10 elementos con los números comprendidos entre 23 y 32 y copie en otro array esos números multiplicados por 0.35. PROGRAM EJER85; USES CRT; VAR arr_num1, arr_num2:ARRAY [23..32] of REAL; VAR i:INTEGER; BEGIN ClrScr; FOR i:=23 TO 32 DO BEGIN arr_num1[i]:=i; arr_num2[i]:=(arr_num1[i] * 0.35); END; FOR i:=23 TO 32 DO WRITELN(arr_num2[i]:5:2); END. PROGRAM EJER85; USES CRT; VAR arr_num1,arr_num2:ARRAY[1..10] of REAL; VAR i,num:INTEGER; BEGIN ClrScr; i:=1; num:=23; FOR i:=1 TO 10 DO BEGIN arr_num1[i]:=num; num:=num+1; END; FOR i:=1 TO 10 DO arr_num2[i]:=arr_num1[i]*0.35; i:=1; WRITELN('ARRAY 1 ARRAY 2':30); WHILE i <= 10 DO BEGIN WRITE('Posicion ',i:2, ': '); WRITE(arr_num1[i]:5:2); WRITELN(arr_num2[i]:10:2); i:=i+1; END; END.
  6. Escribir un programa en Pascal que rellene un array con los veinte primeros números pares y calcule su suma. PROGRAM EJER86; USES CRT; VAR arr_pares:ARRAY [1..40] of INTEGER; VAR i, suma:INTEGER; BEGIN ClrScr; i:=1; FOR i:= 1 TO 40 DO BEGIN IF (i mod 2) = 0 THEN BEGIN arr_pares[i]:=i; suma:= suma + i; END; END; WRITELN('La suma de los 20 primeros numeros pares es: ',suma); END. PROGRAM EJER86; USES CRT; VAR arr_num:ARRAY[1..25] of INTEGER; VAR i,num,suma_par:INTEGER; BEGIN ClrScr; i:=1; num:=1; suma_par:=0; WHILE i<=20 DO BEGIN IF num mod 2 = 0 THEN BEGIN arr_num[i]:=num; i:=i+1; suma_par:=suma_par+num; END; num:=num+1; END; i:=1; WHILE i <= 20 DO BEGIN WRITE('Posici¢n ',i:2, ': '); WRITELN(arr_num[i]:5); i:=i+1; END; WRITE('SUMA: ', suma_par:12); END.
  7. Escribir un programa en Pascal que solicite cinco números, los almacene en un array y luego calcule la media aritmética de esos números. PROGRAM EJER87; USES CRT; VAR arr_num:ARRAY [1..5] of REAL; VAR i, num:INTEGER; VAR media:REAL; BEGIN ClrScr; WRITELN ('Escriba 5 numeros para hacer su media aritmetica: '); FOR i := 1 TO 5 DO BEGIN READLN(num); arr_num[i]:=num; END; FOR i:=1 TO 5 DO media:= media + arr_num[i]; media:= media / i; WRITELN ('La media aritmetica es: ',media:5:2); END. PROGRAM EJER87; USES CRT; VAR arr_num:ARRAY[1..10] of REAL; VAR num,suma,media:REAL; VAR i:INTEGER; BEGIN ClrScr; i:=0; suma:=0; media:=0; WHILE i<5 DO BEGIN WRITE('Numero ',i+1,'--->'); READLN(num); arr_num[i]:=num; suma:=suma+num; i:=i+1; END; media:=(suma/i); WRITE('Media: ', media:5:2); END.
  8. Escribir un programa en Pascal que tras asignar los números, 23, 45, 68, 99, 10, 15 y 4 a un array, determine la posición del array en la que se encuentra el máximo valor. PROGRAM EJER88; USES CRT; CONST arr_num:ARRAY [1..7] of INTEGER=(23,45,68,99,10,15,4); VAR i:INTEGER; BEGIN ClrScr; FOR i:=1 TO 7 DO BEGIN IF arr_num[i]=99 THEN WRITE ('La posicion del mayor numero (',arr_num[i],') es: ',i); END; END. PROGRAM EJER88; USES CRT; CONST arr_num:ARRAY[1..7] of INTEGER=(23,45,68,99,10,15,4); VAR i,posi_max,val_max:INTEGER; BEGIN ClrScr; FOR i:=1 TO 7 DO BEGIN IF arr_num[i] > val_max THEN BEGIN val_max:=arr_num[i]; posi_max:=i; END; END; WRITE('VALOR MAXIMO: ', val_max, ' POSICION: ', posi_max); END.
  9. Escribir un programa en Pascal que tras asignar los números, -2, 5, 8, -9, 10, 15 y -4 a un array calcule, independientemente, la suma de los elementos positivos y negativos. PROGRAM EJER89; USES CRT; CONST arr_num:ARRAY [1..7] of INTEGER=(-2,5,8,-9,10,15,-4); VAR i:INTEGER; VAR suma_p, suma_i:INTEGER; BEGIN ClrScr; FOR i:=1 TO 7 DO BEGIN IF arr_num[i] >= 0 THEN suma_p:= suma_p + arr_num[i] ELSE IF arr_num[i] < 0 THEN suma_i:= suma_i + arr_num[i]; END; WRITELN ('La suma de los numeros pares es: ',suma_p); WRITELN ('La suma de los numeros impares es: ',suma_i); END. PROGRAM EJER89; USES CRT; CONST arr_num:ARRAY[1..7] of INTEGER=(-2,5,8,-9,10,15,-4); VAR i,suma_pos,suma_neg:INTEGER; BEGIN ClrScr; FOR i:=1 TO 7 DO BEGIN IF arr_num[i] > 0 THEN suma_pos:=suma_pos+arr_num[i] ELSE suma_neg:=suma_neg+arr_num[i]; END; WRITELN('SUMA POSITIVOS: ', suma_pos); WRITELN('SUMA NEGATIVOS: ', suma_neg); END.
  10. Escribir un programa en Pascal que tras asignar los números, 23, 45, 68, 99, 10, 15 y 4 a un array, determine las posiciones del array en las que se encuentran el máximo y el mínimo valor. PROGRAM EJER90; USES CRT; CONST arr: ARRAY [1..7] of INTEGER=(23,45,68,99,10,15,4); VAR i, mayor, menor,posi_mayor,posi_menor:INTEGER; BEGIN ClrScr; mayor:= arr[1]; menor:= arr[1]; FOR i:=2 TO 7 DO BEGIN IF arr[i] >= mayor THEN BEGIN mayor:= arr[i]; posi_mayor:=i; END ELSE CONTINUE; END; WRITELN ('El numero mayor es: ',mayor:3); WRITELN ('Su posicion es: ',posi_mayor:3); WRITELN (''); FOR i:=2 TO 7 DO BEGIN IF arr[i] <= menor THEN BEGIN menor:= arr[i]; posi_menor:=i; END ELSE CONTINUE; END; WRITELN ('El numero menor es: ',menor:3); WRITELN ('Su posicion es: ',posi_menor:3); END. PROGRAM EJER90; USES CRT; CONST arr_num:ARRAY[1..7] of INTEGER=(23,45,68,99,10,15,4); VAR i,val_max,val_min,pos_max,pos_min:INTEGER; BEGIN ClrScr; val_min:=arr_num[1]; val_max:=arr_num[1]; FOR i:=1 TO 7 DO BEGIN IF arr_num[i] > val_max THEN BEGIN val_max:=arr_num[i]; pos_max:=i; END; IF arr_num[i] < val_min THEN BEGIN val_min:=arr_num[i]; pos_min:=i; END; END; WRITELN('VALOR MAXIMO: ', val_max:3, ' POSICIàN: ', pos_max:3); WRITELN('VALOR MINIMO: ', val_min:3, ' POSICIàN: ', pos_min:3); END.