Discussion :

[Invité]

Bonjour

Enoncé :

Soit le fichier texte 'ville.txt' qui existe sur c:\.
Chaque ligne de fichier contient un nom de ville.
La longueur maximale d'une ligne du fichier est de 40 caractères.
Ecrire en Pascal une fonction booléenne qui ouvre le fichier et vérifie l'existence d'une ville v dans le fichier ville.txt.

SVP corrigez-moi cette source merci

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
program ex1serie1;
uses wincrt;
var v:string ; f:text;
function verif(var f:text;v:string):boolean;
var ch:string; 
 
begin
verif:=false;
 
while( not eof(f) ) do
begin
while ch<>v do
 
readln(f,ch);
end;
 
if v=ch then
 
verif:=true;
 
 
 
end;
begin
writeln('saisir Ville');
repeat
readln(v);
until length(v)<40;
assign(f,'C:\ville.txt');
reset(f);
 
writeln(verif(f,v));  close(f);
end.