Pascal : erreur de débutante..

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Pascal : erreur de débutante..

$temp

Bonjour,

Je tente de faire un programme en Pascal, mais apparement il doit y avoir un souci dans mon code, puisqu'il ne me renvoie rien de concluant.

Je copie ici un extrait du prog que je pense suffisant.
S'il faut que je mette tout le prog pour voir l'erreur, dites le moi.

program triage;

var
n:integer;
adresse:string[60];
f:text;

begin
writeln('Tapez le chemin complet du fichier :');
readln(adresse);
assign(f,adresse);
n:=0;

writeln('assign ok');

(*On compte le nb de lignes. *)
reset(f);
while not(eof(f)) do
begin
readln;
n:=n+1;
end;
writeln('La premiere boucle a compte ',n,'lignes ds le fichier.');
close(f);

Le but de ce que je fais là, c'est juste de compter le nb de lignes qu'il y a dans un fichier .txt
J'ai bien 'assign ok' qui s'affiche, mais je n'ai jamais le second writeln qui se réalise.

Est-ce que ma condition est mal fichue et ne se réalise donc jamais ? :heink:

Merci d'avance à ceux qui vondront bien me donner un coup de main.

Publicité

Aardpeer

Transmuteur grognon de Bluxte

manque pas le end. a la toute fin ? :heink:

$temp

Nan, j'ai juste copié un extrait comme indiqué dans mon premier message.
Y'a pas tout le programme, parce que ça me semble pas essentiel pour comprendre mon pb.

aldo13000

Salut ,

le readln; est a remplacer par readln(f);

Message cité 1 fois

---------------

the_bigboo

aldo13000 a écrit :

le readln; est a remplacer par readln(f);

Tout a fait, Au meme titre , plutot que de faire :

Code :

n:=n+1;

Préfere faire :

Code :

inc(n); { pour incrémenter }
dec(n); { pour décrémenter }

Aardpeer

Transmuteur grognon de Bluxte

Ca me rappelle le python pour l'incrémentation en n = n+1 ^^

$temp

Merci ! (et merci pour la fonction qui sert à incrémenter)
Effectivement c'est une erreur bien bete..

Message cité 1 fois
Message édité par $temp le 03-10-2006 à 00:03:11

el zozo

Stroumf Grognon

$temp a écrit :

Merci ! (et merci pour la fonction qui sert à incrémenter)
Effectivement c'est une erreur bien bete..

C'est parceque tu débute. Nous, on ne fait plus que des erreurs intelligentes

FORUM HardWare.fr

Programmation

Delphi/Pascal

Pascal : erreur de débutante..

Sujets relatifs
Besoin d'aide pour programmation Pascal	Erreur php de noobs...
erreur de syntaxe ???	erreur lorqu'on veut s'enregistrer sur mon forum
[ACCESS] Gestion erreur doublon VBA	erreur move_uploaded_file
Erreur SQL/ASP	[Résolu] Anjuta , erreur stdio.h
question d'une débutante en C++	Erreur ouverture Delphi 2005
Plus de sujets relatifs à : Pascal : erreur de débutante..

Page générée en 0.028 secondes