Ultima duda...
Publicado por Anton (3 intervenciones) el 13/12/2004 20:54:59
procedure LeerMatriz(var mat:tmatriz; var N:integer);
Var aux1, aux2, aux3: integer;
Var fil: string;
Begin
For aux:=1 to N do
Begin
Write('Introduzca la fila ', aux1,' de la matriz:');
Readln(fil);
For aux2:=1 to N do
Begin
aux3:=copy(fil,1,pos(' ' , fil)-1);
delete(fil,1,pos(' ',fil));
mat[aux1, aux2] := aux3;
End;
End;
End;
Esto es lo que tengo hecho, pero no se como se fuerzan los datos en pascal. esta correcto lo que llevo? creo que solo m falta forzar el tipo d dato a integer. el aux3 ese
Var aux1, aux2, aux3: integer;
Var fil: string;
Begin
For aux:=1 to N do
Begin
Write('Introduzca la fila ', aux1,' de la matriz:');
Readln(fil);
For aux2:=1 to N do
Begin
aux3:=copy(fil,1,pos(' ' , fil)-1);
delete(fil,1,pos(' ',fil));
mat[aux1, aux2] := aux3;
End;
End;
End;
Esto es lo que tengo hecho, pero no se como se fuerzan los datos en pascal. esta correcto lo que llevo? creo que solo m falta forzar el tipo d dato a integer. el aux3 ese
Valora esta pregunta


0