myig
BANNED | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
помогите пожалуйста разобраться...
вбиваю программку с графикой в Windows - все работает, то же самое на другом компьютере в DOS - при запуске экран моргает и опять возвращается на код
код: (powered by SERGE_BLIZNUK & немного я  )
Program zadanie;
Uses graph;
const
Triangle: array[1..3] of PointType = ((X: 320; Y: 135),
(X: 395; Y: 315), (X: 245; Y: 315));
BigRectangle: array[1..4] of PointType = ((X: 110; Y: 70),
(X: 110; Y: 410), (X: 510; Y: 410), (X: 510; Y: 70));
SmallRectangle: array[1..4] of PointType = ((X: 300; Y: 220),
(X: 300; Y: 260), (X: 340; Y: 260), (X: 340; Y: 220));
Var gd,gm:integer;
x,y:real;
begin
gd:=detect;
InitGraph(gd,gm,'..\BGI\');
SetColor(Blue);
SetFillStyle(BkSlashFill, blue);
FillPoly(SizeOf(BigRectangle) div SizeOf(PointType), BigRectangle);
SetFillStyle(HatchFill, green);
SetColor(green);
PieSlice(320, 240, 0, 360, 150);
SetColor(red);
SetFillStyle(xhatchFill, Red);
FillPoly(SizeOf(Triangle) div SizeOf(PointType), Triangle);
SetColor(Yellow);
SetFillStyle(SolidFill, Yellow);
FillPoly(SizeOf(SmallRectangle) div SizeOf(PointType), SmallRectangle);
SetTextStyle(TriplexFont, HorizDir, 4);
SetTextJustify(CenterText, TopText);
OutTextXY(400, 440 , 'IZ11!');
readln;
CloseGraph;
End. |
