A voir également:
- Problème devoir algorithme - procédure
- Logiciel algorithme gratuit - Télécharger - Édition & Programmation
- L'enfer du devoir musique ✓ - Forum Musique / Radio / Clip
- L'enfer du devoir serie telecharger - Forum Cinéma / Télé
- Musique d' un film de guerre sur le vietnam. ✓ - Forum Musique / Radio / Clip
- Algorithme maximum de 3 nombres ✓ - Forum Algorithmes / Méthodes
7 réponses
ZOUARI
Messages postés
60
Date d'inscription
lundi 26 avril 2004
Statut
Contributeur
Dernière intervention
14 mai 2011
29
27 nov. 2007 à 12:38
27 nov. 2007 à 12:38
Exercice N° 1 (La récursivité)
On désir écrire une programme Pascal qui permet de :
· Remplir un tableau t de nb réels (avec 2 ≤ nb ≥ 14).
· Calculer la somme du tableau t.
· Insérer un réel v à la position p du tableau t.
· Inverser tous les éléments du tableau t.
· Afficher le tableau après chaque opération effectuer sur le tableau t.
Remarque :
Toute tâche doit être effectué grâce à un module récursif.
Solution :
Program aff_somme;
Uses WinCrt;
Type
Tab = Array [1..15] of Real;
Var nb, p : Integer; v : Real; t : Tab;
Procedure Saisir (var n : Integer);
Begin
Write('Donner la taille du tableau ');
Readln(n);
If Not(n In [2..14]) Then
Saisir (n);
End;
Procedure Remplir (Var t : Tab; n : Integer);
Begin
If n > 0 Then
Begin
Remplir (t, n - 1);
Writeln ('Donner la valeur de l"élèment N° ', n );
Readln(T[n]);
End;
End;
Function Somme (t : Tab; n : Integer) : Real;
Begin
If n = 0 Then somme := 0
Else
Somme := t[n] + Somme (t, n - 1);
End;
Procedure Afficher (t : Tab; n : Integer);
Begin
If n > 0 Then
Begin
Afficher (t, n - 1);
Writeln(t[n]:5:2);
End;
End;
Procedure Decaler (Var t : Tab; p, n : integer);
Begin
If p <= n Then
Begin
Decaler (t, p + 1, n);
t[p + 1] := t[p];
End;
End;
Procedure inverser (Var t : Tab; p, n : Integer);
Var aux : Real;
Begin
If p < n Then
Begin
aux := t[p];
t[p] := t[n];
t[n] := aux;
inverser(t, p + 1, n - 1);
End;
End;
Begin
Saisir (nb);
Remplir (t, nb);
ClrScr;
Writeln('Contenu du tableau après remplissage');
Afficher(t, nb);
Writeln ('Somme du tableau = ', Somme (t, nb):5:2);
Write('Donner la valeur de l"élèment à insérer ');
Readln(v);
Write('Donner la position d"insertion ');
Readln(p);
Decaler (t, p, nb);
t[p] := v;
Writeln('Contenu du tableau insertion');
Afficher (t, nb + 1);
Inverser(t, 1, nb + 1);
Writeln('Contenu du tableau après inversion');
Afficher (t, nb + 1);
End.
voiçi un exercice mais pour avoir d'autre il faut que tu m'envoi votre @ e-mail
c'est vous avez des ENONCES des exercices envoyer les à l'adresse suivante: Lazhar.Zouari@laposte.net
On désir écrire une programme Pascal qui permet de :
· Remplir un tableau t de nb réels (avec 2 ≤ nb ≥ 14).
· Calculer la somme du tableau t.
· Insérer un réel v à la position p du tableau t.
· Inverser tous les éléments du tableau t.
· Afficher le tableau après chaque opération effectuer sur le tableau t.
Remarque :
Toute tâche doit être effectué grâce à un module récursif.
Solution :
Program aff_somme;
Uses WinCrt;
Type
Tab = Array [1..15] of Real;
Var nb, p : Integer; v : Real; t : Tab;
Procedure Saisir (var n : Integer);
Begin
Write('Donner la taille du tableau ');
Readln(n);
If Not(n In [2..14]) Then
Saisir (n);
End;
Procedure Remplir (Var t : Tab; n : Integer);
Begin
If n > 0 Then
Begin
Remplir (t, n - 1);
Writeln ('Donner la valeur de l"élèment N° ', n );
Readln(T[n]);
End;
End;
Function Somme (t : Tab; n : Integer) : Real;
Begin
If n = 0 Then somme := 0
Else
Somme := t[n] + Somme (t, n - 1);
End;
Procedure Afficher (t : Tab; n : Integer);
Begin
If n > 0 Then
Begin
Afficher (t, n - 1);
Writeln(t[n]:5:2);
End;
End;
Procedure Decaler (Var t : Tab; p, n : integer);
Begin
If p <= n Then
Begin
Decaler (t, p + 1, n);
t[p + 1] := t[p];
End;
End;
Procedure inverser (Var t : Tab; p, n : Integer);
Var aux : Real;
Begin
If p < n Then
Begin
aux := t[p];
t[p] := t[n];
t[n] := aux;
inverser(t, p + 1, n - 1);
End;
End;
Begin
Saisir (nb);
Remplir (t, nb);
ClrScr;
Writeln('Contenu du tableau après remplissage');
Afficher(t, nb);
Writeln ('Somme du tableau = ', Somme (t, nb):5:2);
Write('Donner la valeur de l"élèment à insérer ');
Readln(v);
Write('Donner la position d"insertion ');
Readln(p);
Decaler (t, p, nb);
t[p] := v;
Writeln('Contenu du tableau insertion');
Afficher (t, nb + 1);
Inverser(t, 1, nb + 1);
Writeln('Contenu du tableau après inversion');
Afficher (t, nb + 1);
End.
voiçi un exercice mais pour avoir d'autre il faut que tu m'envoi votre @ e-mail
c'est vous avez des ENONCES des exercices envoyer les à l'adresse suivante: Lazhar.Zouari@laposte.net
j'ai besoin d'exo de procedures et fonctions corriger pleasej'ai besoin d'exo de procedures et fonctions corriger please
initialisation a l'algorhitmique et aux structures de données JACQUES COURTIN;IRENE KOWARSKI; volume 1 dunod ya pas mal d'exercices corrigés;puis pour le langage je préfere C le livre nécessaire pour débuter en C c'est programmer en C de clause delanoy
Salut,
j'ai besoin d'exercices+corrections sur les procédures et fonctions en C. Aussi, je souhaiterais savoir la différence qui existe entre la transmission de paramètres par adresse et la transmission de paramètres par valeurs.bien vouloir fournir quelque exemples.
Merci
j'ai besoin d'exercices+corrections sur les procédures et fonctions en C. Aussi, je souhaiterais savoir la différence qui existe entre la transmission de paramètres par adresse et la transmission de paramètres par valeurs.bien vouloir fournir quelque exemples.
Merci
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Soit Un et Vn deux suites numeriques telles que:Uo=0,75 et Un+1=1,25Un+1,7 ;Vo=24,55 et Vn+1=0,95Vn-3,18
Elaborez un algorithme qui permet de calculer les n premiers termes de chaque suite et d' afficher le resultat.De plus l' algo calculera la sommme des n premiers termes de Un et le produit des n premiers termes de Vn.
L' algo sera sous forme d organigramme.
J'aimerais si possible avoir un site pour debutant en algorithme.
MERCI de me repopndre.
Elaborez un algorithme qui permet de calculer les n premiers termes de chaque suite et d' afficher le resultat.De plus l' algo calculera la sommme des n premiers termes de Un et le produit des n premiers termes de Vn.
L' algo sera sous forme d organigramme.
J'aimerais si possible avoir un site pour debutant en algorithme.
MERCI de me repopndre.
je souhaite qu'on fait un échange, je pouvais vous donnez des exercices qu'ion a fait en classe, et vous me donnez les vôtres, je suis une élève en 2éme année tech infos
4 mai 2008 à 14:00
j ai commence apprendre l algorithmes et j ai trouve des difficultes je suis debutante
je vous demande de m aider en donnant des exemples sur l agorithme des equations en 2 degre ou d autres exemples
de votre choix et je vous en pris de me repondre avant lundi paceque j avais un test sur ça
merci