pascal - modul graph

0

siema mam problem niewiem jak nawysowac choinke w module grapf jelsi ktos wie jak to zrobic z gory dzieki podejrzewam ze mozna to zrobic z 3 trojkatow ale niemoge nigdzie znaleŹĆ jak zrobic trojkat jeden pod drugim i jeden wikszy od drugiego bede wdzieczny za pomoc :D!!

0

Trójkąt to trzy linie, tego też nie umiesz?

 DrawPoly (procedure)     (Graph Unit)

Draws the outline of a polygon using the current line style and color.

Declaration:


 procedure DrawPoly(NumPoints: Word; var PolyPoints);

Target:
Real, Protected

Remarks:
NumPoints specifies the number of coordinates in PolyPoints. A coordinate
consists of two words, an X and a Y value.

Restrictions:
Must be in graphics mode.

See Also:
FillPoly
GetLineSettings
GraphResult
SetColor
SetLineStyle
SetWriteMode

Sample Code:

 {Drawpoly.PAS}

 {Sample code for the Drawpoly function.}

 uses Graph;

 const
  Triangle: array[1..4] of PointType = ((X: 50; Y: 100), (X: 100; Y:100),
    (X: 150; Y: 150), (X:  50; Y: 100));
 var Gd, Gm: Integer;
 begin
  Gd := Detect;
  InitGraph(Gd, Gm, ' ');
  if GraphResult <> grOk then
    Halt(1);
  DrawPoly(SizeOf(Triangle) div SizeOf(PointType), Triangle);{ 4 }
  Readln;
  CloseGraph;
 end.
0

ales mi choinke zrobil mi choidzilo ze niewiem jak zrobic trojkat jeden pod drugim zeby wyszla choinka !!

0

Po pierwsze to nie ja tylko borland, po drugie to narysuj sobie na kartce choinkę z trójkątów popatrz na współrzędne wierzchołków i rysuj. Odrobinka wysiłku nie zaszkodzi co... ?

0

a mozesz mi chociaz powiedziec gdzie wpisac zeby 2 trojkat sie pojawil ??

0

Nie. Dla mnie EOT.

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0