Metodo Bisseccao

Program Gauss_pivoteamento_parcial; Uses crt; Var a : Array[1..100,1..100] Of Real; //se desejar uma matriz maior, basta criar arrays maiores// x, b : Array[1..100] Of Real; i, j, n, ji, ii, ipivo, k : Integer; //Contadores e auxiliares// m, soma, pivo, baux, aux : Real;//variáveis auxiliares para as operações// resposta : char; nome : String; erro : Boolean;//Evitar erro por divisões por zero// resultado : Text; Begin

Repeat repeat Clrscr; Textcolor (White); Writeln ('Resolucao de sistemas de equacoes lineares utilizando o metodo da eliminacao'); Writeln ('de Gauss (triangularizacao) com pivoteamento parcial.'); Writeln; Write ('Digite a ordem do sistema (n), no maximo n=100: '); Readln (n); until n >= 2; //le os coeficientes da matriz A// for j:=1 to n do begin Repeat clrscr; Writeln ('AX = B'); Writeln; Writeln ('Matriz ampliada do sistema'); Writeln; Writeln ('Digite os elementos da coluna ',j,' da matriz A (coeficientes de x',j,'):'); Writeln; for i:=1 to n do begin Write('a[',i,'x',j,']= '); readln(a[i,j]); end; writeln; writeln; Textcolor (White); Write ('Confira os valores digitados, estao corretos? (digite s=sim, n=nao): '); Readln (resposta); Until (resposta = 'S') Or (resposta = 's'); end; //le os coeficientes da matriz B// clrscr; Writeln ('AX = B'); Writeln; Writeln ('Matriz ampliada do sistema'); Writeln; Writeln ('Digite os elementos da matriz B (termos independentes)'); Writeln; for i:=1 to n do begin Write('b[',i,']= '); readln(b[i]); end; //Metodo da eliminacao de Gauss (Triangularizacao)// k := 1; //Passo// erro := False; //A variavel erro se tornara True caso haja erros de divisao por zero// For j:=1 To n Do Begin For i:=k+1 To n Do Begin