Движение ромба по диагонали: из правого верхнего угла – в левый нижний

@PIONEER1993 · Регистрация: 14.11.2011

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

Написать программу, которая демонстрирует движение ромба по диагонали: из правого верхнего угла – в левый нижний.

Помогите пожалуйста

BuPy7 · 20.12.2011, 19:40

Pascal

uses graph,crt;
var device,mode,x,y:integer;
    p:pointer;
    size:word;
 
begin
  device:=0;
  initgraph(device,mode,'d:\program\tp\bgi');
  line(615,1,595,40);
  line(595,40,615,80);
  line(615,80,635,40);
  line(635,40,615,1);
    size:=imagesize(590,0,636,81);
    getmem(p,size);
    getimage(590,0,636,81,p^);
      x:=590;
      repeat
      putimage(x,y,p^,0);
      delay(300);
      putimage(x,y,p^,0);
      x:=x-1; y:=y+1;
      until y>480;
      closegraph;
end.

@PIONEER1993 · 21.12.2011, 12:41 **[ТС]**

Спасибо большое , выручили

@PIONEER1993 0 / 0 / 0 Регистрация: 14.11.2011 Сообщений: 35
		1
	Движение ромба по диагонали: из правого верхнего угла – в левый нижний 20.12.2011, 17:16. Показов 2717. Ответов 2 Метки нет (Все метки) Написать программу, которая демонстрирует движение ромба по диагонали: из правого верхнего угла – в левый нижний. Помогите пожалуйста 0

@PIONEER1993 0 / 0 / 0 Регистрация: 14.11.2011 Сообщений: 35
	21.12.2011, 12:41 [ТС]	3
	Спасибо большое , выручили 0

Опции темы

Движение ромба по диагонали: из правого верхнего угла – в левый нижний

Решение