Caricare documenti e articoli online 
INFtub.com è un sito progettato per cercare i documenti in vari tipi di file e il caricamento di articoli online.


 
Non ricordi la password?  ››  Iscriviti gratis
 

Program sinusoide_parabola

informatica












Program sinusoide_parabola;

uses crt;

var e, a, b, m, y1,y2: real;


BEGIN

clrscr;

writeln ('quale deve essere il grado di precisione?');

readln (e);

a:=1;

b:=2;

REPEAT

m:=(a+b)/2;

y1:=sqr m);

y2:=2*sin(m);

IF y1>y2 THEN

b:=m

ELSE

a:=m;

UNTIL (y1=y2) OR ((b-a)<e);

IF y1=y2 THEN

writeln ('il valore preciso è ', y1:10:10);

ELSE

Writeln ('il valore è compreso tra ', a:10:10 ,' e ', b:10:10);

repeat ultilkeypressed;

END.






Privacy




});

Articolo informazione


Hits: 1642
Apprezzato: scheda appunto

Commentare questo articolo:

Non sei registrato
Devi essere registrato per commentare

ISCRIVITI



Copiare il codice

nella pagina web del tuo sito.


Copyright InfTub.com 2024