[PASCAL] Własna procedura "Inc"


(Marcinch7) #1

Próbowałem napisać własną procedurę "Inc", za nic mi to nie wychodzi. Używałem wskaźników, wszystkiego co możliwe - a nie działa :frowning:

Mógłby mnie ktoś wesprzeć kodem? :stuck_out_tongue:


([alex]) #2

procedure xinc(var X:Integer);overload; begin X:=X+1; end;

procedure xinc(var X:Integer;Y:Integer);overload; begin X:=X+Y; end;

procedure xinc(var X:Word);overload; begin X:=X+1; end;

procedure xinc(var X:Word;Y:Word);overload; begin X:=X+Y; end;

itd.


(Marcins2009) #3
procedure xxinc(x:byte);

begin

x:=x+1;

write(x);

end;

Coś takiego :wink: Oczywiście to tylko przykład który musisz sam przeanalizować aby działał w twoim programie

Nie sprawdzałem czy działa bo pisałem go tu i nie mam zainstalowanego kompilatora :wink:


([alex]) #4

demistrakos , od kiedy pascalowska funkcja inc() wyświetla coś na ekran?

Nie wspominam już o dziwnej operacji:


(Marcins2009) #5

Nie miałem na celu wykonać z niego prace domową i dać mu od razu gotowca tylko go nakierować i pomóc w rozwiązaniu jego problemu :wink:


(Marcinch7) #6

Dzięki alex, nie wpadł bym na to var.

EDIT: To nie praca domowa.