Discussion :

[Kelem]

Bonjour à tous, j'ai un petit problème que j'ai du mal à comprendre.

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
program exercice1;
uses crt;
var lettre:char;
var cpt:integer;
begin
     clrscr;
     cpt:=0;
     read(lettre);
     while lettre<>'#' do begin
                       if lettre='a' then cpt:=cpt+1 ;
                       read(lettre)
                       end;
     writeln(' ',cpt);
	readln
end.

En fait on rentre un mot dans la fenetre dos, pour terminer le mot on met # et le programme nous indique combien de fois la lettre a est présente dans le mot. Le prog marche mais il revient automatiquement sur le compilateur malgré le readln. Bien sur je peux voir le résultat en retournant sur le dos shell. Mais j'aimerais comprendre les raisons de ce retour forcé ?

Merci d'avance.
Amicalement Kelem

[charly]

tu as oublier des ';' sinon je vois pas : il n attends pas la touche entrer ? esseye avec une boucle peut etre

[Kelem]

En fait, j'ai ces problèmes surtout quand j'utilise la fonction read. Je ne sais pas pourquoi ça me fait cela.

[charly]

et plus precisemment ?

[Kelem]

Euh je sais pas être plus précis, par exemple quand je lui mets le code cité puis un writeln en fin avec un readln pour l'attente, il calcule le résultat mais attend pas "Entrée" pour revenir sous l'éditeur.

[macluvitch]

Une petite remarque l'amigos :
Si tu veux compter l'occurence d'une lettre dans un mot je te propose de methode :
la premiere consiste a lire le mot entierement dans un tableau et faire incrementer une varoable a chaque occurence ):
La 2 eme consiste a utiliser une entre bufferisee comme par exemple readkey dans l unite crt (ou bine tu peux la faire en asm)
ainsi tu n'aura po de probleme avec le code ascii 13 (entre)

(essaie avec un readkey et si cca ne marche toujours po on y remediera )

[M.Dlb]

Oui read et readln mélangés ne font pas bon ménage... Remplace le read par un readkey, ca sera mieux... Attention, readkey ne provoque pas l'affichage de la lettre tapée, donc il faudra que tu affiches la lettre si tu en as besoin...

a+

[Kelem]

Oki merci beaucoup à vous tous !