Arc(x,y, 0,180-kat,R)-łuk, wycinek okręgu
Bar(x1,y1,x2,y2)-prostokąt „słupek”x1y1-lewy górny wierzch. Prost.,x2y2-prawy dolny,
Bar3d—trójwymiarowy słupek
Circle(X,Y,promień)-rysuje koło o wsp. xy i promieniu R
Ellipse(x,y,0,360,Rx,Ry)- rysuj elipsę
FillEllipse(x,y,kolor) –wypełnij elipsę
FillPoly- rysuj wielokąt wypełniony wewnątrz
FloodFill(X,Y,color_krawędzi)-wypełnij obszar od punktu XY
GetBkColor-podaj bieżący kolor tła
GetColor-podaj bieżący kolor rysowania
GetDefaultPalette—ustaw domyślną paletę kolorów
GetMaxX-podaj max szerokość
GetMaxY-podaj max wysokość
GetPixel-podaj kolor wskazanego punktu
Initgraph-inicjuje tryb graf
MoveTo(x,y)-przesuwa kursor graficzny o pozycje xy
MoveRel(dx,dy)-przesuwa kursor o dx,dy
Line(x1,y1,x2,y2)-rysuj linię prostą od x1,y1 do x2,y2
LineRel(dx,dy)-rysuje linie od wskazanego punktu
LineTo(x,y)-kreśli linię od położenia kursora graf do xy
OutText(x,y,tekst)-wprowadz text
OutTextXY-wprowadz text od współrzędnych xy
PutPixel(x,y,color)-stawia kropke we wsp xy o kolorze
Rectangle(x1,y1,x2,y2)-rysuj prostopkąt x1y1-lewy górny wierzch,x2y2-prawy dolny
SetBkColor(kolor1-15)-ustaw kolor tła
SetColor(kolor)-ustaw kolor rysowania
SetFillPatern-ustaw kolor wypełniacza figur
SetFillStyle(nr_wzorka,kolor)-ustaw rodzaj linii
SetGraphMode-włacz tryb graficzny
SetLineStyle(styl,wzorek,grubość)-ustawia rodzaj linii
SetWriteMode-narysowac na poprzedni rysunek
SetTextStyle(czcionka1-4,kierunek:horizdir-poziomo,vertdir-pionowo,rozmiar)-ustala rodzaj wpisywanego tekstu
TextHeight-ustaw wysokość tekstu
TexttWidth-ustaw szerokość tekstu
1.Wyśw ja można w 1024 kolum i 768 wersz
2.Inicj karty graf: uses graph;var k,t:integer; begin k:=detect; initgraph(k,t,’c:\bp\bgi’);
readln; closegraph end.3.Jak wyzn max szeri wys: writeln(‘maxymalna szerokośc:’,getmaxX); readln; closegraph; end writeln(‘maxymalna wysokość:’,getmaxY) ; readln; closegraph; end.4.Napis imię (pogoda) w poz i w pion:
SetTextStyle(1,horizdir,2)-poziomo. (Font,0,wielkość) OutText(x,y,’Karolina’);
SetTextStyle(1,vertdir,2);-pionowo OutText(x,y,’Karolina’);
5.Bład można wykryć używ proced : if graphresult=GrOk then , kiedy nie ma błędu =0.
6.Narys ٱ opisany na okreg:circle(200,200,50);rectangle(150,150,250,250);
7.Narys ٱ (x,y,x+100,y+100); 8.nar punky niebieski w dow. punkcie ekranu PutPixel(x,y,blue); 9.N czerw odcinek setcolor(red); line(x1,y1,x2,y2); 10N kolo o kolor czerw: setcolor(red); circle(x,y,r);11.N ٱ na 2 spos.1Rectangle(100,100,200,200); 2 line(100,100,200,100);line(200,100,200,200);line(200,200,100,200); line(100,200,100,100);
12.N łuki na 2 spos. 1Arc(200,200,0,180,50); 2.Ellipse(200,200,0,180,50,50);
13.Narysowac ellipse(x,y,kąt poczatkowy,kąt końc. RX,rY); ellpise(200,200,0,360,50,100);
14. i:integer; numer:string; setachrePage(i); str(i,numer); str-zmienna agr numeryczny na łańcuch znakowy, seachrepage-strony będą się zmieniać
15.Podany okręg-R wynosi 60; Podany łuk Arc(x,y,0,180,r);
16. Wypełnić elpise-Floodfill(x,y,kolor_krawędz); Fillellpise(x,y,kolor);
17.Uruchomic program bez initgraph- SetGraphMode
18.Max liczba kolorów: getmaxcolor
19.graniastsłup z krawędz. górna- bar3d(350100,550,200,30,TOPON); bez (TOPOFF)
20.Wybrać losowo kolor:begin randomize; setcolor(random(16)); tła SetBkcolor(random(16));
21.Zmienic kolor tła: SetBkcolor(color);
22.Przekreslic ellpise w pionie ellipse(x,y,0,360,xr,yr); line(X,y-yr,X,Y+yr);