Новичок
Регистрация: 27.05.2012
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цитата:
Сообщение от Vladimir_S
А как ругается? Что пишет?
|
Ну в общем вот:
Цитата:
Uses CRT, Graph;
var gd,gm:integer;
Begin
gd:=detect;
InitGraph(gd,gm,'');
SetLineStyle(SolidLn,0,ThickWidth);
SetFillStyle(SolidFill,GetColor);
FillEllipse((GetMaxX div 2),Round(0.4*GetMaxY),
Round(0.1*GetMaxX),Round(0.2*GetMaxY));
SetFillStyle(SolidFill,GetBkColor);
FillEllipse((GetMaxX div 2),Round(0.6*GetMaxY),
Round(0.2*GetMaxX),Round(0.3*GetMaxY));
Line((GetMaxX div 2),Round(0.9*GetMaxY),
(GetMaxX div 2),Round(0.3*GetMaxY));
SetFillStyle(SolidFill,GetColor);
FillEllipse((GetMaxX div 2)-Round(GetMaxX*0.12),Round(0.75*GetMaxY),
Round(0.02*GetMaxX),Round(0.04*GetMaxY));
FillEllipse((GetMaxX div 2)+Round(GetMaxX*0.12),Round(0.75*GetMaxY),
Round(0.02*GetMaxX),Round(0.04*GetMaxY));
FillEllipse((GetMaxX div 2)-Round(GetMaxX*0.12),Round(0.45*GetMaxY),
Round(0.02*GetMaxX),Round(0.04*GetMaxY));
FillEllipse((GetMaxX div 2)+Round(GetMaxX*0.12),Round(0.45*GetMaxY),
Round(0.02*GetMaxX),Round(0.04*GetMaxY));
FillEllipse((GetMaxX div 2)-Round(GetMaxX*0.04),Round(0.38*GetMaxY),
Round(0.02*GetMaxX),Round(0.04*GetMaxY));
FillEllipse((GetMaxX div 2)+Round(GetMaxX*0.04),Round(0.38*GetMaxY),
Round(0.02*GetMaxX),Round(0.04*GetMaxY));
FillEllipse((GetMaxX div 2)-Round(GetMaxX*0.04),Round(0.82*GetMaxY),
Round(0.02*GetMaxX),Round(0.04*GetMaxY));
FillEllipse((GetMaxX div 2)+Round(GetMaxX*0.04),Round(0.82*GetMaxY),
Round(0.02*GetMaxX),Round(0.04*GetMaxY));
FillEllipse((GetMaxX div 2)-Round(GetMaxX*0.04),Round(0.6*GetMaxY),
Round(0.02*GetMaxX),Round(0.04*GetMaxY));
FillEllipse((GetMaxX div 2)+Round(GetMaxX*0.04),Round(0.6*GetMaxY),
Round(0.02*GetMaxX),Round(0.04*GetMaxY));
FillEllipse((GetMaxX div 2)-Round(GetMaxX*0.16),Round(0.6*GetMaxY),
Round(0.02*GetMaxX),Round(0.04*GetMaxY));
FillEllipse((GetMaxX div 2)+Round(GetMaxX*0.16),Round(0.6*GetMaxY),
Round(0.02*GetMaxX),Round(0.04*GetMaxY));
Line((GetMaxX div 2)-Round(GetMaxX*0.02),Round(0.3*GetMaxY),
(GetMaxX div 2)-Round(GetMaxX*0.02),Round(0.15*GetMaxY));
Line((GetMaxX div 2)+Round(GetMaxX*0.02),Round(0.3*GetMaxY),
(GetMaxX div 2)+Round(GetMaxX*0.02),Round(0.15*GetMaxY));
Bar((GetMaxX div 2)-Round(GetMaxX*0.02),Round(0.15*GetMaxY),
(GetMaxX div 2)-Round(GetMaxX*0.04),Round(0.17*GetMaxY));
Bar((GetMaxX div 2)+Round(GetMaxX*0.02),Round(0.15*GetMaxY),
(GetMaxX div 2)+Round(GetMaxX*0.04),Round(0.17*GetMaxY));
ReadKey;
CloseGraph;
End.
|
А пишет вот что:
Цитата:
lab8.pas(10,35) Error: Incompatible type for arg no. 2: Got "<procedure variable type of function:Word;Register>", expected "Word"
lab8.pas(51) Fatal: There were 1 errors compiling module, stopping
lab8.pas(0) Fatal: Compilation aborted
|
|