Ł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
Uytkownik 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
    •