• создать анимацию строения атома в турбо паскале

Ответы 1

  • Program P1;usesGraph,Crt;vard,m,i,k : integer;x,y,x0,y0,r : integer;a,b : real;begin

    d := detect;

    InitGraph(d,m,'');

    x0 := 640 div 2;y0 := 480 div 2;

    i := 1;

    r := 100;

    a := 0;b := 1;

    x := x0;y := y0;

    repeat

    Delay(100);

    a := a + 0.1;b := b - 0.1;

    ClearDevice;

    Circle(x0,y0,r);

    x := round(x0 + (r+20)*cos(a));y := round(y0 + (r+20)*sin(a));

    putpixel(x,y,65535);

    x := round(x0 + (r+40)*cos(b));y := round(y0 + (r+40)*sin(b));

    putpixel(x,y,65535);

    untilKeyPressed = true;

    CloseGraph;

    end.

  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years