Votre question

PASCAL Runtime ERROR!!!!!!!

Tags :
  • string
  • Programmation
Dernière réponse : dans Programmation
27 Novembre 2007 01:18:34

salut all, :hello: 
svp g créé l'algo PASCAL suivant qui permet de remplir un fichier texte par des ligne puis d'enlever les ' ' superflus et enfin de dire si une chaine de caracteres donnée existe dans celuici puis d'affecter l'inverse de ce mot dans un tableau t de type chaine de caracteres :heink: 

program fichier_texte;
uses wincrt;
Type tab=array[1..2]of string;
var tpal:text;
t:tab;
procedure saisie (var tpal:text);
var l:string;
begin
repeat
writeln('donnez une ligne');
readln(l);
if l <> 'fin' then
writeln(tpal,l);
until l='fin';
end;


procedure recherche (var tpal:text);
var
e,mot:string;
begin
writeln('Donnez le Mot');
readln(Mot);
reset(tpal);
repeat
readln(tpal,e);
if pos(Mot,e)<>0 then
writeln(mot,'Existe dans le fichier');
until (eof(tpal))OR (pos(mot,e)<>0);
end;
procedure supprimer (var tpal:text);
var x:string;
begin
reset(tpal);
repeat readln(tpal,x);
repeat if pos (' ',x)<>0 then
delete (x,pos(' ',x),1);
until (eoln (tpal));
until (eof(tpal));
end;


procedure inverse(var tpal:text;var t:tab);
var
i,k:integer;
ch1,ch2,b:string;
begin
reset(tpal);
k:=1;
repeat
readln(tpal,b);
i:=0;
repeat
i:=i+1;
until (b='')or(eoln(tpal));
ch1:=copy(b,1,i-1);
ch2:='';
For i:= length(ch1) downto 1 do
ch2:= concat(ch2,ch1);
t[k]:=ch2;
k:=k+1;
until eof (tpal);
end;
procedure afficher(var tpal:text);
var
l:string;
begin
reset(tpal);
repeat readln(tpal,l);
writeln(l);
until eof(tpal);
end;

Begin
ASSIGN (tpal,'C:\pal.txt');
RESET (tpal);
SAISIE(tpal);
recherche(tpal);
supprimer(tpal);
inverse(tpal,t);
close(tpal);
afficher(tpal);
end.

:sarcastic:  :??:  :pt1cable: 

apres avoir créé un fichier pal.txt dans le repertoire c:\pal.txt pour pouvoir exécuter le programme il me met Runtime error 2 :fou: 
pourtant cet algorithe est correct syntaxiquement :pfff:  :fou:  :fou:  :fou: 

SVP que quelqu'un me trouve une solution pour que je puisse exécuter ce programme :cry: 
merci d'avance.

Autres pages sur : pascal runtime error

27 Novembre 2007 12:06:20

salut, les couleurs, tu peux éviter, ca ne fait que rendre le message moins clair...

l'erreur indique que le fichier n'existe pas.
27 Novembre 2007 13:55:05

par hasard, il faudrait pas excaper le \ dans c:\pal.txt ?
genre c:\\pal.txt ?

et c'est du pascal ça ?
je ne me souvenais plus que c'était aussi laid...

ah oui, et les couleurs, évite stp. surtout le jaune sur fond blanc...
Contenus similaires
27 Novembre 2007 20:42:54

non j'ai essayé avec c:\\pal.txt mais cette fois ci il me met RUNTIME ERROR 5...
Dsl pour les couleurs,
je me suis laissé emporter :p 
27 Novembre 2007 20:53:15

Citation :
..apres avoir créé un fichier pal.txt dans le repertoire c:\pal.txt pour pouvoir exécuter le programme....

le fichier a bien été créé avant l'exécution :pfff: 
27 Novembre 2007 23:00:09

dans ce cas, t'as du mal le créer car "Runtime error 2 ..." indique clairement l'absence du fichier.

vérifie que ce n'est pas pal.txt.txt si tu l'a créé depuis le bloc notes et que tu n'affiches pas les extensions.
29 Novembre 2007 13:04:36

merci mon programme fonctionne a présent mais dès que je rentre la ligne
et que je presse le bouton entrer une fenetre m'indique une autre erreur
"ERROR runtime 105..."
HElp :( 
29 Novembre 2007 13:25:19

tu sais que tu peux rechercher la signification des erreurs, personne ne t'en empeche!

en l'occurrence celle ci indique que le fichier n'est pas ouvert pour l'ecriture.
Tom's guide dans le monde
  • Allemagne
  • Italie
  • Irlande
  • Royaume Uni
  • Etats Unis
Suivre Tom's Guide
Inscrivez-vous à la Newsletter
  • ajouter à twitter
  • ajouter à facebook
  • ajouter un flux RSS