hg S’enregistrer Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie

Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie  forum informatique Tunisie Index du Forum

hg 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, 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, ex2 p121
 
 
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie 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 710
Masculin
Point(s): 5 479
Moyenne de points: 0

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

PublicitéSupprimer les publicités ?
{Type : Astuces d'affichage}
{Ex 2 - page 121 : Faire tourner des étoiles sur les quatres bords de l'écran}

Program defilement_etoile;
Uses wincrt ;
Var
x,y : 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
repeat
for x:=1 to 80 do
begin
gotoxy(x,1);
write ('***');
delay(2000);
clrscr;
end;
for y:=1 to 23 do
begin
gotoxy(80,y);
writeln('*');
gotoxy(80,y+1);
writeln('*');
gotoxy(80,y+2);
writeln('*');
delay(10000);
clrscr;
end;
for x:=80 downto 1 do
begin
gotoxy(x,25);
write ('***');
delay(2000);
clrscr;
end;
for y:=25 downto 2 do
begin
gotoxy(1,y);
writeln('*');
gotoxy(1,y-1);
writeln('*');
gotoxy(1,y-2);
writeln('*');
delay(10000);
clrscr;
end;
until keypressed;
End.


 
Revenir en haut
safa2


Hors ligne

Inscrit le: 15 Jan 2009
Messages: 3
Féminin
Point(s): 13
Moyenne de points: 0

Posté le: Mer 21 Oct - 11:58 (2009)    Sujet du message: Ch 4 - Leçon 1, ex2 p121 Répondre en citant

MERCI

 
Revenir en haut
ikbelle


Hors ligne

Inscrit le: 14 Oct 2010
Messages: 15
Féminin
Point(s): 17
Moyenne de points: 0

Posté le: Lun 21 Mar - 07:05 (2011)    Sujet du message: Ch 4 - Leçon 1, ex2 p121 Répondre en citant

grannnnnnnnnnnnnnnnnnnnnnnnnnddddddddddddd merci à vous!!!!

 
Revenir en haut
KARIMOS
Administrateur

Hors ligne

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

Posté le: Mer 23 Mar - 10:35 (2011)    Sujet du message: Ch 4 - Leçon 1, ex2 p121 Répondre en citant

welcome ikbelle  Okay

 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 19:29 (2016)    Sujet du message: Ch 4 - Leçon 1, ex2 p121

 
Revenir en haut
Montrer les messages depuis:   
bg bd
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie 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