Problème devoir algorithme - procédure Fermé

Question

salut à tous 
pouvez vous m'aider et m'envoyer des esxercices corrigés sur la recursivité et les fichiers en pascal (ou algorithme)
En référence à cette discussion

ZOUARI · Accepted Answer

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

mac · Answer

j'ai besoin d'exo de procedures et fonctions corriger pleasej'ai besoin d'exo de procedures et fonctions corriger please

zakarialagh · Answer

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

bob · Answer

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

ben · Answer

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.

rourou1919 · Answer

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

google · Answer

application algorithmique de procédure

Problème devoir algorithme - procédure

7 réponses

Discussions similaires