Ho un problema con la radice quadrata in Pascal

Ho un problema con la radice quadrata in Pascal

Mi potete aiutare? Mi servirebbe sapere una cosa. Sto provando a programmare in Pascal un risolutore di equazioni di secondo grado (ormai è una questione di orgoglio, lo devo finire!), ma mi manca una cosa. Dato che, come tutti voi certamente saprete, bisogna eseguire una radice quadrata, qual'è la sintassi giusta per dichiarare che, per esempio, x è la radice quadrata di y? So solo che l'operatore è sqrt. Mi aiutate? grazie.

x := sqrt(y)

Adesso che l'ho scritto così, mi dà un altro errore:



Error: Incompatible types: got "S80REAL" expected "LONGINT"



Me lo ha sempre dato quando cerco di mettere il calcolo di una radice quadrata, ma non ho mai capito cos'è. Infatti ora la domanda è: cos'è e come si risolve questo errore?

Di che tipo sono le variabili x e y?

Nel risolutore le variabili le ho chiamate j e f, j è la radice e f è il numero da cui deve essere estratta. J è dichiarata come longint e f come integer. Con il mio inglese didattico sono riuscito tranquillamente a capire che là ci doveva essere una variabile di tipo longint, solo che effettivamente c'è ma l'errore mi è dato lo stesso. In sostanza, ora la cosa è così:

j:=sqrt(f);

Come devo fare?

mettili real e vedrai che funziona.

Ok allora provo a mettere entrambe le variabili come real

Ho provato a dichiarare entrambe come real ma mi ha dato un altro errore sempre dello stesso tipo, ma per un'altra operazione. nel dubbio, ho provato a dichiarare come real tutte le variabili, ma ha continuato a darmi errori. Che devo fare?

posta tutto il codice sorgente.

Il codice è questo



program Untitled;

uses crt;

var a,b,c,d,e,g,k,l,m,n,h:integer;

var f,j:real;



begin

clrscr;

writeln('Lo schema e'' ax^2+bx+c=0');

write('Inserire il coefficiente di x^2: ');

readln(a);

write('Inserire il coefficiente di x: ');

readln(b);

write('Inserire il termine noto: ');

readln(c);

d:=b*b;

e:=4*a*c;

f:=d-e;

g:=-1*b;

h:=2*a;

j:=sqrt(f);

k:=g+j;

l:=g-j;

m:=k div h;

n:=l div h;

writeln('Le due soluzioni sono ',m,' e ',n,');

readln;

end.

Perchè complicarsi la vita per niente?

    /**
     * SyntaxHighlighter
     */
    function foo()
    {
        if (counter <= 10)
            return;
        // it works!
    }

così al 90% dovrebbe funzionare, salvo errori come ";" che puoi correggere tu...

Avevo pensato a farlo così ma non l'avevo trovato una buona soluzione, anche se forse è migliore di quella che ho pensato io dichiarando un mare di variabili. Comunque proverò e ti farò sapere.

Ebbene non ha funzionato nemmeno così. Il compilatore non mi da più errori, ma il risultato è sempre 0.

Cioè? Spiegati per favore, cosa è 0?

Le soluzioni sono sempre uguali a 0. Forse è meglio se mi dici come si può risolvere il problema che avevo quando scrivevo il programma con il metodo che usavo io.

Puoi allegare l'eseguibile che hai compilato?

Ho fatto le dovute modifiche perchè altrimenti non sarebbe partito. Ho trovato anche un altro errore, e ora che l'ho corretto i risultati non vengono più sempre uguali a 0. Però, in compenso, vengono sempre uguali tra sè stessi.

Quello che ti faccio fare ora è debug fatto in casa...

dopo la riga:



delta:= b*b-4*a*c;



Metti:



writeln('Delta = ", delta);

Vediamo quanto ti restituisce come valore quella riga...

Per logica dovrebbe essere "0"

Ora vedo