SoloGuadagni http://www.soliguadagni.altervista.org/forum/ |
|
Programma TurboPascal http://www.soliguadagni.altervista.org/forum/viewtopic.php?f=27&t=594 |
Pagina 1 di 1 |
Autore: | maxjump91 [ mer apr 05, 2006 10:13 pm ] |
Oggetto del messaggio: | Programma TurboPascal |
Questo è 1 programma nn utilissimo magari serve a risolvere equazioni di secondo grado a discriminante maggiore o uguale a 0 (Ps: ftt da me, quindi apprezzate qnt meno la buona volontà ...) Codice: Program Equazione_di_secondo_grado; (*simply program by MaxJump91*) uses crt; var a,b,c,d,x1,x2:Real; Begin clrscr; writeln('introduci il valore di a, coefficiente di x^2'); readln(a); writeln('introduci il valore di b, coefficiente di x'); readln(b); writeln('introduci il valore del termine noto c'); readln(c); d:=b*b-4*a*c; if d>0 then Begin writeln('le due soluzioni sono reali e distinte:'); writeln('x1 è uguale a ',(-b)-sqrt(d))/2*a:8:2); writeln('x2 è uguale a ',(-b)+sqrt(d))/2*a:8:2); End else if d=o then Begin writeln('le due soluzioni sono reali e coincidenti:'); writeln('x1 e x2 sono uguali a ',(-b)/2*a:8:2); End else writeln('le due soluzioni non esistono nell'insieme dei numeri reali'); readln End. |
Pagina 1 di 1 | Tutti gli orari sono UTC +2 ore |
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group http://www.phpbb.com/ |