pas_czesc

PS/TP

TI----PS

PS----4A

DYNAMICZNE STRUKTURY DANYCH

PS/TP

PROGRAMOWANIE STRUKTURALNE

Typy wska

nikowe.

Zmienne dotychczas omówionych typów, tj. typów prostych i strukturalnych,
charakteryzuj

tym,

e istniej

przez cały czas wykonywania tej cz

ęś

ci ,

w której s

zadeklarowane. S

to tzw. zmienne statyczne. W j

zyku Turbo Pascal

wyst

puj

zmienne dynamiczne reprezentuj

ce obiekty, dla których pami

ęć

jest przydzielana i zwalniana na okre

lone

Ŝą

danie. Zmienne te nie posiadaj

identyfikatorów, a odwołanie do nich nast

puje za pomoc

wska

nika.

Warto

ciami wska

ników s

elementy typu wska

nikowego, które okre

laj

adresy

pami

ci zmiennych dynamicznych. Zastosowanie w programie zmiennych

dynamicznych poci

ga za sob

konieczno

ść

zdefiniowania odpowiednich

typów wska

nikowych.

PS/TP

PROGRAMOWANIE STRUKTURALNE

Definicja pojedynczego typu wska

nikowego ma posta

TYPE

identyfikator_typu_wska

nikowego = ^identyfikator_typu_bazowego;

Przykład:

TYPE wskaznik = ^zapis;

zapis = record

Tekst: String[80];

Liczba: Integer;

end;

PS/TP

PROGRAMOWANIE STRUKTURALNE

Definicja ta wi

ąŜ

e typ wskaznik ze zbiorem wskaza

danych typu zapis.

li wprowadzimy teraz deklaracj

VAR adres : wskaznik;

to zmiennej wska

nikowej adres b

mogły by

w programie przypisywane

adresy pami

ci danych typu zapis.

adres

Tekst: String[80];

Liczba: Integer;

PS/TP

PROGRAMOWANIE STRUKTURALNE

W Pascalu wyst

puj

dwa predefiniowane typy wska

nikowe:

•Pointer (zmienne tego typu s

zgodne z dowolnym innym typem wska

nikowym)

•PChar (reprezentuje wska

nik do ła

cuchów zako

czonych znakiem pustym).

Słowo kluczowe jest słowo NIL, które
oznacza stał

typu wska

nikowego nie okre

laj

ą Ŝ

adnego adresu

(NIL wskazuje na adres pusty).

PS/TP

PROGRAMOWANIE STRUKTURALNE

PROGRAM Zmienne_dynamiczne;

USES

Crt;

VAR

i : INTEGER;
suma : ^INTEGER; {Deklaracja zmiennej dynamicznej}

BEGIN

ClrScr;
New(suma); {Przydzielenie pamieci dla zmiennej}
suma^:= 0;
FOR i:=1 TO 100 DO

suma^:= suma^ + i;

Writeln('Suma = ', suma^);
Dispose(suma); {Zwolnienie przydzielonej pamieci}
REPEAT UNTIL KeyPressed;

END.

Przykład

PS/TP

PROGRAMOWANIE STRUKTURALNE

PROGRAM Dynamiczna_tablica;

USES

Crt;

TYPE

tablica = ARRAY[1..100, 1..100] OF Real;

VAR

tab

: ^tablica; {Deklaracja tablicy dynamicznej}

rozmiar : Word;

BEGIN

ClrScr;
New(tab); {Przydzielenie pamieci dla tablicy}
rozmiar := SizeOf(tab^);

Przykład

PS/TP

PROGRAMOWANIE STRUKTURALNE

Procedura

New

słu

y do utworzenia zmiennej dynamicznej i ustalenia zmiennej

wska

nikowej wskazuj

cej na obszar zmiennej dynamicznej.

Posta

procedury:

New( zmienna-wska

nikowa )

Odwołanie si

do zmiennej dynamicznej nast

puje za pomoc

konstrukcji:

zmienna-wska

nikowa^

PS/TP

PROGRAMOWANIE STRUKTURALNE

Procedura

GetMem

słu

y do utworzenia zmiennej dynamicznej o podanym

rozmiarze (w bajtach).

Posta

procedury:

GetMem( zmienna-wska

nikowa, rozmiar )

Odwołanie si

do zmiennej dynamicznej:

zmienna-wska

nikowa^

PS/TP

PROGRAMOWANIE STRUKTURALNE

Procedura

Dispose

słu

y do zwolnienia obszaru pami

ci przydzielonej dla

zmiennej dynamicznej, czyli usuni

cia zmiennej dynamicznej.

Posta

procedury:

Dispose( zmienna-wska

nikowa )

PS/TP

PROGRAMOWANIE STRUKTURALNE

Funkcja

MaxAvail

słu

y do pobrania rozmiaru (w bajtach) najwi

kszego

wolnego bloku na stogu (Heap).

Posta

funkcji:

MaxAvail

Przykład:

Max_block_size := MaxAvail;

PS/TP

PROGRAMOWANIE STRUKTURALNE

Funkcja

MemAvail

słu

y do pobrania sumy rozmiarów (w bajtach) wszystkich

wolnych bloków na stogu (Heap).

Posta

funkcji:

MemAvail

Przykład:

Max_size := MemAvail;

PS/TP

PROGRAMOWANIE STRUKTURALNE

STOS (ang. Stack)

Stos jest to struktura danych składaj

ca si

z liniowo uporz

dkowanych elementów

w której ostatnio doł

czony element nazywamy wierzchołkiem stosu). Stos działa

na zasadzie pami

ci LIFO (ang. Last Input – First Output) – ostatnio wprowadzony

do niego element zostanie pierwszy wyprowadzony.

Element 1

Element 2

Element 3

Element 4

Element 5

Element 6

Wierzchołek
stosu

PS/TP

PROGRAMOWANIE STRUKTURALNE

dane

wskaznik

dane

wskaznik

dane

wskaznik

dane

wskaznik

NIL

wierzchołek

stosu

wej

cie

wyj

cie

PS/TP

PROGRAMOWANIE STRUKTURALNE

Przykładowy program

PROGRAM Stos1;

USES

Crt;

TYPE

wskaznik_stosu = ^skladnik_stosu;

skladnik_stosu = record

dane : string[70];
wskaznik : wskaznik_stosu;

end;

VAR

{Deklaracje zmiennych dynamicznych}
wierzcholek, element : wskaznik_stosu;
{Deklaracje zmiennych pomocniczych}
tekst : string;
koniec : boolean;
i,k,n : integer;

PS/TP

PROGRAMOWANIE STRUKTURALNE

{Procedura tworzenia stosu i doł

czania

do niego składników}

procedure NaStos(var element : string[70];

var wierzcholek : wskaznik_stosu);

var punkt : wskaznik_stosu;
begin

punkt := wierzcholek;
New(wierzcholek);
wierzcholek^.dane := element;
wierzcholek^.wskaznik := punkt;

end; {NaStos}

PS/TP

PROGRAMOWANIE STRUKTURALNE

{Procedura usuwania (zdejmowania) składnika
z wierzchołka stosu}

procedure ZeStosu(var element : string[70];

var wierzcholek : wskaznik_stosu);

var punkt : wskaznik_stosu;
begin

if (wierzcholek <> NIL) then

begin

element := wierzcholek^.dane;
punkt := wierzcholek^.wskaznik;
Dispose(wierzcholek);
wierzcholek := punkt;

end;

end; {ZeStosu}

PS/TP

PROGRAMOWANIE STRUKTURALNE

BEGIN

ClrScr;
TextColor(YELLOW);
TextBackground(BLUE);
GoToXY(32,1);
writeln('PRZYKŁAD STOSU');
window(1,3,80,25);
TextBackground(BLACK);
write('Wprowad

teksty (ka

dy maks. 70 znaków)');

writeln('** - koniec wprowadzania');

wierzcholek := NIL;
i:=0;
koniec := false;
repeat

i:=i+1;
write('Tekst ',i,' :');
readln(tekst);
if (tekst='**') then koniec := true
else NaStos(tekst,wierzcholek);

until koniec;

PS/TP

PROGRAMOWANIE STRUKTURALNE

if (i>1) then

begin

clrscr;
writeln('Stos został utworzony');
i:=i-1;
writeln('Liczba składników stosu: ',i);
koniec := false;
repeat

writeln('Podaj liczb

n tekstów do usuni

cia ');

write('ze stosu (n<1 - koniec) : ');
readln(n);
if (n<1)

then koniec := true
else

if (n>i)

then writeln('Liczba składników stosu : ',i)

PS/TP

PROGRAMOWANIE STRUKTURALNE

element := wierzcholek;

repeat

i:=i+1;
writeln('Tekst ',i,' : ');
writeln(element^.dane);
element := element^.wskaznik;

until (element=NIL);

end

until koniec;

for k:=1 to i do ZeStosu(tekst, wierzcholek);
writeln('Koniec programu');
Delay(2000);

end; {(i>1)}

writeln('Naci

nij dowolny klawisz...');

Readkey;

END.

PS/TP

PROGRAMOWANIE STRUKTURALNE

KOLEJKA (ang. Queue)

Kolejka jest struktur

danych składaj

z liniowo uporz

dkowanych elementów,

do której mo

na doł

czy

nowy element tylko na ko

cu kolejki, a usun

ąć

tylko na

pocz

tku kolejki. Kolejka działa na zasadzie pami

ci FIFO

(ang. Last Input – First Output) – pierwszy wprowadzony do niej element
zostanie pierwszy wyprowadzony.

Element 1

Element 2

Element 3

Element 4

Element 5

Pocz

tek

kolejki

Koniec kolejki

PS/TP

PROGRAMOWANIE STRUKTURALNE

dane

wskaznik

dane

wskaznik

dane

wskaznik

dane

wskaznik

NIL

Pocz

tek kolejki

wyj

cie

wej

cie

Koniec kolejki

KOLEJKA

PS/TP

PROGRAMOWANIE STRUKTURALNE

Przykładowy program

PROGRAM Kolejka1;

USES

Crt;

TYPE

wskaznik_kolejki = ^skladnik_kolejki;

skladnik_kolejki = record

dane : string[70];
wskaznik : wskaznik_kolejki;

end;

VAR

{Deklaracje zmiennych dynamicznych}
poczatek_kolejki, koniec_kolejki, element : wskaznik_kolejki;
{Deklaracje zmiennych pomocniczych}
tekst : string;
koniec : boolean;
i,k,n : integer;

PS/TP

PROGRAMOWANIE STRUKTURALNE

{Procedura tworzenia kolejki i doł

czania

na jej ko

cu nowych składników}

procedure DoKolejki(var element : string[70];

var koniec_kolejki : wskaznik_kolejki);

var punkt : wskaznik_kolejki;
begin

punkt := koniec_kolejki;
New(koniec_kolejki);
koniec_kolejki^.dane := element;
koniec_kolejki^.wskaznik := NIL;
if (punkt<>NIL) then punkt^.wskaznik := koniec_kolejki;

end; {DoKolejki}

PS/TP

PROGRAMOWANIE STRUKTURALNE

{Procedura usuwania składnika

z pocz

tku kolejki}

procedure ZKolejki(var element : string[70];

var poczatek_kolejki : wskaznik_kolejki);

var punkt : wskaznik_kolejki;
begin

if (poczatek_kolejki <> NIL) then

begin

element := poczatek_kolejki^.dane;
punkt := poczatek_kolejki^.wskaznik;
Dispose(poczatek_kolejki);
poczatek_kolejki := punkt;

end;

end; {ZKolejki}

BEGIN

ClrScr;
TextColor(YELLOW);
TextBackground(BLUE);

PS/TP

PROGRAMOWANIE STRUKTURALNE

GoToXY(32,1);

writeln('PRZYKŁAD KOLEJKI');
window(1,3,80,25);
TextBackground(BLACK);
write('Wprowad

teksty (ka

dy maks. 70 znaków)');

writeln('** - koniec wprowadzania');

koniec_kolejki := NIL;
i:=0;
koniec := false;
repeat

i:=i+1;
write('Tekst ',i,' :');
readln(tekst);
if (tekst='**') then koniec := true
else begin

DoKolejki(tekst,koniec_kolejki);
if (i=1) then poczatek_kolejki := koniec_kolejki;
end;

until koniec;

PS/TP

PROGRAMOWANIE STRUKTURALNE

if (i>1) then

begin

clrscr;
writeln('Kolejka została utworzona');
i:=i-1;
writeln('Liczba składników kolejki: ',i);
koniec := false;
repeat

writeln('Podaj liczb

n tekstów do usuni

cia ');

write('z kolejki (n<1 - koniec) : ');
readln(n);
if (n<1)

then koniec := true
else

if (n>i)

then writeln('Liczba składników kolejki : ',i)

PS/TP

PROGRAMOWANIE STRUKTURALNE

else begin

k:=0;
repeat

k:=k+1;
ZKolejki(tekst, poczatek_kolejki);

until (poczatek_kolejki=NIL) or (k=n);
writeln('Teksty pozostałe w kolejce:');
if (poczatek_kolejki=NIL)

then begin

writeln('Brak tekstów');
koniec := true;

end

else begin

i:=0;
element := poczatek_kolejki;
repeat

i:=i+1;
writeln('Tekst ',i,' : ');
writeln(element^.dane);
element := element^.wskaznik;

until (element=NIL);

PS/TP

PROGRAMOWANIE STRUKTURALNE

end

until koniec;

for k:=1 to i do ZKolejki(tekst, poczatek_kolejki);

writeln('Koniec programu');
Delay(2000);

end; {(i>1)}

writeln('Naci

nij dowolny klawisz...');

Readkey;

END.

PS/TP

PROGRAMOWANIE STRUKTURALNE

LISTA JEDNOKIERUNKOWA

List

liniow

nazywamy liniowo uporz

dkowany zbiór elementów, z którego

w dowolnym miejscu mo

na usun

ąć

, jak równie

doł

czy

nowy element.

W zale

ci od rodzajów poł

cze

pomi

dzy elementami wyró

niamy listy:

jednokierunkowe

dwukierunkowe

cykliczne

Element 1

Element 2

Element 3

Element 4

Element 5

PS/TP

PROGRAMOWANIE STRUKTURALNE

LISTA JEDNOKIERUNKOWA

List

JEDNOKIERUNKOW

nazywamy liniowo uporz

dkowany zbiór elementów,

W KRÓRYM dla ka

dego elementu,

poza pierwszym

jest okre

lony element poprzedni.

Element 1

Element 2

Element 3

Element 4

Element 5

Pocz

tek LISTY

(pierwszy element)

Koniec listy

(ostatni element)

PS/TP

PROGRAMOWANIE STRUKTURALNE

dane

wskaznik

dane

wskaznik

dane

wskaznik

dane

wskaznik

NIL

Pocz

tek listy

Koniec listy

LISTA JEDNOKIERUNKOWA „o kierunku do przodu”

PS/TP

PROGRAMOWANIE STRUKTURALNE

dane

wskaznik

dane

wskaznik

dane

wskaznik

NIL

Pocz

tek listy

Koniec listy

LISTA JEDNOKIERUNKOWA „o kierunku do tyłu”

PS/TP

PROGRAMOWANIE STRUKTURALNE

Tworzenie listy

PROGRAM Lista0; {Demonstracja listy jednokierunkowej}

USES

Crt;

TYPE

wskaznik_listy = ^skladnik_listy;

skladnik_listy = record

dane : string[70];
wskaznik : wskaznik_listy;

end;

VAR

{Deklaracje zmiennych dynamicznych}
pierwszy_skladnik,
biezacy_skladnik

: wskaznik_listy;

{Deklaracje zmiennych pomocniczych}
poprzedni, nastepny : wskaznik_listy;

PS/TP

PROGRAMOWANIE STRUKTURALNE

writeln('Dodanie nast

pnego składnika');

poprzedni := biezacy_skladnik;
New(biezacy_skladnik);
biezacy_skladnik^.dane := 'BBBBBBBBBB';
biezacy_skladnik^.wskaznik := NIL;
poprzedni^.wskaznik := biezacy_skladnik;

dane = ‘AAAAAAAAAA’
wskaznik

pierwszy_skladnik

biezacy_skladnik

NIL

dane = ‘BBBBBBBBBB’
wskaznik

PS/TP

PROGRAMOWANIE STRUKTURALNE

poprzedni := biezacy_skladnik;
New(biezacy_skladnik);
biezacy_skladnik^.dane := 'CCCCCCCCCC';
biezacy_skladnik^.wskaznik := NIL;
poprzedni^.wskaznik := biezacy_skladnik;

dane = ‘AAAAAAAAAA’
wskaznik

pierwszy_skladnik

biezacy_skladnik

NIL

dane = ‘BBBBBBBBBB’
wskaznik

dane = ‘CCCCCCCCCC’
wskaznik

dane = ‘DDDDDDDDDD’
wskaznik

PS/TP

PROGRAMOWANIE STRUKTURALNE

wietlanie listy

if (pierwszy_skladnik<>NIL) then

begin

biezacy_skladnik := pierwszy_skladnik;
repeat

writeln(biezacy_skladnik^.dane);
biezacy_skladnik := biezacy_skladnik^.wskaznik;

until (biezacy_skladnik=NIL);

end

else writeln('Lista jest pusta');

PS/TP

dane = ‘AAAAAAAAAA’
wskaznik

pierwszy_skladnik

biezacy_skladnik

NIL

dane = ‘BBBBBBBBBB’
wskaznik

dane = ‘CCCCCCCCCC’
wskaznik

dane = ‘DDDDDDDDDD’
wskaznik

PROGRAMOWANIE STRUKTURALNE

Kierunek

przesuwania

wska

nika

PS/TP

PROGRAMOWANIE STRUKTURALNE

dane = ‘AAAAAAAAAA’
wskaznik

pierwszy_skladnik

biezacy_skladnik

NIL

dane = ‘BBBBBBBBBB’
wskaznik

dane = ‘CCCCCCCCCC’
wskaznik

dane = ‘DDDDDDDDDD’
wskaznik

Kierunek

przesuwania

wska

nika

Dispose

PS/TP

PROGRAMOWANIE STRUKTURALNE

pierwszy_skladnik

biezacy_skladnik

NIL

dane = ‘BBBBBBBBBB’
wskaznik

dane = ‘CCCCCCCCCC’
wskaznik

dane = ‘DDDDDDDDDD’
wskaznik

Kierunek

przesuwania

wska

nika

Dispose

PS/TP

PROGRAMOWANIE STRUKTURALNE

pierwszy_skladnik

biezacy_skladnik

NIL

dane = ‘CCCCCCCCCC’
wskaznik

dane = ‘DDDDDDDDDD’
wskaznik

Kierunek

przesuwania

wska

nika

Dispose

PS/TP

PROGRAMOWANIE STRUKTURALNE

Kompilator słu

y do przetłumaczenia programu u

ytkownika (programu

ródłowego

.PAS) na j

zyk wewn

trzny komputera. Po przetłumaczeniu programu jego

kod wynikowy mo

e by

zapisany na dysku (.EXE).

Dyrektywy kompilatora mog

wyst

w dowolnym miejscu programu

ródłowego

i maj

posta

{$dyrektywa}

lub

{$dyrektywa parametry}

Dyrektywa wyst

puje bezpo

rednio po znaku $ (odst

p nie jest tu dozwolony),

a pomi

dzy ni

i parametrami musi wyst

przynajmniej jeden odst

PS/TP

PROGRAMOWANIE STRUKTURALNE

Wyró

niamy trzy grupy dyrektyw kompilatora:

dyrektywy przeł

cznikowe, które odpowiednie cechy kompilatora wł

czone

lub wył

czone (aktywne lub nie aktywne),

dyrektywy parametryczne, które przekazuj

informacje kompilatorowi

(nazwy zbiorów i rozmiary pami

ci),

dyrektywy warunkowe, które stosowane s

w celu sterowania warunkow

kompilacj

okre

lonych cz

ęś

ci kodu

ródłowego.

PS/TP

PROGRAMOWANIE STRUKTURALNE

Dyrektywy przeł

cznikowe, które odpowiednie cechy kompilatora wł

czone

lub wył

czone (aktywne lub nie aktywne),

Options/Compiler/Var-string checking

Lokalna

{$V+}

{$V}

Options/Compiler/Stack checking

Lokalna

{$S+}

{$S}

Options/Compiler/Range checking

Lokalna

{$R-}

{$R}

Options/Compiler/IO checking

Lokalna

{$I+}

{$I}

Options/Compiler/Debug information

Globalna

{$D+}

{$D}

Options/Compiler/Boolean evaluation

Lokalna

{$B-}

{$B}

Options/Compiler/Align data

Globalna

{$A+}

{$A}

Odpowiednik w menu

Typ dyrektywy

Warto

ść

domy

lna

Dyrektywa

PS/TP

PROGRAMOWANIE STRUKTURALNE

Dyrektywy parametryczne, które przekazuj

informacje kompilatorowi

(nazwy zbiorów i rozmiary pami

ci),

{$dyrektywa parametry}

Doł

czenie zbioru

ródłowego .PAS

Przykład:

Prog test;
{$I PROC1.PAS}
Begin
…..
End.

{$I nazwa-zbioru}

PS/TP

PROGRAMOWANIE STRUKTURALNE

PROGRAM PROG1.PAS
USES Crt;

procedure NaStos;

var punkt : wskaznik_stosu;
begin
end; {NaStos}

BEGIN

ClrScr;
TextColor(YELLOW);
TextBackground(BLUE);

END.

Kompilator skompiluje nast

puj

cy tekst:

PS/TP

PROGRAMOWANIE STRUKTURALNE

Dyrektywy warunkowe, które stosowane s

w celu sterowania warunkow

kompilacj

okre

lonych cz

ęś

ci kodu

ródłowego.

Słu

Ŝą

do tworzenia

wariantowych dyrektyw
warunkowych

{$ENDIF}

{$ELSE}

Powoduje skompilowanie
wyst

puj

cego po niej tekstu w

przypadku, gdy nazwa
symboliczna nie jest
zdefiniowana

{$IFNDEF TEST}

{$IFNDEF nazwa-symbolicz}

Powoduje skompilowanie
wyst

puj

cego po niej tekstu w

przypadku, gdy nazwa
symboliczna jest zdefiniowana

{$IFDEF TEST}

{$IFDEF nazwa-symbolicz}

Ustala stan niezdefiniowania
nazwy symbolicznej

{$UNDEF TEST}

{$UNDEF nazwa-symbolicz}

Definiuje nazw

symboliczn

{$DEFINE TEST}

{$DEFINE nazwa-symbolicz}

Opis dyrektywy

Warto

ść

przykładowa

Dyrektywa

PS/TP

PROGRAMOWANIE STRUKTURALNE

Program prog1;
Uses Crt;
Begin
ClrScr;
Writeln(‘Przebieg testowy programu’);
ReadKey;
End.

Dyrektywy warunkowe spowoduj

e kod

ródłowy programu b

dzie

traktowany przez kompilator tak jak poni

szy.

PS/TP

PROGRAMOWANIE STRUKTURALNE

rodowiska Turbo Pascal 6.0/7.x oraz Free Pascal Compiler posiadaj

wbudowany j

zyk asemblerowy Build-In Assembler. Dzi

ki niemu mo

na pisa

krótkie wstawki asemblerowe w kodzie pascalowym.

Trzeba jednak zna

troch

podstaw na temat rejestrów procesora Intel widocznych

w trybie 16-bitowym (pami

taj,

e Turbo Pascal zatrzymał si

w swoim rozwoju na

Procesorze Intel 80486).

Symbole rejestrów procesora Intel 80486

═══════════════════════════════

AX BX CX DX

16-bitowe ogólnego przeznaczenia

AL BL CL DL

8-bitowe dolne połówki rejestrów

AH BH CH DH

8-bitowe górne połówki rejestrów

SP BP SI DI

16-bitowe rejestry dla wska

ników lub indeksów

CS DS SS ES

16-bitowe rejestry segmentowe

ST 8087 rejestr dla stosu

PS/TP

PROGRAMOWANIE STRUKTURALNE

Dost

p do wbudowanego asemblera odbywa si

za pomoc

słowa kluczowego

asm

Składnia:

asm

g rozkazów asemblera

end

Uwaga:

li w jednej linii umieszczasz wiele rozkazów asemblera to rozdzielaj je

rednikami.

………….

asm {pocz

tek wstawki asemblerowej}

sekwencja rozkazów asemblera

end; {koniec wstawki asemblerowej}

………….

PS/TP

PROGRAMOWANIE STRUKTURALNE

rodowiska Turbo Pascal 6.0/7.x oraz Free Pascal Compiler posiadaj

wbudowany j

zyk asemblerowy Build-In Assembler.

Dzi

ki niemu mo

na pisa

krótkie wstawki asemblerowe w kodzie pascalowym.

W kompilatorze Free Pascal Compiler nale

y sprawdzi

ustawienia

nast

puj

cych opcji:

Options

Compiler

Compiler Mode: Turbo Pascal compatible

Options

Compiler

Assembler

Intel Style assembler

Przykładowa wstawka asemblerowa:

asm

{pocz

tek wstawki asemblerowej}

mov ax, 20
mul wynik
mov wynik, ax

end;

{koniec wstawki asemblerowej}

PS/TP

PROGRAMOWANIE STRUKTURALNE

Przykładowy program:

program asm1;

uses crt;
var

wynik : word;

BEGIN

clrscr;
wynik := 10;
asm {pocz

tek wstawki asemblerowej}

mov ax, 20 {zaladuj liczbe 20 do rejestru ax}
mul wynik {pomnoz wynik przez rejestr ax}
mov wynik, ax {zaladuj rejestr ax do zmiennej wynik}

end; {koniec wstawki asemblerowej}
writeln(wynik);
readkey;

END.

PS/TP

PROGRAMOWANIE STRUKTURALNE

Przykładowy program (

tylko w Turbo Pascalu

program asm2;

uses crt;
var

licznik : byte;
losowanie : word;

BEGIN

clrscr;
randomize;
writeln('Nacisnij dowolny klawisz, to narysuje 200 zielonych pikseli');
readkey;
asm

mov ah, 00h { 00h do rejestru ah }
mov al, 13h { 13h do rejestru al - nr trybu pracy karty graficznej}
int 10h { wywolaj przerwanie 10h }

end;

PS/TP

PROGRAMOWANIE STRUKTURALNE

Przykładowy program:

for licznik := 0 to 199 do

begin

losowanie := random(64000);
asm

mov ax, 0A000h;
mov es, ax
mov di, losowanie
mov byte ptr es:[di], 2 {zaladuj 2 do komorki pamieci pod adresem ES:DI}

{FPC error: 16-bit reference not supported}

end;

end; {koniec petli for}
readkey;

END.

PS/TP

PROGRAMOWANIE STRUKTURALNE

Przykładowy program (

tylko w Turbo Pascalu

program asm3;
uses crt;
procedure ZamalujEkran(kolor : byte);
begin

asm

mov ah, 00h
mov al, 13h
int 10h {uruchomienie trybu graficznego}
mov ax, 0A000h;
mov es, ax
mov di, 0
mov cx, 32000
mov ah, kolor
mov al, ah
cld
rep stosw

{zamalowanie kolorem}

end;

end; {ZamalujEkran}