Materie: | Altro |
Categoria: | Informatica |
Voto: | 1.5 (2) |
Download: | 463 |
Data: | 04.02.2008 |
Numero di pagine: | 2 |
Formato di file: | .doc (Microsoft Word) |
Download
Anteprima
disequazioni-ii-grado-risoluzione_1.zip (Dimensione: 6.54 Kb)
trucheck.it_disequazioni-di-ii-grado--risoluzione.doc 27.5 Kb
readme.txt 59 Bytes
Testo
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.