Manipulation de listes d'entiers

Version imprimable

04/04/2014, 00h26
khaled-24

Manipulation de listes d'entiers
Bonjour,
Citation:
Le but de ce tp est la réalisation d'un logiciel de manipulation de listes d'entiers. Votre programme doit permettre, après la création d'une liste, selon le choix de l'utilisateur :[list=1][*]l'insertion d'un élément dans la liste ;[*]la suppression d'un élément de la liste, selon le choix de l'utilisateur :
première occurrence,
dernière occurrence,
toutes les occurrences.
la recherche d'une valeur introduite par l'utilisateur ;
la recherche et calcul du minimum et du maximum de la liste ;
le calcul de la somme de tous les élements de la liste ;
le calcul de la moyenne de tous les éléments de la liste.

Votre programme doit laisser le choix à l'utilisateur de faire le traitement qu'il désire, en lui présentant un menu.
Décomposer le problème et écrire un programme qui réalise les différents choix.
04/04/2014, 08h43
cboudy

Voici un extrait des règles du forum :

Citation:

Vous êtes les bienvenus ici pour vous former.

Vous former, cela veut dire lire les cours et tutoriels :
http://www.developpez.com/cours/

et éventuellement poser vos questions en FRANCAIS correct si vous avez besoin d'aide, dans un seul forum, et dans le respect des règles du forum.

Nous ne sommes pas là pour faire vos exercices.
Entendez par là que nous serons bien évidemment tout à fait d'accord de vous aider à résoudre votre problème, pour autant que vous fassiez vous-même des efforts.
Postez votre question, mais proposez également un début de solution, un bout de code, etc. En aucun cas, nous ne ferons le travail à votre place.

Merci de votre compréhension.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
program forza;
type
  PCellule = ^Cellule;
  Cellule = record
    valeur: integer;
    suivant: PCellule;
  end;
 
procedure ajouter(var liste: PCellule; valeur: integer);
var
  p: PCellule;
begin
  new(p);
  p^.valeur := valeur;
  p^.suivant := liste;
  liste := p;
end;
 
procedure afficher(liste: PCellule);
var
  p: PCellule;
begin
  p := liste;
  while p <> nil do
  begin
    writeln(p^.valeur);
    p := p^.suivant;
  end;
end;
 
procedure vider(liste: PCellule);
var
  p, r: PCellule;
begin
  p := liste;
  while (p <> nil) do
  begin
    r := p^.suivant;
    dispose(p);
    p := r;
  end;
end;
 
var
  liste: PCellule;
  nombre: integer;

05/04/2014, 09h45
Alcatîz

Bonjour,

... et c'est tout ? Où est la description du problème rencontré ?