Discussion :

[Henry22]

Bonjour,
dans ce programme mon but est de faire afficher 8 nombres au hazard entre 1 et 15, ce que j'ai réussi à faire. Mais le problème réside dans le fait, qu'avant que ce nombre apparaisse, plusieurs sauts de lignes. Peut être que ça a un lien avec const max=15.
Pouvez vous m'éclairer?
Merci d'avance

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
program ptest;
uses crt;
const max=15;
var i,n:integer;
 
begin
clrscr;
randomize;
n:=random(max);
 
for i:=1 to 8 do
begin
writeln(n);
n:=random(max);
end;
end.

[M.Dlb]

C'est marrant d'afficher un nombre avant de le "créer" ! Ca serait plus logique de faire un random avant d'afficher quoi que ce soit :

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
program ptest;
uses crt;
const
  max=15;
var
  i,n:integer;
 
begin
  clrscr;
  randomize;
 
 for i := 1 to 8 do
  begin
    n := random(max);
    writeln(n);
  end;
 
end.

[Henry22]

Bonjour,
mon problème n'est pas régler et aussi j'avais déjà crée le nombre avant(en fait je l'ai crée deux fois). Mis à part ça, même votre programme affiche plusieurs sauts de ligne avant que 8 nombres s'affichent aléatoirement. Pourvez régler ce qui déconne? Moi, je ne vois pas du tout où est le problème.
Merci d'avance

[droggo]

Lab,

Donne-nous une copie d'é"cran de ta sortie, car absolument rien ne justifie la sortie de plusieurs sauts de ligne avant ce qui est demandé par le programme.

[Henry22]

Salut,
c'est bon j'ai trouvé quel est le problème. En fait, lorsque j'éxécute sans mettre clrscr dans le programme principal, il n'y pas plus de sauts de lignes. Les sauts de lignes ont donc été engentré par le clrscr du programme.
En bref sans clrscr j'obtiens dans le terminal:

.../Desktop]$ ./ptest
6
6
1
3
0
1
10
12

Maintenant avec le clrscr:

.../Desktop]$ ./ptest








0
0
4
13
10
5
1
5

Voila
Encore merci

[Alcatîz]

Il y a peut-être un bug de clrscr sous Linux, à faire remonter aux développeurs de Free Pascal ?

[droggo]

Lao,

Il y a peut-être un bug de clrscr sous Linux, à faire remonter aux développeurs de Free Pascal ?

Il faudrait quand même faire quelques tests avant, par exemple, voir si le problème existe sur une autre machine ?

Je ne peux pas vérifier, je ne programme pas sur Linux

[Loceka]

lol c'était ça ?
Il fallait dire que tu programmais sous linux et que tu utilisais la console linux pour tester.

Le fonctionnement du clear-screen sous linux (en tout cas les distribs que je connais) consiste à faire remonter le texte visible de l'écran et non à l'effacer de la console (comme sous Windows). Essaye de taper 'clrscr' dans une console, tu verras.

A partir de là, c'est normal que ton compilateur fasse appel à la commande de l'OS.
Ce n'est donc pas un bug de clrscr, c'est juste la façon dont il implémenté sous linux.