Free paskalis, Grafikos judesio programos kūrimas

Balandžio 25, 2012

Sveiki. Gal turit tokio tipo programos pavyzdžių? Norėčiau pasianalizuoti.

Balandžio 25, 2012

begin

InitGraph (gd, gm, ' ');

xe := 800; //reklaminis užrašas

ye := 650;

sr := 5;

kr := 2;

d :=5;

sp :=10;

SetColor (sp);

SetTextStyle (sr, kr, d);

OutTextXY (xe, ye, 'Judesy');

Readln;

dx := GetMaxX; dy := getMaxY; //ekrano plotis ir aukstis

Kaip padaryti, jog šis užrašas judėtų?

Rekomenduojami pranešimai