Построить модель солнце-земля-луна

@dmitry-13 · Регистрация: 30.05.2012

Ребят, никак не получается последняя лаба

Pascal

program qq;
const rSun = 60;
      L  = 150;
      x0 = 200;
      y0 = 200;
var x, y,
    k, code, i: integer;
    a, ha: real;
    stop: boolean;
 
 
begin
  Brush(1, 0, 0, 0);  Fill(1,1);
  Brush(1, 255, 255, 0);
  Ellipse(x0-rSun, y0-rSun, x0+rSun, y0+rSun);
  a := 0; ha := 1*pi/180;
  stop := false;
  Pen(0,0,0,0)
  repeat
    x := round(x0 + L*cos(a));
    y := round(y0 - L*sin(a));
    Draw(x, y, True);
    Delay(100);
    Draw(x, y, False);
 
 
 
 
    a := a + ha;
  until stop;
 
 
end.

@земное ядро · 20.02.2013, 19:55

А ты писал на Pascal ABC или .NET?? или где

@dmitry-13 · 20.02.2013, 21:33 **[ТС]**

мне в АВС нужно сделать

Добавлено через 4 минуты
Я вообще не знаю как сделать ее...может какие нибудь наброски или хоть что нибудь сделайте, прошу вас

@земное ядро 3 / 3 / 6 Регистрация: 30.01.2013 Сообщений: 37
	20.02.2013, 19:55	2
	А ты писал на Pascal ABC или .NET?? или где 0

@dmitry-13 0 / 0 / 0 Регистрация: 30.05.2012 Сообщений: 14
	20.02.2013, 21:33 [ТС]	3
	мне в АВС нужно сделать Добавлено через 4 минуты Я вообще не знаю как сделать ее...может какие нибудь наброски или хоть что нибудь сделайте, прошу вас 0

Опции темы