'subrotina de Gauss FreeBasic, Marcelo Paiva. 'Fonte:Adaptado Fortran,liv.Calculo Numerico c/Aplicacoes Leonidas Barroso, 2ªed.,editora HARPRA. sub diagzero print "O elemento da diagonal principal igual a zero 00000!!!!!" end sub sub ind print "o sistema e indeterminado" end sub sub imp1 print "o sistema e impossivel" end sub sub gauss dim i as integer dim j as integer dim mmax as integer dim n as integer dim nmax as integer dim n1 as INTEGER dim det as double dim mult as double dim ic as integer dim k as integer dim l as integer dim lf as integer dim li as integer dim m as integer dim mm as integer 'dim nc as integer dim dta(1000) as string dim c1 as integer dim dd22(10,10) as string dim as string token, tokens() dim as integer pos1 = 1, pos2 ' changed pos1 to 1 (was 0) dim idd22 as integer dim jdd22 as integer dim as string textline(1000) dim As Integer pComma mmax=20 nmax=mmax+1 dim a(mmax,nmax) as double dim x(mmax)...
Comentários
Postar um comentário