Pour commencer, je vais vous redonner l'énoncer du précédent numéro et le corriger sous vos yeux ébahis.
Exercice : Le programme demande le nom de la personne, lui demande d'introduire deux nombres à soustraire et lui rend la réponse : "Nom_du_type, tu veux savoir le résultat de nb1 - nb2, eh ben c'est somme"
Les noms mis en italique sont des variables que nous avons déjà rencontré. Réponse maintenant...
PROGRAM Exercice1_correction;
VAR prenom : string; nombre1, nombre2 : integer;
BEGIN
WriteLn('Salut, c''est quoi donc qu''ton prénom ?');
ReadLn(prenom);
WriteLn('Entre un premier nombre à soustraire...');
ReadLn(nombre1);
WriteLn('..et un deuxième');
ReadLn(nombre2);
WriteLn(prenom,' tu veux savoir le résultat de ',nombre1,' - ',nombre2,', eh ben c''est ', nombre1-nombre2);
END.
C'était pas bien compliqué.
En turbo pascal, un peu comme en C, pour avoir un programme meilleur, on utilise des unités, qui ont des fonctions définies et que l'on peut programmer soi-même, mais avant d'en programmer d'autres, on va déjà utiliser celles qui nous sont fournies. Exemple :
PROGRAM Efface;
USES Crt;
BEGIN
ClrScr;
Write('Vous avez vu, l''écran s'est effacé !');
ReadLn;
END.
No comment - c'est compréhensible,
en parlant de commentaires, on peut en mettre en pascal de deux façons :
{ commentaire ici } et (* commentaire ici *), les plus employés sont les accolades {}
Donc, je reprend le programme précédent que je commente :
PROGRAM Efface; {identificateur nommant le programme}
USES Crt; { nom de l'unité utilisée, ici : Crt, utilisée pour les affichages }
BEGIN { début du programme }
ClrScr; {effacement de l'écran, équivalent de CLS sous dos}
Write('Vous avez vu, l''écran s''est effacé !'); { écrit la phrase, ne pas oublier de doubler
les apostrophes ' pour qu'il y en ait }
ReadLn; { attend que l'utilisateur appuye sur <ENTREE> }
END. {fin du programme}
On peut aussi utiliser Crt pour jouer un peu de musique, je vous donne d'abord les correspondances note/fréquence
double-croche 250
croche 500
noire(1 seconde) 1000
blanche 2000
ronde 4000
ronde-carrée 8000
Exemple, si vous devez jouer un sol pendant la durée d'une blanche (2 secondes), vous taperez le code suivant :
PROGRAM Sol;
USES Crt;
BEGIN
Sound(392);
Delay(2000);
NoSound;
END.
Maintenant vous pourrez faire jouer "Au clair de la lune" par votre speaker. :D
Bon bah voilà, à++
Exercice : Le programme demande le nom de la personne, lui demande d'introduire deux nombres à soustraire et lui rend la réponse : "Nom_du_type, tu veux savoir le résultat de nb1 - nb2, eh ben c'est somme"
Les noms mis en italique sont des variables que nous avons déjà rencontré. Réponse maintenant...
PROGRAM Exercice1_correction;
VAR prenom : string; nombre1, nombre2 : integer;
BEGIN
WriteLn('Salut, c''est quoi donc qu''ton prénom ?');
ReadLn(prenom);
WriteLn('Entre un premier nombre à soustraire...');
ReadLn(nombre1);
WriteLn('..et un deuxième');
ReadLn(nombre2);
WriteLn(prenom,' tu veux savoir le résultat de ',nombre1,' - ',nombre2,', eh ben c''est ', nombre1-nombre2);
END.
C'était pas bien compliqué.
En turbo pascal, un peu comme en C, pour avoir un programme meilleur, on utilise des unités, qui ont des fonctions définies et que l'on peut programmer soi-même, mais avant d'en programmer d'autres, on va déjà utiliser celles qui nous sont fournies. Exemple :
PROGRAM Efface;
USES Crt;
BEGIN
ClrScr;
Write('Vous avez vu, l''écran s'est effacé !');
ReadLn;
END.
No comment - c'est compréhensible,
en parlant de commentaires, on peut en mettre en pascal de deux façons :
{ commentaire ici } et (* commentaire ici *), les plus employés sont les accolades {}
Donc, je reprend le programme précédent que je commente :
PROGRAM Efface; {identificateur nommant le programme}
USES Crt; { nom de l'unité utilisée, ici : Crt, utilisée pour les affichages }
BEGIN { début du programme }
ClrScr; {effacement de l'écran, équivalent de CLS sous dos}
Write('Vous avez vu, l''écran s''est effacé !'); { écrit la phrase, ne pas oublier de doubler
les apostrophes ' pour qu'il y en ait }
ReadLn; { attend que l'utilisateur appuye sur <ENTREE> }
END. {fin du programme}
On peut aussi utiliser Crt pour jouer un peu de musique, je vous donne d'abord les correspondances note/fréquence
Aussi, vous allez programmer la durée de la note, voici les correspondances (durée note/millisecondes)
double-croche 250
croche 500
noire(1 seconde) 1000
blanche 2000
ronde 4000
ronde-carrée 8000
Exemple, si vous devez jouer un sol pendant la durée d'une blanche (2 secondes), vous taperez le code suivant :
PROGRAM Sol;
USES Crt;
BEGIN
Sound(392);
Delay(2000);
NoSound;
END.
Maintenant vous pourrez faire jouer "Au clair de la lune" par votre speaker. :D
Bon bah voilà, à++