| killy_killy |  |
|
2007-04-02 15:30 - Respuestas: 6 - Tema nº: 2442380
Características: Windows XP Home, no lo se.
tengo que crear un programa en turbo pascal que opere con matrices.
debo hacelro creando subprogramas que lean matrices, las sumen, las resten, las multipliquen, las dividan, y que finalemente calculen su determinante!
he conseguido hacer el subprograma que lea las matrices, aun que no estoy muy segura que este bien, pero no se como seguir con los otros subprogramas!
alguien me podria echar una mano??!!
gracias!
| |
|
|
| Hurricane |  |
|
Re: Matrices en turbo pascal! - 2007-04-02 18:22 - Respuesta 2
Pone lo que llevas hecho por acá (incluyendo las matrices que vas a utilizar).
Saludos
HURRICANE
| |
|
|
| killy_killy | |
|
Re: Matrices en turbo pascal! - 2007-04-06 12:12 - Respuesta 3
ola!!
gracias por tu respuesta!
mira el programa que tengo empezado lo tengo en el cole...me lo olvide
volvere al kole el lunes de la semana k vienen no el otro...y ese mismo dia tengo k ntregar el trabajo...
asi que quiero intentar seguir haciendolo i juntarlo kuando llegue al kle!
te explico lo que levo hecho:
primero lo de siempre...
program matrices;
uses
crt
....
declaracion de variables A,B;R:array de 3x3; i,j:integer.....
seguidamente debo hacer los subprogramas
procedure leer_matrices
ahi tengo el programa para leer matrices, que espero que este bien
y seguidamente debo hacer el resto de subprogramas
el de suma de matrices por ejemplo, se que debo sumar cada elemento de una matriz con el de la otra y almacenar el dato de la suma en otra matriz...pero no se como explicarle esto al programa.
el de multimplicacion y division supongo que se hacen parecido.
y el del determinante supongo k si se hacer la suma lo podre hacer!!
muchas gracias por tu atencion!! | |
|
|
| Hurricane | |
|
Re: Matrices en turbo pascal! - 2007-04-10 19:10 - Respuesta 4
Aquí va un ejemplo aplicando suma y resta. Además le he agregado los subprogramas para visualizar la matriz y para incializarla.
Program Matrices;
Uses
Crt;
Type
{* Matriz de 3x3 con elementos de tipo Entero *}
TMatriz = Array[1..3, 1..3] of Integer;
Var
A, B, R :TMatriz;
{* Suma de matrices, dondes 'A' y 'B' son las matrices *}
{* a sumar y 'R' es el resultado *}
Procedure mSuma(A, B :TMatriz; Var R :TMatriz);
Var
X, Y :Byte;
Begin
For X := 1 to 3 do
For Y := 1 to 3 do
R[Y, X] := A[Y, X] + B[Y, X];
End; {mSuma}
{* Resta de matrices, dondes 'A' y 'B' son las matrices *}
{* a restar y 'R' es el resultado *}
Procedure mResta(A, B :TMatriz; Var R :TMatriz);
Var
X, Y :Byte;
Begin
For X := 1 to 3 do
For Y := 1 to 3 do
R[Y, X] := A[Y, X] - B[Y, X];
End; {mResta}
{* Muestra los elementos de la matriz *}
Procedure mMuestra(A :TMatriz);
Var
X, Y :Byte;
Begin
WriteLn(' (1) (2) (3)');
WriteLn(' + +');
For Y := 1 to 3 do
Begin
Write('(', Y:1, ') |');
For X := 1 to 3 do
Write(A[Y, X]:8);
WriteLn(' |');
End; {For}
WriteLn(' + +');
End; {mMuestra}
{* Inicializa todos los elementos de la matriz 'A' *}
{* al valor 'V' *}
Procedure mInicializa(Var A :TMatriz; V :Integer);
Var
X, Y :Byte;
Begin
For X := 1 to 3 do
For Y := 1 to 3 do
A[Y, X] := V;
End; {mInicializa}
Begin
ClrScr;
mInicializa(A, 2);
mInicializa(B, 6);
mSuma(A, B, R);
mMuestra(R);
ReadLn;
End.
Saludos
HURRICANE
| |
|
|
| killy_killy | |
|
Re: Matrices en turbo pascal! - 2007-04-11 10:40 - Respuesta 5
Muchissimas gracias!!
mira de mientras yo he intentado seguir y volver a hacer algunas partes...
podrias mirarme si estan bien....porque no esta todo igual k lo que tu has hecho!!!
procedure leer-matriz(Z:mat;Var i,j:integer);
var N:real
begin
writeln ('a continuación deberá escribir los elementos de la matriz');
for 1 to 3 do
for 1 to N do
begin write ln ('elemento [',i,',',j,']');
readln (Z[i,j]);
end
end;
procedure multiplicar_matrices(Z,N:mat;Var Y:mat; xj,i,j,acum:integer);
begin
writeln('El producto de las matrices A y M es:');
for i:=1 to 3 do
for j:=1 to 3 do
begin
acum:=0.0;
for xj:=1 to 1 do
acum:=acum+Z[i,j]*N[i,xj];
M[i,j]:=acum
end
end;
muchas gracias!! eres una gran ayuda!;) | |
|
|
|
