Ajutați la completarea programului pe Pascal
Salutări!
Ajutați la terminarea programului în pascal.
Iată sarcina: Scrieți un program care generează o imagine a unui obiect în mișcare pe ecran. Obiectul trebuie să se deplaseze în funcție de direcția indicată în figura (înainte în direcția săgeții).
La atingerea fiecărui vârf al traiectoriei, obiectul trebuie să facă o mișcare netedă în sensul de mișcare de-a lungul secțiunii următoare a traiectoriei. Punctul de rotație al obiectului este selectat în centrul său geometric.
Am tras o figură, am făcut o traiectorie. Cifra merge de-a lungul traiectoriei. Dar nu știu cum să mă întorc. Ajută-te.
Iată programul meu:
dacă cineva are un program cu aproape aceleași condiții, trimiteți-l.
Am compus pentru tine un fel de joc auxiliar. În primul rând, extraterestrul dvs. este situat în centrul ecranului (640x480). Apăsând tasta "R" (în orice caz, dar cu aspectul latin ("En")) îl forțează să se rotească, tastele "M" se mișcă spre locul unde arată "capul". Apăsând orice altă tastă de caractere întrerupeți programul. Se pot ține tastele "M" și "R". Apăsarea simultană a acestora NU ESTE STRĂINĂ.
În plus, mi se pare că am un șir de puncte și construirea unei figuri mai compactă și mai rațională.
Și există tot felul de traiectorii, săgeți etc. - sunteți voi, vă rog, voi.
Și încă un lucru este IMPORTANT! Am un ecran DOS pe care desenul devine alb pe negru. Dacă ecranul dvs. este alb și liniile sunt negre, atunci culorile din comenzile SetColor din procedură trebuie schimbate.
Eu de obicei nu folosesc Graphresult. Vrei - adaugă, nu există probleme.
__________________
Cu Mozilla Firefox - direct la comunism!