Se connecter avec
S'enregistrer | Connectez-vous

PASCAL Runtime ERROR!!!!!!!

Dernière réponse : dans Programmation

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

Lassé par la pub ? Créez un compte

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...
Lassé par la pub ? Créez un compte
Tom's guide dans le monde