DjDeniels-61

Изобразить солнце с мерцающими лучами

Uses Graph,crt;

Var grDriver : Integer;
grMode : Integer;
ErrCode : Integer;

x,y,i:integer;

Begin
grDriver:=Detect;
InitGraph(grDriver, grMode, 'D:\');
ErrCode:=GraphResult;
x:=getmaxx div 2;
y:=getmaxy div 2;

If ErrCode = grOk Then
while not keypressed do
Begin
setfillstyle(1,14);
setcolor(14);
fillellipse(x,y,40,40);
for i:=1 to 300 do
begin
line(x,y,random(getmaxx),random(getmaxy));
end;
delay(10000);
cleardevice;
End
Else WriteLn( 'GraphErrorMsg(ErrCode)');
closegraph;
End.

Vladimir_S

Простите - помочь не могу, ибо что есть Паскаль ABC - не в курсе. То есть знаю, что есть такой, но живьем не видел. А так - программу погонял, всё работает.