Лучший ответ
-
0 0
immortal 5 (4029)1628 11 лет
Где ошибка?
Program grafika;
Uses graph;
Var a,b,k,x,y:integer;
Begin
a:=detect;
Initgraph (a,b,'c\TP\Bgi');
if graphresult <> grok then begin
writeln ('kluda nevar pariet graf rezima');
Readln;
end;
ClearDevice;
Randomize;
SetBkColor(2);
For k:=1 to 30 do
Begin
x:=random (getmaxX);
y:=random (getmaxY);
Setcolor (3);
circle (x,y,25);
SetfillStyle (5,10);
FloodFill (x,y,2);
end;
Setcolor (4);
outtextXY (275,250,'aplisi');
readln;
closegraph;
end.
Ответы
-
2 0
Notebook_service 8 (167661)1135270 11 лет
Помощь ? Мне нужна !
интим не затрагиватьА, тогда ничего... -
-
0 0
DAS (38) 5 (3471)2932 11 лет
А у тебя только сегодня такое настроение ? Просто мне помощь то нужна, но за день не справиться...