blogmpv221

 'Programa freebasic Marcelo Paiva '14/04/2020, revisado 27/05/2023 'apostrófo são comentários 'FREEBASIC compila e gera arquivo executável compatível em grande parte ao BASIC Microsoft 'https://www.freebasic.net/ 'https://www.geany.org/ é uma IDE, ambiente para digitar código freebasic, compilar e executar presente para LINUX e WINDOWS 'https://fbide.freebasic.net/ é uma IDE, ambiente para digitar código freebasic , compilar e executar para WINDOWS sub pol1 'screen 20,32,255 'screen 255,32,255 dim as double x dim as double y dim as double nx dim as double ny dim as double k dim as double p dim as double q dim as double y1 dim as double rxn dim as double y2 dim as double n dim as string aa dim as string bb dim as string cc dim as string dd dim as integer a dim as integer b dim as double in ScreenRes 1366,768,8 'color 2,8 'color RGB(64,255,64),RGB(32,4,15)->32,4,->15 fundo branco alta resolução 'Color RGB(64, 255, 64),RGB(32, 4, 15) ...

  Texto,  'Marcelo Paiva 'Metodo de Newton-Raphson, adaptado de, Souza, Teofilo Miguel de. Calcu- 'Numerico e Aplicacoes,p. 38, --Lorena, Editora Lighthouse, 2014. com 'leves alteracoes relacionadas ao conceito de desvios com comando goto e 'referentes a fução "ABS", funcao modulo, e a funcao IF, a rotina é 'muito boa, para funcao y=x^2 acharemos raiz real, ela exite e x igual 'a zero, para funcao y=x^2+5, o programa entrara em loop infinito procura 'uma aproximacao de uma raiz real que nao existe, esta caracteristica ' tambem aconteceu com um algoritmo meu que nao se baseia o laco na pre- 'cisao do resultado. dim as  double x dim as  double erro dim as  integer n dim as  double a dim as  double fx dim as  double flx dim as  double erroabs input "x inicial =";x input "erro admitido";erro n=0 setenta: a=x fx=x^2 'fx=x^2+5 flx=2*x x=x-(fx/flx) erroabs=abs(x-a) n=n+1 if erroabs>erro then goto setenta else goto ce...