max nombre = string var matriz : lamatriz opci, dim : Contador determinado : boolean procedure presentamatriz (mat : lamatriz ) var c, d : contador begin for c : = 1 to dim do begin for d : = 1 to dim + 1 do write ( ' ' ,mat :0 :2 ) writeln end writeln end procedure entravalores (var matr : lamatriz var di : contador ) var c, d : contador begin writeln write ( 'Introduzca El Tama¤o de la matriz : ' ) readln (di ) clrscr for c : = 1 to di do for d : = 1 to di do begin writeln write ( 'Introduzca el Valor (' ,c, ' ,' ,d, ' ) : ' ) readln (matr ) clrscr end for c : = 1 to di do begin writeln write ( 'Introduzca el valor independiente b (' ,c, ' ) : ' ) readln (matr ) clrscr end writeln writeln ( 'Los Datos Entrados Son Los Siguiente' ) writeln presentamatriz (matr ) end procedure prepararmatriz (var matr : lamatriz di : integer var correcto : boolean ) var pas, c, d : contador corre : boolean te, aux : real begin for pas : = 1 to di do begin corre : = false c : = pas while (not corre ) and (c 0. Program metodo_de_gauss uses crt const max = 51 type lamatriz = array of real contador = 1.
0 Comments
Leave a Reply. |
Details
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |