Сделать так, чтобы на экране поочередно возникали и исчезали круг, прямоугольник и треугольник

@lcause · Регистрация: 18.11.2012

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста!
Столкнулся с задачей движения в Паскале и не знаю, что делать!
Вот задание: Сделать так, чтобы на экране поочередно возникали и исчезали круг, прямоугольник и треугольник.
Буду очень признателен вам

Kodzaev · 18.11.2012, 18:56

Так сойдет?

Pascal

Uses crt,graph;
Var
  d,r: Integer;
BEGIN
d:=Detect;
InitGraph(d,r,' ');
Repeat
  Circle(Getmaxx div 2,Getmaxy div 2,100);
  Delay(1000);
  ClearDevice;
  Rectangle(200,100,500,400);
  Delay(1000);
  ClearDevice;
  Line(100,400,300,100);
  Line(300,100,500,400);
  Line(500,400,100,400);
  Delay(1000);
  ClearDevice;
until Keypressed;
CloseGraph;
END.

@lcause 0 / 0 / 0 Регистрация: 18.11.2012 Сообщений: 6
		1
	Сделать так, чтобы на экране поочередно возникали и исчезали круг, прямоугольник и треугольник 18.11.2012, 18:24. Показов 1342. Ответов 1 Метки нет (Все метки) Помогите пожалуйста! Столкнулся с задачей движения в Паскале и не знаю, что делать! Вот задание: Сделать так, чтобы на экране поочередно возникали и исчезали круг, прямоугольник и треугольник. Буду очень признателен вам 0

	18.11.2012, 18:56

Сделать так, чтобы на экране поочередно возникали и исчезали круг, прямоугольник и треугольник

Решение