Робота з модулем DOS: Метод. рекомендації/Упоряд. О.А. Жульковскій.- Дніпродзержинськ: ДДТУ, 1996. - 17с.
Додатки
Код програми
Program Space; Crt, Graph;=250; RadSun=70;=100; RadZem=18;=0.2;=0.65;=0.8 ;, ZemY, UgMer, PixelY, DUgZem, UpDown ,, Grad, UgZem, PixelX, StAngle, Ua, Ub ,, Color, ZemPix, EndAngle ,, GrMode, GrError, GrDriver , i: Integer ;, CompressZem, Expansion ,, Projection, PolUgol: Real;:=EGA; GrMode:=EGAHi; (GrDriver, GrMode, C: TP BGI );:=GraphResult; If GrError lt; gt; GrOk then Halt; (Black); (1, Yellow);
Ugol:=0; DUgol:=2 * Pi/180;
UgZem:=0; DUgZem:=14;
VisualPage:=1;
SetVisualPage (1- (VisualPage mod 2));:=VisualPage + 1; (1 - (VisualPage mod 2)) ;;:=1;:=VisualPage/100;
For i:=1 to VisualPage doXRad:=Trunc (Expansion * RadGal * Random);:=2 * Pi * Random-VisualPage/30;:=370 + Trunc (XRad * cos (PolUgol +1.8));
PixelY:=250 + Trunc (XRad * 0.5 * sin (PolUgol));
PutPixel (PixelX, PixelY, White)
end ;;
For i:=1 to 70 do (Random (640), Random (350), White);
For i:=1 to 100 do
PutPixel (320 + Round (RadOrb * cos ((i + VisualPage/5) * Pi/50 + 0.3)),
+ Round (RadOrb * Naklon * sin ((i + VisualPage/5) * Pi/50-Pi/2)), 15); (310, 160, 0, 360, RadSun);
Ugol:=Ugol + DUgol;
Grad:=Round (180 * Ugol/Pi) mod 360;
ZemX:=320 + Round (RadOrb * cos ((Ugol + Pi/2 + 0.3)));
ZemY:=160 + Round (RadOrb * Naklon * sin (Ugol));
CompressZem:=2.5-cos (Ugol + 0.3);:=Round (RadZem * CompressZem);
UgZem:=UgZem + DUgZem;
For i:=0 to 11 do
begin:=(UgZem + i * 30) mod 360; (90 lt; UgMer) and (UgMer lt; 270)
then begin StAngle:=90; EndAngle:=270 end
else begin StAngle:=270; EndAngle:=90 end;
Ua:=(Grad + 220) mod 360; Ub:=(Grad + 400) mod 360;:=LightBlue; Ua lt;=Ub then if (Ua lt; UgMer) and (UgMer lt; Ub) then Color:=White; Ua gt; Ub then if (Ua lt; UgMer) or (UgMer lt; Ub) then Color:=White; (Color);:=round ((ZemPix * cos (UgMer * Pi/180)));
Ellipse (ZemX, ZemY, StAngle, EndAngle, abs (XRad), round (PressZem * ZemPix)) ;; i:=2 to 7 do
begin:=abs (Round (ZemPix * sin (i * Pi/9)));:=Round (ZemPix * PressZem * cos (i * Pi/9));:=ZemY + UpDown;
SetColor (LightBlue); (ZemX, ParallelY, 0, 360, XRad, Round(Naklon*XRad));(White);(ZemX,ParallelY,Grad+220,Grad+400,XRad,Round(Naklon*XRad));;CompressZemlt;2 then PieSlice (310, 160, 0, 360, RadSun);:=VisualPage mod 12; i:=1 to 250 do
begin:=(1-sqr (Random)) * Pi/2;:=RadSun + Round ((20) * sin (Projection)) - 15;:=2 * Pi * Random + VisualPage/20;:=310 + Round (XRad * cos (PolUgol));:=160 + Round (Compress * XRad * sin (PolUgol)); (PixelX, PixelY, LightRed); KeyPressed.
