|
Le langage de programmation Pascal est souvent utilisé comme langue d'introduction de l'enseignement de programmation informatique aux étudiants. Il existe plusieurs versions de celui-ci , mais les plus courantes sont Turbo Pascal de Borland et Free Pascal . Ce tutoriel a été écrit en utilisant Free Pascal , mais toutes les versions de Pascal partagent les mêmes caractéristiques , de sorte que le code doit transférer sans modification entre les différentes versions . Pascal est un langage de programmation structuré impératif . Les fonctions d'animation sont fournis par la bibliothèque de fonction " Graph" qui vient avec la langue. Il est décrit en détail dans le chapitre 18 du Guide de la bibliothèque de référence Run - Time liée à la première référence . Instructions
1 Créer un fichier suivant dans votre éditeur de texte favori . N'importe quel éditeur de texte simple fera l'affaire, y compris Windows Notepad , mais vous préférerez peut-être utiliser un éditeur Pascal dédié comme le programme libre Lazare.
2 coller les données d'en-tête suivant dans l'éditeur de texte pour initialiser les variables qui sera utilisé dans le tutoriel d'animation :
Programme Pascal_Animation_Tutorial ;
utilise Crt, Graphique ,
Var VideoDriver , gMode : Integer;
Var x , y, w, h: Integer;
boucle Var : Boolean ;
couleur Var: Integer;
importations fois le CRT ( pour faire face à la console) et graphiques bibliothèques. Puis il déclare les variables pour le pilote graphique , le mode graphique , la position et la hauteur d'un élément graphique avec sa couleur, et un booléen pour contrôler la boucle d'animation.
3 Collez le suivant code immédiatement après le dernier code pour initialiser les valeurs des variables :
VideoDriver : = DetectGraph ;
InitGraph ( VideoDriver , gMode ,'') ;
x: = 40;
y: = 40;
w: = 10;
h: = 10;
couleur : rouge = ;
boucle de : = True;
le pilote vidéo fournit l'interface à l'écran et gMode détient la résolution et la profondeur des couleurs. X , Y , W et H tiendront les coordonnées X et Y à l'écran pour attirer l' animation , ainsi que sa largeur et sa hauteur . Couleur tiendra la couleur actuelle (dans ce cas , rouge) .
4 Collez le code suivant pour créer la boucle principale , qui va dessiner une ellipse , déplacez-le un peu, et effacer l'écran pour tirer à nouveau. Quand cela est fait à plusieurs reprises , il va produire une animation d'une balle se déplaçant à travers l'écran. Il vérifiera également à l'utilisateur de quitter en appuyant sur la touche " Q "
while ( boucle )
commencer
ClrScr ; .
SetColor ( couleur);
FillEllipse ( x , y, w, h);
x: = x + 1;
y: = y + 1;
< p> if ( ReadKey == ' Q' ) puis boucle : = false;
fin
|
