Discussion :

[rasedra]

Salut !
Je ne trouve plus d'idée au sujet de mon exercice de Pascal.
Le sujet c'est que si on saisit des nombres dans un bloc note, on les range par ordre croissant à partir du langage Pascal (travail dans un fichier).
Le problème c'est qu'à chaque fois que je clique Run, après l'avoir compilé, une erreur s'est toujours produite (erreur run valeur).
Et je ne trouve pas de solution.

S.v.p donnez quelques astuces ou solutions.

[M.Dlb]

Quelle est le code de l'erreur ? Tu ne donnes aucune information pertinente, sois plus précis s'il te plait

[CP / M]

Bonjour Rasedra,

essaye de coder un programme de ce genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
Program ReadNums;
 
Var
     Buffer     : Array[1..1000] of String;
     Numbers    : Array[1..1000] of Integer;
     Fichier    : Text;
     Count,i    : Integer;
     ErrCode    : Integer;
 
Begin
     Assign(fichier,'C:\Test.txt');
     Reset(fichier);
 
     Count := 0; 
 
     While not Eof(Fichier) do
     Begin
          ReadLn(fichier,Buffer[Count]);
          Inc(Count);
     End;
 
     Close(fichier);
 
     For i:=1 to Count do
     Begin
          Val(Buffer[i],Numbers[i],ErrCode);
 
          If ErrCode <> 0 then
          Begin
               WriteLn('Erreur dans l''enregistrement #',Count);
               Halt(1);
          End;
 
     End;
 
End.

Comme ça, tu auras déjà tes nombres dans le tableau Numbers. Après, cherche une source de tri, par exemple QSort, et applique là à ce tableau.
Bonne chance!

[CP / M]

Voici un exemple en Pascal
http://sandbox.mc.edu/~bennet/cs404/doc/qsort_pas.html
et encore un autre:
http://www.dbit.com/pub/pdp8/pascal/misc/qsort.pascal
Tu devrais finir par trouver ta solution !(si jamais tu reviens...)