graf1

program Grafika; uses CRT, Graph; var driver,mode: integer;

begin

driver := DETECT; (wykrywanie trybu pracy karty graficznej}

lnitGraph(driver, mode/C : \BPM3GI’); (przejście z trybu tekstowego do graficznego!

3

(tutaj można już używać instrukcji graficznych}

repeat until KeyPressesed;    (oczekiwanie na naciśnięcie klawisza}

CloseGraph;    (powrót do trybu tekstowego}

end.

Deklaracja „uses Graph” określa, że będziemy posługiwać się procedurami grafi Aby uruchomić tryb graficzny, potrzebne są nam dwie zmienne driver i modę, odpowi za określenie sterownika karty graficznej i trybu jej pracy. Najprostszym sposobem wt grafiki jest rozpoznanie karty graficznej przez system Turbo Pascal - dzieje się tak popr niu zmiennej driver stałej DETECT (zawartość zmiennej modę jest wtedy ignorowani rozwiązaniem jest samodzielne przypisanie tej zmiennej odpowiednich wartości (zadeni