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 ...
Bac pratique info
 
 
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 -> Aidez-moi
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
DOOM


Hors ligne

Inscrit le: 29 Avr 2011
Messages: 2
Féminin
Point(s): 2
Moyenne de points: 0

Posté le: Ven 29 Avr - 20:14 (2011)    Sujet du message: Bac pratique info Répondre en citant

PublicitéSupprimer les publicités ?
Salut =)
Je propose ce devoir de bac pratique "section math".
J'ai quelques problèmes au niveau de l'exécution ,et j'aimerais bien comprendre pourquoi .
Dans cet exercice ,qui est simple  , à l'exécution , les nombres ne sont pas tous affichés , est-ce un dépassement de mémoire ?

L'exercice :

On  veut écrire un programme en Pascal permettant d’afficher tous les entiers naturels formés de quatre chiffres dont la somme donnera un entier d’un seul chiffre.
 

Exemple :
La  somme des chiffres de l’entier 2004 est égale à 6 (2+0+0+4=6) et par conséquent l’entier 2004 sera affiché.
 

 

N.B :
La solution doit comporter au moins deux modules.




Mon travail :




program bac2002 ;
uses wincrt ;

procedure affiche ;
var
a,b,n,c,d,s:integer ;
begin
for n:=1000 to 9999 do
begin
a:= n div 1000 ;
b:= (n mod 1000) div 100   ;
c:=n mod 100 div 10       ;
d:= n mod 10   ;
s:= a + b + c + d ;
if (s div 10 = 0 ) then
 writeln(n) ;
end ;
end;


begin
affiche ;
end.

Merci pour votre éventuelle aide =)
_________________
*Ce n'est pas parce que les choses sont difficiles à faire qu'on ne les fait pas, c'est parce qu'on ne les fait pas qu'elles sont difficiles. " Sénèque


 
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: Ven 29 Avr - 21:01 (2011)    Sujet du message: Bac pratique info Répondre en citant

Okay Okay Okay Okay Okay Okay
program ex;
uses wincrt;
var i:integer ;
begin
for i:=1000 to 9999 do
if (i div 1000 + i div 100 mod 10 + i mod 100 div 10 + i mod 10 ) div 10 =0
then write(i,', ');
end .


 
Revenir en haut
DOOM


Hors ligne

Inscrit le: 29 Avr 2011
Messages: 2
Féminin
Point(s): 2
Moyenne de points: 0

Posté le: Ven 29 Avr - 21:22 (2011)    Sujet du message: Bac pratique info Répondre en citant

Merci bien , il n'a donc pas trouvé ou écrire le reste des nombres !

Sinon pour cet exercice , on devrait :
 Ecrire un programme Pascal qui saisit une phrase et l’affiche renversée. La phrase commence, obligatoirement,  par une lettre et ses mots sont séparés par un seul espace


RESOLUTION DE PROBLEMES
Résultat:
PROBLEMES DE RESOLUTION


J'ai pas trouvé une solution  , comment savoir quel espace on va travailler sur , comment fixer le nbre d'espaces pour pouvoir transformer la chaine .

voila la saisie que j'ai faite , mais j'ai pas pu terminer .


program ex2 ;
uses wincrt ;
var
ch:string ;

procedure saisie(ch:string ) ;
repeat
writeln('donner une chaine ' );
readln(ch):
until (ch[1] in ['A'..'Z'] ) and ( ch[pos(' ' , ch )+1] <>' ' ) ;
end ;

procedure affiche(ch;string ) ;
var

begin



end ;

begin
saisie(ch) ;
affiche(ch) ;
end.


Merci pour votre aide Smile
_________________
*Ce n'est pas parce que les choses sont difficiles à faire qu'on ne les fait pas, c'est parce qu'on ne les fait pas qu'elles sont difficiles. " Sénèque


 
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: Dim 1 Mai - 17:56 (2011)    Sujet du message: Bac pratique info Répondre en citant

DE RIEN   Okay   BIENVENUE   Okay

 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 19:01 (2016)    Sujet du message: Bac pratique info

 
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 -> Aidez-moi 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