Utilizamos Cookies de terceros para generar estadísticas de audiencia y mostrar publicidad personalizada analizando tu navegación. Si sigues navegando estarás aceptando su uso. Más información X
PortadaForo AyudaTutoriales
InicioForosForo Programación

Matrices en turbo pascal!

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!

Posibles soluciones:
Matrices en turbo pascal!Matrices en turbo pascal!
Matrices en turbo pascalMatrices en turbo pascal
Matrices en turbo pascalMatrices en turbo pascal
Turbo pascalTurbo pascal
Turbo pascalTurbo pascal
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!;)
Página:1 Siguiente

Respuestas relacionadas:

Turbo pascalTurbo pascalForo
Turbo pascalTurbo pascalForo
Ayuda con turbo pascalAyuda con turbo pascalForo
Ayuda con turbo pascalAyuda con turbo pascalForo
Problemas con turbo pascalProblemas con turbo pascalForo
Problema en turbo pascalProblema en turbo pascalForo
Ejercicios de turbo pascalEjercicios de turbo pascalForo
Turbo pascal- programasTurbo pascal- programasForo
Problema turbo pascalProblema turbo pascalForo
Ayuda programación turbo pascalAyuda programación turbo pascalForo
InicioNoticias
^ SubirAviso legal
Política Privacidad
Configurarequipos18 Agosto 2018