Oh, tak si zase malujeme. Tentokrát opravdu vážně. 😉
uses Graph, Crt; var grDriver: Integer; grMode: Integer; ErrCode: Integer; begin grDriver := Detect; InitGraph(grDriver, grMode,' '); ErrCode := GraphResult; if ErrCode = grOk then begin { domecek jednim tahem} MoveTo (round (GetMaxX/2), round (GetMaxY/2)); LineTo (round (GetMaxX/2)+100, round (GetMaxY/2)); LineTo (round (GetMaxX/2)+100, round (GetMaxY/2)-100); LineTo (round (GetMaxX/2)+50, round (GetMaxY/2)-100-50); LineTo (round (GetMaxX/2), round (GetMaxY/2)-100); LineTo (round (GetMaxX/2)+100, round (GetMaxY/2)-100); LineTo (round (GetMaxX/2), round (GetMaxY/2)); LineTo (round (GetMaxX/2), round (GetMaxY/2)-100); LineTo (round (GetMaxX/2)+100, round (GetMaxY/2)); Readln; CloseGraph; end else Writeln('Graphics error:', GraphErrorMsg(ErrCode)); repeat until KeyPressed; end.