[raven4444]

#programowanie #pascal

Może ktoś ma pomysł jak to napisać w tym #!$%@? języku

Zdefiniuj zmienną wskaźnikową wskazującą na element typu byte, przypisz jej wartość $B8000000 i wpisz w to miejsce wartość 65. Wcześniej użyj clrscr. Co możemy zaobserwować?

[volden]

@raven4444: napisz że możemy zaobserwować iż program nie działa

[anonim1133]

#programowanie #pascal

:|

[ktoosiu]

@raven4444: dam Ci kawałek programu

program lol;

uses crt;

var zmienne:byte;

begin

clrscr;

end.

pomogłem?

[raven4444]

@ktoosiu: gdyby to wystarczyło to bym się cieszył.

[ktoosiu]

@raven4444: jak będę miał trochę czasu to zobaczę co da się zrobić

[A.....k]

@raven4444: $B8000000 - to nie jest byte i pomażesz sobie pamięć.

[raven4444]

@Analityk: no to jest adres na który mam zmienić pointer do tej zmiennej byte.

--

Wysłano z Złotej Łopaty dla Windows 3.11

[A.....k]

@raven4444:

program lol;

uses crt;

var

pbyte : ^byte absolute $B800:$0000;

begin

clrscr;

pbyte^ :=5;

writeln(p_byte^);

readkey;

end.

[raven4444]

@Analityk: Raised exception class: external sigsegv przy przypisaniu wartości 65. Przy uruchamianiu się wywala, normalnie się kompiluje.

[A.....k]

@raven4444: A wiesz co nadpisujesz?

Napisz takie coś:

tim : longint absolute $0040:$006C;

i zobacz co ci się wyświetla.

[raven4444]

@Analityk: Znaczy muszę to zmieniać na np tim : longint absolute $0040006C; inaczej nie łyknie. Zrobiłem też to trochę inaczej

var p : ^byte;

begin

p := pointer($B8000000);

p^ := 65;

end.

i też jest to samo.

Dobra ale już mam rozwiązanie, wszystko jest oki i ten error też, po prostu jest to taka reakcja na systemach działających w trybie chronionym.