X
ďťż

Ładny brzuch

Witam. Mam za 3 dni klasowke z Turbo Pascala, a scislej mowiac z grafiki. Nie da sie ukryc, ze jestem ciemny w tym temacie. Mam nastepujacy problem:

Jak narysowac na srodku ekranu trojkat i zamalowac go?

Prosze o szybka pomoc, bo legne w gruzach :(

Z gory dziekuje za pomoc. Pozdro :)


to bierz sie za ksiazki a nie tylko imprezy ci w glowie

GOOGLE
Użytkownik DrizeR edytował ten post 16 grudzień 2005, 22:35
uses crt, graph; var s:string; a:integer; procedure init(a,b:integer); begin initgraph(a,b,'egavga.bgi'); end; begin init(9,2); a:=50; setcolor(15); setbkcolor(8); moveto(getmaxx div 2,getmaxy div 2-a div 2); lineto(getmaxx div 2+a,getmaxy div 2+a div 2); moveto(getmaxx div 2,getmaxy div 2-a div 2); lineto(getmaxx div 2-a,getmaxy div 2+a div 2); moveto(getmaxx div 2-a,getmaxy div 2+a div 2); lineto(getmaxx div 2+a,getmaxy div 2+a div 2); floodfill(getmaxx div 2,getmaxy div 2,getcolor); readkey; end.lubuses crt, graph; var s:string; a:integer; p:array[0..3,0..1]of integer; procedure init(a,b:integer); begin initgraph(a,b,'egavga.bgi'); end; begin init(9,2); a:=50; setcolor(15); setbkcolor(8); p[0][0]:=getmaxx div 2; p[0][1]:=getmaxy div 2-50; p[1][0]:=getmaxx div 2+100; p[1][1]:=getmaxy div 2+50; p[2][0]:=getmaxx div 2-100; p[2][1]:=getmaxy div 2+50; p[3][0]:=getmaxx div 2; p[3][1]:=getmaxy div 2-50; fillpoly(4,p); readkey; end.


to bierz sie za ksiazki a nie tylko imprezy ci w glowie

GOOGLE

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •  

    Drogi uzytkowniku!

    W trosce o komfort korzystania z naszego serwisu chcemy dostarczac Ci coraz lepsze uslugi. By moc to robic prosimy, abys wyrazil zgode na dopasowanie tresci marketingowych do Twoich zachowan w serwisie. Zgoda ta pozwoli nam czesciowo finansowac rozwoj swiadczonych uslug.

    Pamietaj, ze dbamy o Twoja prywatnosc. Nie zwiekszamy zakresu naszych uprawnien bez Twojej zgody. Zadbamy rowniez o bezpieczenstwo Twoich danych. Wyrazona zgode mozesz cofnac w kazdej chwili.

     Tak, zgadzam sie na nadanie mi "cookie" i korzystanie z danych przez Administratora Serwisu i jego partnerow w celu dopasowania tresci do moich potrzeb. Przeczytalem(am) Polityke prywatnosci. Rozumiem ja i akceptuje.

     Tak, zgadzam sie na przetwarzanie moich danych osobowych przez Administratora Serwisu i jego partnerow w celu personalizowania wyswietlanych mi reklam i dostosowania do mnie prezentowanych tresci marketingowych. Przeczytalem(am) Polityke prywatnosci. Rozumiem ja i akceptuje.

    Wyrazenie powyzszych zgod jest dobrowolne i mozesz je w dowolnym momencie wycofac poprzez opcje: "Twoje zgody", dostepnej w prawym, dolnym rogu strony lub poprzez usuniecie "cookies" w swojej przegladarce dla powyzej strony, z tym, ze wycofanie zgody nie bedzie mialo wplywu na zgodnosc z prawem przetwarzania na podstawie zgody, przed jej wycofaniem.