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 ...
solution d'exercice
 
 
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: Mar 1 Déc - 18:13 (2009)    Sujet du message: solution d'exercice Répondre en citant

bonjour
qui peut me proposer une solution de l'exercice suivant:
écrire un programme qui dessine sur deux lignes de l'écran, 2 caractères * sachant que l'un se déplace de la gauche vers la droite et l'autre se déplace de la droite vers la gauche.
la solution doit être faite en tpw(turbo pascal sous windows)

Embarassed Embarassed
voila la correction ..
tu as compris l'énoncé,voilà une solution proposée pour te faire plaisir..
****ces étoiles se déplacent comme vous voulez****
si le programme s'exécute bien,envoi moi un remerciement......

---------------------
correction
program test;
uses wincrt;
var
ch1,ch2:string;
i,j,nbd:byte;
procedure deplace(n:byte);
begin
if (n>0) then   
begin
 clrscr;
 writeln('taper une touche pour deplacer');
 ch1:=' '+ch1;
 delete(ch2,1,1);
 writeln(ch1);
 writeln(ch2);
 readkey;
 deplace(n-1);
end;
end;
BEGIN
 write('donner le nombre de déplacements:');
 readln(nbd);
 ch1:='*';
 ch2:='*';
 for i:= 1 to nbd do
  ch2:=' '+ch2;
 deplace(nbd);
END.


 
Revenir en haut
Publicité






Posté le: Mar 1 Déc - 18:13 (2009)    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
 
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