Atividade Extra

Método de Eliminação de Gauss com Pivotação Parcial em linguagem pascal.

Program Metodo_eliminacao_gauss; 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; // i's sao variaveis auxiliares// m, soma, pivo, baux, aux : Real; resposta : char; nome : String; erro : Boolean; resultado : Text;

Begin

Repeat repeat Clrscr; Textcolor (White); Writeln ('Resolucao de sistemas de equacoes lineares utilizando o metodo da eliminacao'); Writeln ('de Gauss (triangularizacao) .'); Writeln; Write ('Digite a ordem do sistema (n), no maximo n=100: '); Readln (n); …exibir mais conteúdo…

(digite s=sim, n=nao): '); Readln (resposta);
Until (resposta 'S') And (resposta 's');
End.

Atividade Extra

Método Interativos.

1.Método de Gauss-Seidel
2.Método de Gauss-Jacobi

Programa Interativo,para utilização dos métodos de Gauss-Seidel ou Gauss-Jacobi,por opção do utilizador em linguagem Pascal.

Program iterativo_Jacobi_Gauss_Seidel;
//Programa para resolucao de sistemas de equacoes lineares por metodos iterativos de Jacobi e Gauss-Seidel//
Uses crt; Var a : Array[1..100,1..100] Of Real; x, x0, b, r, er, xg : Array[1..100] Of Real; i, j, n, m, k, ki, met, teste, convergencia : Integer; //sao variaveis auxiliares// resposta : char; nome : String; erro, e, soma : Real; resultado: Text;

Begin
Repeat //Repeat utilizado para reiniciar o programa// repeat Clrscr; Textcolor (White); Writeln ('Resolucao de