Реферат Редагування та налагодження програм за допомогою Pascal

c + (y2-yc) * cos (t) + (x2-xc) * sin (t) * xa/ya);

setcolor (15); p> line (xc, yc, xln, yln); line (xln, yln, x2n, y2n);

line (X2n, y2n, xc, yc); delay (20);

setcolor (0);

line (xc, yc, xln, yln); line (xln, yln, x2n, y2n);

Iine (x2n, y2n, xc, yc); delay (20);

end; while not keypressed do;

closegraph

end. br/>

Заданіе15. Зобразити рух кулі (точніше кола) по горизонталі

program приклад;

{рух кулі по горизонталі}

uses qraph, crt;

var gd, gm, i: integer; p: pointer; s: word; p> begin;

gd: = 0; gm: = 0; initgraph (gd, gm, '');

{малюємо куля}

for i: = l to 10 do circle (20, 30, i);

{виділяємо пам'ять}

s: = imagesize (9, 20,30, 40); getmem (p, s);

{запам'ятовуємо малюнок}

getimage (9, 20, 30, 40, p ^); cleardevice;

{зображаємо політ кулі}

for i: = l to 600 do

begin putimage (10 + i, 100, p ^, 0); delay (10); end;

while not keypressed do;

end.