Dev-Pascal 1.9.2
dimi3
Messages postés
278
Statut
Membre
-
brook -
brook -
Bonjour,
sous Dev-Pascal, lorsque je lance le programme dont je viens de terminer le script, par le bouton RUN, j'entre les données dans la fenêtre qui s'ouvre. Quand toutes les données sont rentrées, la fenêtre se ferme et disparaît. Ainsi je ne peux me rendre compte du résultat du programme. Que dois-je faire pour que la fenêtre affichant les résultats du programme reste à l'écran ?
Merci de votre aide.
sous Dev-Pascal, lorsque je lance le programme dont je viens de terminer le script, par le bouton RUN, j'entre les données dans la fenêtre qui s'ouvre. Quand toutes les données sont rentrées, la fenêtre se ferme et disparaît. Ainsi je ne peux me rendre compte du résultat du programme. Que dois-je faire pour que la fenêtre affichant les résultats du programme reste à l'écran ?
Merci de votre aide.
A voir également:
- Dev-Pascal 1.9.2
- Turbo pascal - Télécharger - Édition & Programmation
- Dev pascal - Télécharger - Édition & Programmation
- Massgrave dev - Accueil - Windows
- Dev c++ - Télécharger - Langages
- My pascal - Télécharger - Édition & Programmation
8 réponses
et c'est quoi lme problème:
Il ne s compile pas?
il ne marche pas bien correctement : il permet de lire les données mais il n'affiche pas les résultats (dès l'appui sur ENTREE , le programme se ferme?)
Il ne s compile pas?
il ne marche pas bien correctement : il permet de lire les données mais il n'affiche pas les résultats (dès l'appui sur ENTREE , le programme se ferme?)
avant le end. final fais Readln;Readln;
voila:
voila:
Voici le programme :
program tableau ;
uses wincrt; {pour utiliser nettoyage d'ecran}
var
tablo : array[1..8] of char;
i : integer ;
j: integer;
x : char;
begin
{nettoyage ecran}
clrscr ; // ici j'ai supprimé les { } parce que c'est pas un commentaire mais une procédure
{-----entrer-----}
i := 1 ;
for i := 1 to 8 do
begin
write('Lettre ',i, ': ');
readln(tablo[i]);
end;
writeln(' ');
writeln('Les lettres proposées sont : ',tablo);
writeln(' ');
{----- ranger-----}
j:=1;
for i:=8 downto i do
begin
for j:=1 to i-1 do
if tablo[j]>tablo[j+1] then
begin
x:=tablo[j+1];
tablo[j+1]:=tablo[j];
tablo[j]:=x;
end;
end;
{-----afficher-----}
writeln('Lettres rangées par ordre alphabétique :');
writeln(' ');
for i := 1 to 8 do
writeln('Lettre ',i,' : ',tablo[i]);
READLN;READLN; // voila
end.
La ligne READLN;READLN; n'a pas eu d'effets. Pas moyen de conserver à l'écran les résultats .
J'ai vu sur un autre post du pseudo Virtuaklem intitulé dev-pascal V1.9 que cette personne avait le même problème que moi. Malheureusement pas de réponse à sa question.
Avez-vous testé mon programme sur dev-pascal ? Avez-vous le même problème que moi ? Si non, il doit s'agir d'options à cocher ou à décocher dans les propriétés de l'éditeur. Mais je ne parviens pas à savoir lesquelles.
J'ai vu sur un autre post du pseudo Virtuaklem intitulé dev-pascal V1.9 que cette personne avait le même problème que moi. Malheureusement pas de réponse à sa question.
Avez-vous testé mon programme sur dev-pascal ? Avez-vous le même problème que moi ? Si non, il doit s'agir d'options à cocher ou à décocher dans les propriétés de l'éditeur. Mais je ne parviens pas à savoir lesquelles.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonsoir,
J'ai aussi testé ton programme avec TPW et je n'ai pas de problème
Essaie d'ajouter ces deux lignes à la fin du prog
repeat until keypressed;
writeln('Fin du Programme')
end.
Par contre le tri n'est pas correct, les caractères saisis ne sont pas rangés par ordre alphabétique.
J'ai aussi testé ton programme avec TPW et je n'ai pas de problème
Essaie d'ajouter ces deux lignes à la fin du prog
repeat until keypressed;
writeln('Fin du Programme')
end.
Par contre le tri n'est pas correct, les caractères saisis ne sont pas rangés par ordre alphabétique.
Merci pour votre suggestion. Mais ça ne marche toujours pas. La fenêtre d'exécution disparaît dès que j'ai entré la dernière lettre demandée. J'ai désinstallé DPW et réinstallé... Rien n'y fait !!!
Quand au tri incorrect, il dépend des lettres entrées. Si ces lettres correspondent à des touches communes aux claviers français et anglais, le tri se passe très bien. Par exemple avec les lettres "sdfghjkl". Mais si les lettres correspondent à des touches différentes sur les claviers français et anglais, l'ordre se fait selon le clavier anglais (par exemple les lettres : aqzw...). Ainsi la lettre "q" passe avant toutes les autres puisque cette touche affiche la lettre "a" sur le clavier anglais.
Je commence à désespérer de ce langage que j'avais entrepris d'étudier. Gratuit et simple d'édition, mais compliqué d'exécution.
Bonne journée
Quand au tri incorrect, il dépend des lettres entrées. Si ces lettres correspondent à des touches communes aux claviers français et anglais, le tri se passe très bien. Par exemple avec les lettres "sdfghjkl". Mais si les lettres correspondent à des touches différentes sur les claviers français et anglais, l'ordre se fait selon le clavier anglais (par exemple les lettres : aqzw...). Ainsi la lettre "q" passe avant toutes les autres puisque cette touche affiche la lettre "a" sur le clavier anglais.
Je commence à désespérer de ce langage que j'avais entrepris d'étudier. Gratuit et simple d'édition, mais compliqué d'exécution.
Bonne journée
J'ai fait une erreur dans mon message précédent. Ce n'est pas sous DPW que la fenêtre d'exécution se ferme après avoir entré les données, mais sous DEV-Pascal 1.9.2
D'autre part j'ai résolu le problème du tri. J'avais fait une erreur de programmation. J'ai testé sous DOS puisque DEV-Pascal ne veut pas me montrer les résultats. Avec la question sous DOS qu'il me faille entrer les lettres sur mon clavier français comme on devrait les taper sur un clavier US... la galère !
D'autre part j'ai résolu le problème du tri. J'avais fait une erreur de programmation. J'ai testé sous DOS puisque DEV-Pascal ne veut pas me montrer les résultats. Avec la question sous DOS qu'il me faille entrer les lettres sur mon clavier français comme on devrait les taper sur un clavier US... la galère !
salut tout le monde,
je suis debutant en dev Pascal et je suis plante des que mon progrmme a sa compilation donne toujours O errors meme si je connais il y a des erreurs,aussi si mon programme ne contient aucune faute,la compilation marche mais le RUN je ne le voie pas ,pas d'affichage de résultat
merci à votre aide
je suis debutant en dev Pascal et je suis plante des que mon progrmme a sa compilation donne toujours O errors meme si je connais il y a des erreurs,aussi si mon programme ne contient aucune faute,la compilation marche mais le RUN je ne le voie pas ,pas d'affichage de résultat
merci à votre aide
program tableau ;
uses wincrt; {pour utiliser nettoyage d'ecran}
var
tablo : array[1..8] of char;
i : integer ;
j: integer;
x : char;
begin
{nettoyage ecran}
{clrscr ;}
{-----entrer-----}
i := 1 ;
for i := 1 to 8 do
begin
write('Lettre ',i, ': ');
readln(tablo[i]);
end;
writeln(' ');
writeln('Les lettres proposées sont : ',tablo);
writeln(' ');
{----- ranger-----}
j:=1;
for i:=8 downto i do
begin
for j:=1 to i-1 do
if tablo[j]>tablo[j+1] then
begin
x:=tablo[j+1];
tablo[j+1]:=tablo[j];
tablo[j]:=x;
end;
end;
{-----afficher-----}
writeln('Lettres rangées par ordre alphabétique :');
writeln(' ');
for i := 1 to 8 do
writeln('Lettre ',i,' : ',tablo[i]);
end.