Disequazioni di II grado - risoluzione

Materie:	Altro
Categoria:	Informatica
Voto:	1.5 (2)
Download:	463
Data:	04.02.2008
Numero di pagine:	2
Formato di file:	.doc (Microsoft Word)

Program DisequazioneDi2grado;
uses crt;
var a,b,c,x1,x2,delta:real;
segno:char;
r:char;

BEGIN
r:='s';
While r='s' do
Begin
clrscr;
Textcolor(white);
write('Inserisci il coefficiente della x al quadrato ---> ');
readln(a);
write('Inserisci il coefficiente della x ---> ');
readln(b);
write('Inserisci il coefficiente del termine noto ---> ');
readln(c);
write ('Inserisci il segno ---> ');
readln(segno);
Begin
delta:=(b*b)-(4*a*c);
Writeln('Il delta e'': ',delta:1:2);
end;

Begin
if (delta>0) then
begin
x1:=(-b-sqrt(delta))/(2*a);
x2:=(-b+sqrt(delta))/(2*a);
Writeln('Le due radici sono:');
Writeln('x1= ',x1:1:2);
Writeln('x2= ',x2:1:2);
Textcolor(31);Writeln('PREMI INVIO PER CONTINUARE --->');
Readln;
Textcolor(white);
if (a>0) and (segno='>') or (a0) and (segno='>=') or (a0) and (segno='')) then
Begin
Writeln('La disequazione ammette soluzioni interne');
Writeln(x1:1:2,' < x < ,',x2:1:2);
End;
if (a>0) and (segno='=') then
Begin
Writeln('La disequazione ammette soluzioni interne');
Writeln(x1:1:2,' ');
Writeln('x1= ',x1:1:2);
Writeln('x2= ',x2:1:2);
Textcolor(31);Writeln('PREMI INVIO PER CONTINUARE --->');
Readln;
Textcolor(white);
if ((a>0) and (segno='>')) or ((a0) and (segno='>=') or (a0) and (segno='')) then
Writeln('Per nessun valore di x');
if ((a>0) and (segno='=')) then
Writeln('Solo per x=x1=x2');
End;

if delta0) and (segno='>')) or ((a0) and (segno='>''=') or (a0) and (segno='')) then
Writeln('Per nessun valore di x');
if ((a>0) and (segno='''=')) then
Writeln('Per nessun valore di x');
End;
End;

Textcolor(31);Write('Vuoi riutilizzare il programma? (s/n) ---> ');
Readln(r);
if r='s' then r:='s'
else r:='n';
End;
Repeat Until Keypressed;

END.