uses graphabc;
var
  y, y0, r, x: integer;
  a: real;
 
begin
  //w:=windowwidth div 2;
  y0 := 180;
  y := y0;
  x := 360;
  r := 20;
  lockdrawing;
  repeat
 
    
 
while (y < windowheight - 20) and (x < windowwidth - 40) do 
    begin
      setbrushcolor(clred);
      clearwindow;
      y := y + 6;
      circle(x, y, r);
      sleep(10);
      redraw;
    end;
 
while (y > y0) do 
    begin
      setbrushcolor(clblue);
      clearwindow;
      y := y - 6;
      circle(x, y, r);
      sleep(10);
      redraw;
    end;
    
    y0 := y0 + 15;
  until y0 > windowheight - 20;
end.

Добавлено через 8 минут
Можно закрыть, разобрался...

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

05.06.2018, 20:26

Ответы с готовыми решениями:

Движение шара по кругу
При реализации вращения шарика по кругу столкнулся со следующей проблемой:есть процедура move,...

Скатывание шара со ступеньки
Составить программу,которая демонстрирует скатывание шара со ступеньки.помогите!

Свободное падение цветного шара
Помогите пожалуйста, написать программу, реализующую свободное падение цветного шара по вертикали....

Динамика движение шара по полуокружности
Помогите пожалуйста,нужно написать программу,чтобы шарик двигался по нижней части полуокружности

	05.06.2018, 20:26

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

05.06.2018, 20:26

Помогаю со студенческими работами здесь

Как оптимизировать полет шара?
вот весь код чем ближе к начальным координатам тем медленней летит шар чем дальше тем быстрее как...

Рисование свободного падения шара
Доброго времени суток! Написал программу, которая расчитывает и рисует свободное падение шарика....

Найти объём шара и площадь полной поверхности шара
Дан радиус шара. Найти объём шара и площадь полной поверхности шара. решите пожалуйста без всяких...

Движение шара по диагонали
Здравствуйте. Есть программа движения шара по диагонали, но не совсем правильно движется. Не ровно...

Движение воздушного шара
доброго времени суток прошу о помощи, нужно написать две программы на языке паскаль 1. Движение...

Демонстрация движения шара
Разработать программу, которая демонстрирует на экране движе- ние шара по функции f(x) = cos (2x^2...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх