Progrma computação cientifica programas no word
If you can't read please download the document
-
Upload
lorena-carvalho -
Category
Documents
-
view
18 -
download
2
Transcript of Progrma computação cientifica programas no word
- 1. program TRAPEZIO;uses crt,printer;varI,N :integer;X,SOMA,H,SOMA2,DELTA,A,B,ERRO :real;NOVO :string[1];TITULO :string[70];function FUNCAO(X:real):real;beginFUNCAO := exp(X)end;beginclrscr;writeln('Integracao Numerica pelo metodo dos Trapezios');writeln('Indique a seguir qual a integral a ser calculada ');readln(TITULO);writeln(Lst,#12,'Integracao Numerica pelo metodo dos Trapezios');writeln(Lst,TITULO);writeln(Lst,' ');writeln('Forneca A e B para calculo da integral de A ate B ');write(' A = ');readln(A);write(' B = ');readln(B);repeatwriteln('Forneca o numero de divisoes do intervalo AB ');
- 2. write(' N = ');readln(N);H := ( B - A ) / N; X := A; SOMA := FUNCAO(A);SOMA2 := 0;for I := 1 to N do beginX := X+H;SOMA2 := SOMA2 + FUNCAO(X)end;SOMA := (SOMA + 2 * SOMA2 - FUNCAO(X)) * H / 2;ERRO := 1.7182818284590 - SOMA;writeln(Lst,'Valor da integral com ',N:5,' divisoes e de ',SOMA:14:10,' erro de ',ERRO:14:10);writeln(' ');write('Tecle S se deseja novo calculo ');readln(NOVO);until NOVO 'S'end. { fim do TRAPEZIO }program SIMPSON;uses crt,printer;varI,N,NS2 :integer;X,SOMA,H,HS3,SOMA2,SOMA4,DELTA,A,B,ERRO :real;NOVO :string[1];TITULO :string[70];
- 3. function FUNCAO(X:real):real;beginFUNCAO := exp(X)end;beginclrscr;writeln('Integracao pelo metodo de SIMPSON');writeln('Indique a seguir qual a integral a ser calculada ');readln(TITULO);writeln(Lst,'Integracao pelo metodo de SIMPSON');writeln(Lst,TITULO);writeln(Lst,' ');writeln('Forneca A e B para calculo da integral de A ate B ');write(' A = ');readln(A);write(' B = ');readln(B);repeatwriteln('Forneca o numero de divisoes do intervalo AB ');write(' N = ');readln(N);H := ( B - A ) / N; X := A; SOMA := FUNCAO(A);SOMA2 := 0;SOMA4 := 0;NS2 := N div 2;for I := 1 to NS2 do beginX := X+H;SOMA4 := SOMA4 + FUNCAO(X);X := X+H;SOMA2 := SOMA2 + FUNCAO(X)
- 4. end;SOMA := (SOMA + 4 * SOMA4 + 2 * SOMA2 - FUNCAO(X)) * H / 3;ERRO := 1.7182818284590 - SOMA;writeln(Lst,'Integral com ',N:5,' divisoes e de ',SOMA:13:10,' erro de ',ERRO:13:10);writeln(' ');write('Tecle S se deseja novo calculo ');readln(NOVO);until NOVO 'S'end. { fim do SIMPSON }http://www.raymundodeoliveira.eng.br/programa.htmlProgram trapezio;varFX1,FX2,X1,X2,RESULT:REAL;BeginWriteln('Digite o menor valor de intervalo');Readln(x1);Writeln('Digite o maior valor do intervalo');Readln(x2);IF(X2>X1) THENBeginFx1:=x1*x1+1;Fx2:=x2*x2+1;Result:=((Fx1+FX2)*(X2-X1))/2;
- 5. Writeln('o resultado e',result);EndElseBeginWriteln('valores no correspondentes');End;End.
- 6. Writeln('o resultado e',result);EndElseBeginWriteln('valores no correspondentes');End;End.
