Pascal - numeri in modalità grafica...

ecco qui..anche con il free pascal stessa musica..

pac_man.pas(322,1) Error: Undefined symbol: GRAFPAC_DISEGNA$SMALLINT$SMALLINT$SMALLINT
pac_man.pas(322,1) Error: Undefined symbol: GRAFPAC_DISFANT$SMALLINT$SMALLINT$SMALLINT
pac_man.pas(322,1) Fatal: There were 2 errors compiling module, stopping
pac_man.pas(0) Fatal: Compilation aborted


xk con il borland non ho tutti sti problemi?

Il Fre Pascal ti segnala um errore di tipo dati.

Nello specifico, le variabili "modo" e "grafica" ( utilizzate per le funzione initgraph e detect) devono essere necessariamente di tipo smallint.

In Lazarus, a prima vista, può sembrare disorientante, ma in effetti è molto comodo.

ho ordinato un libro su object pascal/delphi...quindi probabilmente dovrò x forza imparare ad usarlo....xò intanto tiro avanti....



cmq nessuno sa xk i numeri non vengono fuori....

ho provato a mettere il tipo smallint ma niente....uffa! ho provato a cambiarli un pò tutti ma niente lo stesso...come mai? e poi se compilo la unit grafica che ho fatto apposta x il pacman mi da errore perchè

grafpacfree.pas(15,11) Error: Forward declaration not solved "disegna(SmallInt,SmallInt,SmallInt);"
grafpacfree.pas(16,11) Error: Forward declaration not solved "disfant(SmallInt,SmallInt,SmallInt);"
grafpacfree.pas(87) Fatal: There were 2 errors compiling module, stopping
grafpacfree.pas(0) Fatal: Compilation aborted

ma io nell'interface in teoria non dovrei mettere la dichiarazione forward...e se la metto cosa succede? mi da un errore diverso=(

forward  declaration not solved

vuol dire che non hai scritto il testo di una procedura che avevi dichiarato nell'interface o che avevi dichiarato come forward.

pac_man.pas(322,1) Error: Undefined symbol: GRAFPAC_DISEGNA$SMALLINT$SMALLINT$SMALLINT
pac_man.pas(322,1) Error: Undefined symbol: GRAFPAC_DISFANT$SMALLINT$SMALLINT$SMALLINT
pac_man.pas(322,1) Fatal: There were 2 errors compiling module, stopping
pac_man.pas(0) Fatal: Compilation aborted

Sta roba qua può essere causato da un errore nei file della unit, prova a vedere se insieme al file *.ppu c'è anche il file *.o.

ho guardato e il file è presente...

vuoi che ti invio il sorgente così provi a compilarlo tu?

Posta il sorgente.
Guardando solo gli errori, è difficile contestualizzare il problema.

unit grafpac;
interface
uses graph;
type
 casi = (Vuoto,Muro,Cibo,Pac,Gosth);
 direzione= (N,S,E,O,Fermo);
var grafica,modo:integer;
  i,j:integer;
  col:word;
CONST
 MX=33;MY=24;Q=20; C=10;
procedure inizio;
procedure griglia;
procedure disegna(coor,x,y:integer);
procedure disfant(coor,x,y:integer);
implementation

procedure griglia;
begin
 setcolor(red);
for i:= 1 to MX-6 do
 line(i*Q,0,i*Q,476);
for i:= 1 to MY do
 line(0,i*Q,647-140,i*Q);
end;
procedure inizio;
begin

  griglia;


 end;
procedure disegna;
begin
 case coor of
     1: col:= red;
     2: col:=Yellow;
     3: col:=blue;
     4: col:=green;
    end;
 If (coor=4) then
  begin             {stampo il cibo}
   setcolor(blue);
   setfillstyle(1,blue);
   bar(x*Q-18,y*Q-18,x*Q-1,y*Q-1);
   floodfill(x*Q-8,y*Q-8,blue);
   setcolor(col);
   setfillstyle(1,col);
   circle(x*Q-10,y*Q-10,1);
   floodfill(x*Q-C,y*20-C,col);
  end
 else
  if coor=2 then
   begin     {stampo il pac}
    setcolor(col);
    setfillstyle(1,col);
    arc(x*Q-C,y*Q-C,220,140,8);
    line(x*q-c,y*Q-C,x*Q-C-5,y*Q-C-4);
    line(x*q-c,y*Q-C,x*Q-C-5,y*Q-C+4);
    floodfill(x*Q-C+1,y*Q-C,col);
  end
  else
  if (coor=3) or (coor=1) then
  begin
  setcolor(col);
   setfillstyle(1,col);
   bar(x*Q-18,y*Q-18,x*Q-1,y*Q-1);
   floodfill(x*Q-8,y*Q-8,col);
  end;
 end;
procedure disfant;
 begin
  case coor of
     1: col:= red;
     2: col:=Yellow;
     3: col:=blue;
     4: col:=green;
    end;
  setcolor(col);
  circle(x*Q-C,y*Q-C,5);
 end;

end.