|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
22.12.2016, 18:51 | #1 |
Регистрация: 22.12.2016
Сообщений: 9
|
Корректировка кода
Привет, у меня есть готовый код но выглядит очень страшно и не понятно)
помогите в нем поставить все на свои места что-бы нормально смотрелось, буду очень благодарен. Код HTML:
Uses Graph, Crt;
Const
RadOrb = 250; RadSun = 70;
RadGal = 100; RadZem = 18;
Naklon = 0.2;
PressZem = 0.65;
Compress = 0.8;
Var
LunX, LunY, UgMer, PixelY, DUgLuna , UpDown,
XRad, Grad, UgZem, PixelX, StAngle, Ua, Ub,
ParallelY , Color, LunPix, EndAngle,
VisualPage, GrMode, GrError, GrDriver, i : Integer;
Ugol, CompressLuna, Expansion,
DUgol, Projection, PolUgol : Real;
chrMM:char;
Begin
GrDriver := EGA; GrMode := EGAHi;
InitGraph(GrDriver, GrMode, 'C:\TP\BGI');
GrError := GraphResult; If GrError<>GrOk then Halt;
SetBkColor(0);
SetFillStyle(1, 2);
Ugol := 0; DUgol :=1*Pi/180;
UgZem := 0; DUgLuna := 14;
VisualPage := 1;
Repeat
SetVisualPage(1- (VisualPage mod 2));
VisualPage := VisualPage+1;
SetActivePage(1 - (VisualPage mod 2));
cleardevice;
PieSlice(310, 160, 0, 360, RadSun);
Ugol := Ugol+DUgol ;
Grad := Round(180*Ugol/Pi) mod 360;
LunX := 320+Round(RadOrb*cos((Ugol+Pi/2+0.3)));
LunY:=160+Round(RadOrb*Naklon*sin(Ugol));
CompressLuna := 2.5-cos(Ugol+0.3);
LunPix := Round(RadZem*CompressLuna);
UgZem := UgZem+DUgLuna;
For i := 0 to 11 do
begin
UgMer := (UgZem+i*30) mod 360;
If (90<UgMer) and (UgMer<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;
Color := LightBlue;
If Ua<=Ub then if (Ua<UgMer) and (UgMer<Ub) then Color := White;
If Ua >Ub then if (Ua<UgMer) or (UgMer<Ub) then Color := White;
SetColor(color);
XRad := round((LunPix*cos(UgMer*Pi/180)));
Ellipse(LunX,LunY,StAngle,EndAngle,abs(XRad),round(PressZem*LunPix));
end;
For i := 2 to 7 do
begin
XRad := abs(Round(LunPix*sin(i*Pi/9)));
UpDown := Round(LunPix*PressZem*cos(i*Pi/9));
ParallelY := LunY+UpDown;
SetColor(LightBlue);
Ellipse(LunX, ParallelY, 0, 360, XRad, Round(Naklon*XRad));
setcolor(15);
Ellipse(LunX,ParallelY,Grad+220,Grad+400,XRad,Round(Naklon*XRad));
end;
If CompressLuna<2 then PieSlice(310, 160, 0, 360, RadSun);
RandSeed := VisualPage mod 12;
until keypressed;
end.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Очень нужна корректировка кода | MrOw | Помощь студентам | 0 | 15.12.2015 21:22 |
Корректировка кода | Danteeee | Помощь студентам | 0 | 06.04.2015 16:34 |
Корректировка кода для конвертера | Владилена | Помощь студентам | 0 | 18.12.2011 00:17 |
Корректировка кода | Benjus | Общие вопросы C/C++ | 0 | 08.12.2011 01:07 |
С++ нужна корректировка\доработка кода. | Akmall | Помощь студентам | 1 | 19.12.2010 16:34 |