СодержаниеЦель работы состоит в том, чтобы изобразить движение двух автомобилей на встречу друг другу, на фоне дороги и домов.
Анимация выполнена, путем по кадровой прорисовки каждого положения автомобилей, выполнение задержки, стирание кадра, и прорисовки нового и т.д.Введениеprogram animation;
uses crt,graph;
var x,y,z,ax,ay,bx,by,step,gd,gm : integer;
begin
{inicializacia grafiki,drivera}
gd:=detect;
initGraph(gd,gm,'C:\BP\BGI\'); {pascal doljen bit' ustanovlen v C:\BP\}
{Doroga}
line (0,200,640,200);
line (0,300,640,300);
... И так далееЛитератураПоляков Д.Б., Круглов И.Ю. Программирование в среде Турбо Паскаль 7. - М:., МАИ, 1992. - 576 с.'
|
