variables estructuradas homogeneas 1 (2015)

Apunte Español
Universidad Universidad Politécnica de Cataluña (UPC)
Grado Ingeniería Mecánica - 1º curso
Asignatura Informatica
Año del apunte 2015
Páginas 6
Fecha de subida 17/03/2015
Descargas 0

Vista previa del texto

1) Diseñar un algoritmo i el correspondiente programa en pascal que sea capaz de leer una matriz 3x3 y calcular su determinante 2) Diseñar un algoritmo i el correspondiente programa en pascal que sea capaz de realizar la suma de dos matrices NxN (hasta un máximo de 10x10) siguiendo la formula: J?[i,;] = Jl/,[i.;]+A/,[i.;] di He t^ScU j ^ i ^ ^Í^Ce^ 7^ á /,^/<LS - ^ ^ f Oís<k [--^ ''^'^'^'^ 5 ce 2 ^ ^ t . " , p ^ - ^ . T í . p /-Ate, Determinante de una matriz: CONST F=3; C=3; TYPE TVECTOR = ARRAY[1..F4..C] OF REAL; VAR V:TVECTOR; U:INTEGER; DET:REAL; begin WRITELN('CALCULO DEL DETERMINANTE DE UNA MATRIZ 3x3'); WRITELNC '); WRITELN; F0RI:=1T0FD0 F0RJ:=1T0CD0 BEGIN WRITEÍ'INTRODUZCA EL ELEMENTO [',i;;,j;] :'); READLN(V[U]); end; WRITELN; DET:=(V[1,1]*V[2,2]*V[3,3]+V[1,2]*V[2,3]*V[3,1]+V[3,2]*V[24]*V[1,3](V[3,1]*V[2,2]*V[1,3]+V[2,3]*V[3,2]*V[1,1]+V[3,3]*V[1,2]*V[2,1])); WRITELNCEL DETERMINANTE DE LA MATRIZ INTRODUCIDA ES: ',DET:4:2); READLN; end.
Suma de matrices: CONST F=10; < C=10; TYPE TMATRIZ=ARRAY[1..F4..C] OF REAL; VAR MI, M2, M3:TMATRIZ; U,FF,CC:INTEGER; begin WRITELNÍ'CALCULO DE LA SUMA DE DOS MATRICES NxN (DE IGUALES DIMENSIONES Y 10x10 MAXIMO)'); WRITELNC '); WRITELN; REPEAT WRITEÍ'INTRODUZCA EL NUMERO DE FILLAS DE LAS MATRICES:'); READLNÍFF); WRITELN; WRITEÍ'INTRODUZCA EL NUMERO DE COLUMNAS DE LAS MATRICES:'); READLNÍCC); WRITELN; until ÍÍFF>0)ANDÍFF<=10))ANDÍÍCC>0)ANDÍCC<=10)); I:=1;J:=1; F0RI:=1T0 FF DO F0RJ:=1T0 ce DO BEGIN WRITECINTRODUZCA EL ELEMENTO [',i;;,J,'] DE MI:'); READLN(M1[U]); end; WRITELN; F0RI:=1T0FFD0 F0RJ:=1T0CCD0 BEGIN WRITECINTRODUZCA EL ELEMENTO ['X',',},'] DE M2:'); READLN(M2[U]); end; WRITELN; F0RI:=1T0FFD0 F0RJ:=1T0CCD0 BEGIN M3[U]:=M1[U]+M2[U]; WRITELNCEL ELMENTO ['J//,J,'] DE LA MATRIZ SUMA ES ',M3[U]:4:3); end; READLN; end.
...