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 - modalità grafica
Forum - Pascal - modalità grafica

Avatar
roma_91 (Ex-Member)
Newbie


Messaggi: 17
Iscritto: 11/03/2008

Segnala al moderatore
Postato alle 19:03
Sabato, 05/04/2008
Volevo sapere, se qualcuno lo sa, perche quando cerco di fare un programma usesdo la unit graph, il programma mi dà errore.
Questo è il programma:

Codice sorgente - presumibilmente Plain Text

  1.  

Program  grafica;
uses GRAPH;
var
  a,b: integer;
begin
    a := Detect;
    InitGraph(a,b,'');
    if graphresult = grOk then
        begin
              Line(0, 0, GetMaxX, GetMaxY);
           Readln;
           CloseGraph;
        end
    else
clearviewport;
readln;
end.


Mi dà errore nella riga 7 e mi dice:
7 / 12 grafica.pas
Error: call by var parameters have to match exactly: Got LONGINT expected SMALLINT



Qualcuno sa dirmi qualcosa  ??:-?

PM Quote
Avatar
crash outside control (Normal User)
Expert


Messaggi: 217
Iscritto: 12/02/2008

Segnala al moderatore
Postato alle 19:31
Sabato, 05/04/2008
Prova con questo...
Codice sorgente - presumibilmente Delphi

  1. program _grafica_;
  2. uses crt, graph;
  3. var
  4. grdriver, grmode : integer;
  5. procedure grafica;
  6. begin
  7. grdriver := detect;
  8. initgraph(grdriver, grmode, 'c:\tp\bgi');
  9. end;
  10. begin
  11. clrscr;
  12. grafica;
  13. setcolor(red);
  14. circle(100, 100,  100);
  15. repeat
  16. until keypressed;
  17. end.


PM Quote
Avatar
roma_91 (Ex-Member)
Newbie


Messaggi: 17
Iscritto: 11/03/2008

Segnala al moderatore
Postato alle 13:33
Domenica, 06/04/2008
Ho provato ma mi dà sempre lo stesso errore:
8 / 11 grafica2.pas
Error: call by var parameters have to match exactly: Got LONGINT expected SMALLINT

:-?

PM Quote
Avatar
Fedingo (Ex-Member)
Newbie


Messaggi: 11
Iscritto: 05/11/2007

Segnala al moderatore
Postato alle 21:20
Domenica, 06/04/2008
anche a me lo diceva.. mi sembra devi dichiarare le variabili come smallint

var a,b:smallint;

sono abbastanza sicuro...

PM Quote
Avatar
roma_91 (Ex-Member)
Newbie


Messaggi: 17
Iscritto: 11/03/2008

Segnala al moderatore
Postato alle 15:02
Lunedì, 07/04/2008
Funziona!!!  :k::rotfl:

Grazie mille!!
avevi ragione era quello!:D

PM Quote