Изобразить модель системы Солнце-Земля-Луна

@ДимКо · Регистрация: 26.10.2012

Изобразить модель системы Солнце-Земля-Луна:

Необходим код программы. Заранее спасибо!)

Добавлено через 1 минуту
движение луны вокруг солнца не сложно нарисовать, а вот с землей не выходит

@Puporev · 31.03.2013, 18:16

Pascal

uses crt,graphABC;
procedure planety(r,x,y,c:integer);
begin
setpencolor(c);
setbrushcolor(c);
circle(x,y,r);
end;
var xc,yc,rs,rz,rl,r1,r2,x1,y1,x2,y2:integer;
    u1,u2:real;
begin
xc:=windowwidth div 2;
yc:=windowheight div 2;
rs:=90;
rz:=15;
rl:=3;
r1:=170;
r2:=25;
u1:=0;
u2:=0;
hidecursor;
clearwindow(clBlack);
lockdrawing;
repeat
clearwindow(clBlack);
setbrushstyle(bsClear);
setfontcolor(clWhite);
textout(80,10,'Выход любая клавиша');
planety(rs,xc,yc,clYellow);
u1:=u1-0.02;
u2:=u2+0.1;
x1:=xc+round(r1*cos(u1));
y1:=yc-round(r1*sin(u1));
x2:=x1+round(r2*cos(u2));
y2:=y1-round(r2*sin(u2));
planety(rz,x1,y1,clBlue);
planety(rl,x2,y2,clSilver);
delay(100);
redraw
until keypressed
end.

@ДимКо · 31.03.2013, 18:19 **[ТС]**

Большое спасибо!!))

@domestozzz · 10.06.2021, 15:04

Строка 4 : Нельзя преобразовать тип integer к System.Drawing.Color

@Puporev · 10.06.2021, 15:24

Программа напмсана для простого АВС, в АВС.net нужно

Pascal

1	procedure planety(r,x,y:integer;c:Color);

@ДимКо 4 / 4 / 2 Регистрация: 26.10.2012 Сообщений: 155
		1
	Изобразить модель системы Солнце-Земля-Луна 31.03.2013, 17:53. Показов 5297. Ответов 4 Метки нет (Все метки) Изобразить модель системы Солнце-Земля-Луна: Необходим код программы. Заранее спасибо!) Добавлено через 1 минуту движение луны вокруг солнца не сложно нарисовать, а вот с землей не выходит __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@ДимКо 4 / 4 / 2 Регистрация: 26.10.2012 Сообщений: 155
	31.03.2013, 18:19 [ТС]	3
	Большое спасибо!!)) 0

@domestozzz 2 / 2 / 0 Регистрация: 14.10.2020 Сообщений: 135
	10.06.2021, 15:04	4
	Строка 4 : Нельзя преобразовать тип integer к System.Drawing.Color 0

Опции темы

Изобразить модель системы Солнце-Земля-Луна

Решение