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.