FORUM MP | Pascal : aide décomposition d'un entier

COMMUNAUTE MP

Identifiez vous ...

DOMAINE MP

Bavardages

Langages Généraux

Langages Web

Langages DotNet

Autres langages

Dev. Jeux Video

Sécurité

Sys. Exploitation

Graphismes

Logiciels

Réseaux

Bases de données

Méthodologies

Emplois High-tech

Aide juridique

Articles juridiques

FORUM

CHAT MP IRC

Votre pseudo ...

Srv: irc.moteurprog.com

Chan: #MoteurProg

PARTICIPER

Plus de 3500 emplois.

Visiteur MP

aide décomposition d'un entier
	Forum : PASCAL Sous Catégorie : Aucune Type du sujet : Sujet Normale FAQ : FAQ PASCAL
		SUIVI PAR MAIL INACTIF
		SUJET RESOLU
		SUJET ACTIF
		N'APPARTIENT PAS A LA FAQ

PAGE : [1]

FORUM PASCAL
	Page précedente	Page suivante

pfrn
Nouveau membre

Inscrit : 01/11/2006
Messages : 2

#114634 Posté le 01/11/06 à 11:16

Bonjour, je doit faire un programme qui décompose un entier de 4 chiffres. Par exemple j\'entre \"4239\" et le program m\'affiche \"4 2 3 9\"
J\'ai fait une version de ce programme mais cela ne marche pas. quelqu\'un pourrait-il m\'aider svp ?
Ma version:

program pb4 ; var S1,S2,s3,s4 ,x,x1,x2,x3,x4 : longint; begin writeln(\'entrer X\'); readln(x); s1:=x div 1000 ; x1:= trunc(s1); writeln(x1); s2:=x-(x1*1000); s2:=s2 div 100; x2:= trunc(s2); writeln(x2); s3:=x-(x1*1000-x2*100); s3:=x div 10; x3:= trunc(s3); writeln(x3); x4:=x-(x1*1000-x2*100-x3*10); writeln(x4); readln(); end.

HAUT DE PAGE

Publicité

Inscrit : X
Messages : X

#Aucun

HAUT DE PAGE

pac
Co-Administrateur
Superviseur :
- Méthodologie.
Modérateur :
- Delphi
Chef de projet(s) :
- Jeu Awalé
- EcoSystem
- MySudoku

Inscrit : 08/04/2004
Messages : 6570

#114639 Posté le 01/11/06 à 11:41

Qu'est ce qui ne marche pas ?
Pourquoi fais-tu un trunc( s1 ) alors que tu fais une division euclidienne ? Il n'y a pas de virgule avec une division euclidienne.
__________________________
Lisez la charte, pensez à regarder la FAQ, les tutoriaux, l'annuaire et faites une recherche dans les forums.
N'oubliez pas le Tag [Résolu]

.

Initiez-vous à Delphi avec Turbo Delphi Explorer, au C ou au C++ avec Code::Blocks et C# avec Visual C# 2005 Express.

HAUT DE PAGE

pfrn
Nouveau membre

Inscrit : 01/11/2006
Messages : 2

#114646 Posté le 01/11/06 à 12:24

Ok j'ai supprimé la fonction trunc.
Mais quand je rentre par exemple "1234" le programme me donne :
1
2
123
1664

Cela ne marche donc que pour les deux permiers chiffres. ??

HAUT DE PAGE

Molo
Membre du club

Inscrit : 21/12/2005
Messages : 367

#114651 Posté le 01/11/06 à 13:05

Salut,
Le problème est là:
s3:=x-(x1*1000 - x2*100);
...
x4:=x-(x1*1000 - x2*100 - x3*10);

C'est plutôt ça qu'il faut mettre:

s3:=x-(x1*1000 + x2*100);
x4:=x-(x1*1000 + x2*100 + x3*10);
__________________________
L'une des fonctions principales d'un ami consiste à subir, sous une forme plus douce et symbolique, les châtiments que nous désirerions, sans le pouvoir, infliger à nos ennemis.
Aldous Huxley
Le meilleur des mondes

HAUT DE PAGE

pac
Co-Administrateur
Superviseur :
- Méthodologie.
Modérateur :
- Delphi
Chef de projet(s) :
- Jeu Awalé
- EcoSystem
- MySudoku

Inscrit : 08/04/2004
Messages : 6570

#114656 Posté le 01/11/06 à 13:50

Bien vu Molo.
__________________________
Lisez la charte, pensez à regarder la FAQ, les tutoriaux, l'annuaire et faites une recherche dans les forums.
N'oubliez pas le Tag [Résolu]

.

Initiez-vous à Delphi avec Turbo Delphi Explorer, au C ou au C++ avec Code::Blocks et C# avec Visual C# 2005 Express.

HAUT DE PAGE


	Page précédente	Page suivante
FORUM PASCAL

PAGE : [1]

.: Site Web développé par Julien Pichot et l'équipe MPWG avec www.evolvia-web.com :.