Probleme De prog Sous TURBO PASCAL 7

[flonicolas]

Salut,

 

J'ai actuellement un pb de programmation sous Turbo pascal 7 (dos),

j'utilise la fonction qui permet d'afficher un texte en mode graphique (outtextxy) seulement voila je voudrai pouvoir afficher des variables contenant des chiffres avec et pouvoir faire des operations...

c'est a dire si je fais ca :

 

Uses crt,graph;

Var a,b,c,gd,gm : INTEGER;

Begin

 

Initgraph(gd,gm,'C:TPBGI'); // ouverture du mode graphique

 

A:=5;

B:=10;

C:=A+B;

Outtextxy(50,50,C);

 

readln;

end.

 

Quand je compile, le compilateur me renvoi l'erreur :"TYPE MISMATCH", car je crois que OUTTEXTXY n'accepte que les variables de types STRING donc j'aimerai savoir par quel moyen je pourrai afficher des variables contenant des nombres et faire des operations avec...

 

Merci

 

@++

 

 

 

[/b]

[leneuf22]

Voilà la fonction qui convertit une chaîne de caractères en une variable numérique :

 

Val(Chaine : String, Nombre : Real, Code : Integer);

Ici, Chaîne = ta variable de type string, Nombre = variable de sortie de type integer, numérique, et Code = code d'erreur

 

 

Exemple de code :

 

var MyNumber : Real;

MyTexte : String;

MyCode : Integer;

 

begin

MyTexte := '123456';

Val(MyTexte, MyNumber, MyCode);

end.

 

Tu fais ton opération, puis tu reconvertis en variable String, avec Str, pour afficher.

Str(Nombre : Real, Chaine : String);

Nombre = ta variable numérique, Chaîne = ta variable de sortie, de type string.

 

 

Exemple de code :

 

var MyNumber : Real;

MyTexte : String;

 

begin

MyNumber := Pi;

Str(MyNumber, MyTexte);

end.

 

 

Je n'ai jamais touché au turbo pascal, mais ça me semble logique

[flonicolas]

Je te remerci bcp !

je ne suis qu'un mediocre programmeur

[flonicolas]

j'ai essayé tout marche tres bien excepté que quand je reconverti en Variable String (avec STR) et que j'affiche cette variable il m'ecrit :

5.00000000000000E+0000 au lieu de 5 tout court...

comment eviter cela ? car cela risque d'etre genant pour la prog d'un jeu

[keguira]

pour choisir le nombre de chiffres avant et apres la virgule je crois ( pourtant je l'ai fais y'a meme pas 2 semaines) qu'il faut juste rajouté une commande du style

 

 

write ('ton nombre : ',lenombre(2,3));

 

2 chiffres avant la virgule et 3 apres...

 

Mais je suis plus très sûr ....

[flonicolas]

euh ca ne marche pas... ca dois pas etre tout a fais ca

[keguira]

attends lundi, je te donnerais la solution car g tous à mon appart donc lundi à 13h45 tu auras la solution ... A lundi

[flonicolas]

cool merci...

[flonicolas]

Ok je crois que g trouvé ...

C'est : Write(NOMBRE:1:0);

[keguira]

c sa :

 

 

write nbre:2:3;

 

 

2chiffre avant la virgule et 3 après