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 ...
devoir sy1
 
 
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 -> (¯`·._.·[Devoirs et séries']·._.·´¯)
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
hmaidi


Hors ligne

Inscrit le: 21 Nov 2008
Messages: 3
Masculin
Point(s): 40
Moyenne de points: 0

Posté le: Jeu 15 Jan - 15:30 (2009)    Sujet du message: devoir sy1 Répondre en citant

PublicitéSupprimer les publicités ?
Exercice 1 : (6 points)

Soit l’algorithme du programme principal suivant :
0) début algo
1) proc saisie (n)
2) écrire (FN somme(n))
3) fin algo
Soit l’algorithme de la fonction somme :
0) début fonction somme (n : entier) : entier long
1) S  0
Pour i de 0 à n faire
Pour j de 0 à i faire
S S +j
Fin pour
Fin pour
2) somme  S
3) fin somme

Travail à faire
 Transformer la fonction somme en une fonction récursive.
 Réécrire le programme principal.

Problème (14 points)

Soit un fichier texte dont le nom physique est Essai.txt, qui contient une phrase dans chaque ligne et que chaque phrase contient essentiellement 3 mots.
On désire de remplir un fichier dont le nom physique est Nbre_Car.dat, qui contient des enregistrements, chaque enregistrement est composé de :
 Nbm1 : est un entier égal au nombre de caractères formant le 1er mot d’une ligne.
 Nbm2 : est un entier égal au nombre de caractères formant le 2ème mot d’une ligne.
 Nbm3 : est un entier égal au nombre de caractères formant le 3ème mot d’une ligne.
On désire de remplir un fichier dont le nom physique est Résultat.txt qui contient dans chaque ligne la longueur du plus long mot de chaque ligne du fichier Essai.txt

Travail demandé :

 Illustrer les structures de données à utiliser pour résoudre le problème.
 Analyser le problème ci-dessus en le décomposant en modules.
 Analyser les modules envisagés.
 Elaborer les algorithmes.


 
Revenir en haut
infobac


Hors ligne

Inscrit le: 29 Nov 2008
Messages: 1
Masculin
Point(s): 18
Moyenne de points: 0

Posté le: Dim 18 Jan - 12:13 (2009)    Sujet du message: devoir sy1 Répondre en citant

un devoir trés simple
_________________
BON TRAVAIL


 
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: Mer 3 Nov - 21:46 (2010)    Sujet du message: devoir sy1 Répondre en citant

Okay Okay Okay

 
Revenir en haut
manianis


Hors ligne

Inscrit le: 11 Aoû 2010
Messages: 95
Masculin
Point(s): 102
Moyenne de points: 0

Posté le: Jeu 4 Nov - 13:23 (2010)    Sujet du message: devoir sy1 Répondre en citant

Un bon devoir (simple) qui répond au buts d'un devoir : évaluer les connaissances acquises et non  réduire les notes des élèves.

 
Revenir en haut
hamza1


Hors ligne

Inscrit le: 10 Oct 2010
Messages: 4
Masculin
Point(s): 4
Moyenne de points: 0

Posté le: Dim 7 Nov - 11:47 (2010)    Sujet du message: devoir sy1 Répondre en citant

bonjour


merci hmaidi ou manianis de mettre la correction


 
Revenir en haut
manianis


Hors ligne

Inscrit le: 11 Aoû 2010
Messages: 95
Masculin
Point(s): 102
Moyenne de points: 0

Posté le: Dim 7 Nov - 12:39 (2010)    Sujet du message: devoir sy1 Répondre en citant

Exercice 1

Le plus simple est d'écrire deux fonctions et de ne pas modifier le programme principal :


 
Code:
0)Fonction S(n : entier):entier long
1)Si n = 0 alors
          S <--- 0
   sinon
          S <--- Somme(n - 1) + n
   Fin si
2) Fin S

0) Fonction somme (n : entier) : entier long
1) si n = 0 alors
          Somme <--- 0
    Sinon
          Somme <--- Somme(n - 1) + S(n)
    Fin Si
3)   fin somme 
Si vous insistez à écrire une seule fonction il faudra ajouter i, j et n comme paramètres à la nouvelle fonction.

 
Revenir en haut
manianis


Hors ligne

Inscrit le: 11 Aoû 2010
Messages: 95
Masculin
Point(s): 102
Moyenne de points: 0

Posté le: Dim 7 Nov - 15:16 (2010)    Sujet du message: devoir sy1 Répondre en citant

Problème (14 points)


 
Code:
program probleme;

type
    e_long_mots = record
        nbm1, nbm2, nbm3 : integer;
    end;
   
    f_long_mots = file of e_long_mots;
   
procedure remplir_long_mots(ch : string; var  e : e_long_mots);
var
    p : integer;
begin
    e.nbm1 := 0;
    e.nbm2 := 0;
    e.nbm3 := 0;

    p := Pos(' ', ch);
    if (p <> 0) then
        begin
            e.nbm1 := p - 1;
            Delete(ch, 1, p);
        end
            else e.nbm1 := Length(ch);

    p := Pos(' ', ch);
    if (p <> 0) then
        begin
            e.nbm2 := p - 1;
            Delete(ch, 1, p);
        end
            else e.nbm2 := Length(ch);

    p := Pos(' ', ch);
    if (p <> 0) then
        begin
            e.nbm3 := p - 1;
            Delete(ch, 1, p);
        end
            else e.nbm3 := Length(ch);
end;

function Max_Enreg(e : e_long_mots):integer;
var
    m : integer;
begin
    m := e.nbm1;
    if (e.nbm2 > m) then m := e.nbm2;
    if (e.nbm3 > m) then m := e.nbm3;

    Max_Enreg := m;
end;

procedure remplir_fichiers(var f1 : text ; var f2 : f_long_mots ; var f3 : text);
var
    ch : string;
    e  : e_long_mots;
begin
    Reset(f1);
    ReWrite(f2);
    ReWrite(f3);

    while (not EOF(f1)) do
        begin
            Readln(f1, ch);
            remplir_long_mots(ch, e);
            Write(f2, e);
            Writeln(f3, Max_Enreg(e));
        end;

    Close(f3);
    Close(f2);
    Close(f1);
end;

var
    f1, f3 : text;
    f2     : f_long_mots;
begin
    Assign(f1, 'C:\essai.txt');
    Assign(f2, 'C:\nbre_car.dat');
    Assign(f3, 'C:\resultat.txt');

    remplir_fichiers(f1, f2, f3);
end. 


 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 19:26 (2016)    Sujet du message: devoir sy1

 
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 -> (¯`·._.·[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