Messaggi senza risposta | Argomenti attivi Oggi è ven lug 03, 2020 12:41 pm



Apri un nuovo argomento Rispondi all’argomento  [ 1 messaggio ] 
 Programma TurboPascal 
Autore Messaggio
Paperon de' Paperoni
Paperon de' Paperoni

Iscritto il: ven feb 24, 2006 1:00 am
Messaggi: 664
Località: Tangentopoli
Rispondi citando
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.

_________________
(\__/)
( X.x )
(\")_(\")
Questo era Bunny. Sfortunatamente Bunny è MORTO.
Bunny è stato ucciso dall'FBI per il tentativo di dominare il mondo.
Immagine
I miei siti: http://spaces.msn.com/maxjump91/ , http://www.maxjump91.altervista.org/
ImmagineImmagineImmagine


mer apr 05, 2006 10:13 pm
Profilo WWW
Visualizza ultimi messaggi:  Ordina per  
Apri un nuovo argomento Rispondi all’argomento  [ 1 messaggio ] 


Chi c’è in linea

Visitano il forum: Nessuno e 1 ospite


Non puoi aprire nuovi argomenti
Non puoi rispondere negli argomenti
Non puoi modificare i tuoi messaggi
Non puoi cancellare i tuoi messaggi
Non puoi inviare allegati

Cerca per:
Vai a:  


Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group.
Designed by Vjacheslav Trushkin for Free Forums/DivisionCore.
Traduzione Italiana phpBB.it