Юлия Косачева
Юлия Косачева

Помогите!Turbo Pascal

Нужно чтобы мяч возвратился обратно в начальные координаты.Помогите!

Program myach;
uses crt,graphabc;
var x:integer;
begin
x:=1;
for x:=190 to 465 do
begin
clrscr;
circle(150,150,15);
line(150,165,150,250);
line(150,250,130,270);
line(150,250,170,270);
line(150,180,180,175);
line(150,180,180,180);
circle(500,150,15);
line(500,165,500,250);
line(500,250,480,270);
line(500,250,520,270);
line(500,180,470,175);
line(500,180,470,180);
circle(x,170,10);
Delay(5);
end;
end.

Павел ____________
Павел ____________

Ты чё с 5го или какого там раза не можешь написать обратный цикл? Это просто невероятно.

ЕВ
Елена Войнова

for x:=465 downtoto 190 do

АК
Алексей Карпов

мячик должен двигаться? если да то все совсем не так - так у вас будетстатичная картинка с тремя шариками. В цикле надо перемещатся по координатам и рисовать окружность цветом, потом цветом беграунда

АШ
Александра Шаповалова

Тем паче, что это не Turbo Pascal, а PascalABC...

Похожие вопросы
Помогите в Turbo Pascal!
Задача в Turbo pascal!! Помогите
Вопрос по TURBO pascal.
Turbo Pascal СРОЧНО!!!
помогите напимать на turbo pascal
Помогите! Turbo Pascal.
Помогите, пожалуйста, с Turbo Pascal !!!
TURBO PASCAL помогите !!!
Помогите решить в Turbo Pascal
помогите перевести программу с Turbo Pascal на Turbo C+