Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Pascal -  non riesco a capire dove si trova l'errore! aiutatemi x favore
Forum - Pascal - non riesco a capire dove si trova l'errore! aiutatemi x favore

Avatar
lorenzoscarrone (Normal User)
Pro


Messaggi: 92
Iscritto: 16/11/2011

Segnala al moderatore
Postato alle 22:07
Giovedė, 15/03/2012
questo č il codice, x il momento calcola solo il primo numero che scompone il polinomio ma mi da errori di compilazione chi mi sa aiutare: :hail:

Codice sorgente - presumibilmente Delphi

  1. program  ruffini_calcolo;
  2. var x,p:array[0..10000]of integer;
  3.     n,m,i,k,ge,greq:integer;
  4.  
  5. function ruffini(esp,num:integer):integer;
  6. begin
  7. ruffini:=1;
  8. for k:=esp downto 1 do ruffini:=ruffini*num;
  9. end;
  10.  
  11. begin
  12. writeln('inserire grado eq. = '); readln(greq);
  13.  
  14. for ge:=greq downto 0 do
  15. begin
  16. writeln('inserire coefficente di grado (',ge,') =');readln(x[ge]);
  17. end;
  18. p[1]:=0;p[2]:=0;
  19. repeat
  20. n:=n+1;
  21. for i:=0 to greq do p[1]=p[1]+x[i]*ruffini(i,n);
  22. m:=m-1;
  23. for i:=0 to greq do p[2]=p[2]+x[i]*ruffini(i,m);
  24. until (p[1]=0)or(p[2]=0);
  25. if(p[1]=0)then writeln(n);
  26. if(p[2]=0)then writeln(m);
  27. readln;
  28. end.


Ultima modifica effettuata da lorenzoscarrone il 15/03/2012 alle 23:10
PM
Avatar
Phi (Member)
Expert


Messaggi: 241
Iscritto: 30/12/2009

Up
1
Down
V
Segnala al moderatore
Postato alle 13:46
Venerdė, 16/03/2012
Codice sorgente - presumibilmente Delphi

  1. for i:=0 to greq do p[1]=p[1]+x[i]*ruffini(i,n);
  2. ...
  3. for i:=0 to greq do p[2]=p[2]+x[i]*ruffini(i,m);


deve essere
Codice sorgente - presumibilmente Delphi

  1. for i:=0 to greq do p[1]:=p[1]+x[i]*ruffini(i,n);
  2. ...
  3. for i:=0 to greq do p[2]:=p[2]+x[i]*ruffini(i,m);



in pascal = č l'operatore logico di ugualianza e := quello di assegnamento

PM
Avatar
djleo (Member)
Pro


Messaggi: 72
Iscritto: 07/03/2010

Up
0
Down
V
Segnala al moderatore
Postato alle 10:20
Venerdė, 16/03/2012
Ciao posta gli errori che ti da cosi ci rendi la vita pių facile.

PM