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
Mógłby mnie ktoś wesprzeć kodem?
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
Mógłby mnie ktoś wesprzeć kodem?
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.
procedure xxinc(x:byte);
begin
x:=x+1;
write(x);
end;
Coś takiego 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
demistrakos , od kiedy pascalowska funkcja inc() wyświetla coś na ekran?
Nie wspominam już o dziwnej operacji:
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
Dzięki alex, nie wpadł bym na to var.
EDIT: To nie praca domowa.