hg S’enregistrer Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet

Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Index du Forum

hg Revision tunisie scolaire Bac Tunisie Algorithmique et programmation TIC réseaux php javascript sql access activités programmation c
hg
FAQ FAQ Rechercher Rechercher Membres Membres Groupes Groupes Profil Profil Se connecter pour vérifier ses messages privés Messages Privés Connexion Connexion


 Forum de l'excellence et l'excellence en innovation 
Pour participer à notre Forum révision tunisie , vous devez
 inscrire sur notre forum a partir d'ici
   NB :
Les membres ''zéro messages'' seront supprimés automatiquement après un nombre de jours donné !!!!
             
   
 
  
 
forum d'aide informatique : internet, réseau, programmation informatique ...
Ch 4 - Leçon 1, ex1 p121
 
 
Poster un nouveau sujet   Répondre au sujet    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Index du Forum -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯)
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
KARIMOS
Administrateur

Hors ligne

Inscrit le: 02 Nov 2008
Messages: 1 715
Masculin
Point(s): 5 484
Moyenne de points: 0

Posté le: Sam 29 Nov - 13:41 (2008)    Sujet du message: Ch 4 - Leçon 1, ex1 p121 Répondre en citant

{Type : Astuces d'affichage}
{Ex1 - page 121 : Faire défiler votre Nom et prénom de droite à gauche sur la
la ligne du milieu de la fenêtre d'exécution}

Program defilement_nom;
Uses wincrt ;
var
x : byte;
t : word;

procedure delay(t:word);
var
j,z,e:integer;
begin
for j:=1 to t do
for z:=1 to 1000 do
e:=0;
end;

begin
for x:=80 downto 1 do
begin
gotoxy(x,10);
write ('**Nom Prénom**');
delay(9000);
clrscr;
end;
End.

{Commentaires :

#TPW ne dispose pas de focntion pour ralentir (temporiser) l'exécution d'instruction. Pour cela j'ai créer dans cet exercice une procédure
delay(t), qui permet de ralentir l'exécution. le paramètre t sert à préciser le temps d'attente.
le principe de cette procédure est simple : deux boucle "pour" imbriquée faisant t * 1000 tours.

# La procédure clrscr est un module prédéfine dans TPW, dont le rôle est d'effacer le contenu de la fenêtre d'exécution.
}


 
Revenir en haut
Publicité






Posté le: Sam 29 Nov - 13:41 (2008)    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
 
Revenir en haut
aymen_tn


Hors ligne

Inscrit le: 10 Sep 2009
Messages: 10
Masculin
Point(s): 120
Moyenne de points: 0

Posté le: Ven 11 Sep - 15:49 (2009)    Sujet du message: Ch 4 - Leçon 1, ex1 p121 Répondre en citant

tunis :ahlan:

 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 04:53 (2017)    Sujet du message: Ch 4 - Leçon 1, ex1 p121

 
Revenir en haut
Montrer les messages depuis:   
bg bd
Poster un nouveau sujet   Répondre au sujet    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Index du Forum -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯) Toutes les heures sont au format GMT + 1 Heure
 
Page 1 sur 1

 
Sauter vers:  
Index | créer forum gratuit | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation