Forum programmation
 
AccueilPortailFAQRechercherS'enregistrerMembresGroupesConnexion

Partagez | 
 

 solution d'exercice

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
zizou
Nouveau
Nouveau


Nombre de messages : 2
Date d'inscription : 19/10/2007

MessageSujet: solution d'exercice   Sam 22 Déc - 14:51

bonjour
qui peut me proposer une solution de l'exercice suivant:
ecrire 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) press any key
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
rebhisaid
Nouveau
Nouveau


Nombre de messages : 5
Date d'inscription : 03/11/2007

MessageSujet: Re: solution d'exercice   Dim 23 Déc - 18:45

si j'ai bien compris l'énoncé,voilà une solution proposée pour te faire plaisir..
****ces étoiles se déplacent comme vous voulez****
si le programme s'execute bien,envoi moi un remerciement......
---------------------
Code:
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 Aller en bas
Voir le profil de l'utilisateur
manianis
V.I.P
V.I.P
avatar

Nombre de messages : 471
Age : 107
Date d'inscription : 19/03/2007

MessageSujet: Re: solution d'exercice   Dim 23 Déc - 23:46

Merci pour ce code Rebhi.
Il est conseillé d'utiliser :

Code:
GotoXY(x, y);

qui permet de déplacer le curseur à une position voulue.
x dans l'intervalle [1..80]
y dans l'intervalle [1..25]
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://manianis.sitesled.com/
mtcs
Administrateur
Administrateur
avatar

Nombre de messages : 1605
Date d'inscription : 21/11/2006

MessageSujet: Re: solution d'exercice   Lun 24 Déc - 13:21

Merci RS
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
zizou
Nouveau
Nouveau


Nombre de messages : 2
Date d'inscription : 19/10/2007

MessageSujet: Re: solution d'exercice   Jeu 27 Déc - 16:33

merci pour la solution mais on veut que l'annimation se fasse sans faire recours à des touche du clavier voila une proposition
program etoiles;
uses wincrt, windos;
var i,j,l1,l2:byte;
procedure delai;
var h,m,s,ss:word;
begin
settime(0,0,0,0);
repeat
gettime(h,m,s,ss);
until ss=2;
end;

begin
j:=screensize.x-1;
l1:= screensize.y div 2;
l2:=screensize.y div 2 +1;
for i:=1 to screensize.x-1 do
begin
clrscr;
gotoxy(i,l1);
write('*');
gotoxy(j,l2);
write('*');
j:=j-1;
delai;
end;
end.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: solution d'exercice   

Revenir en haut Aller en bas
 
solution d'exercice
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Solution qui bloque les virus avant qu’ils ne se propagent
» Petit exercice autout du GRID
» Image de fond qui s'adapte à la résolution du visiteur
» Problème résolution fond d'écran.
» Redimentionner le background selon la résolution du visiteur

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Forum programmation :: Programmation :: Delphi & Pascal :: Pascal :: Exercices-
Sauter vers: