Problème devoir algorithme - procédure
aide
-
google -
google -
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
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
A voir également:
- Problème devoir algorithme - procédure
- Logiciel algorithme euromillion - Télécharger - Loisirs créatifs
- Logiciel algorithme gratuit - Télécharger - Édition & Programmation
- Algorithme euromillion excel gratuit - Forum Algorithmes / Méthodes
- Algorithme ajout rapide snapchat - Forum Snapchat
- Ajout rapide snap - Forum Snapchat
7 réponses
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.
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