Discussion :

[xivix81]

Bonjour,

Donc voilà j'ai un petit problème, me faudrais réaliser se petit programme :

1 - ecrite a l'écran : " donner votre code "

2 - lire le code

3 - si le code est egal a "azerty" :

a - Effacer le fichier TEXTE.TXT

b - Ecrire "fichier effacer"

4 - Si le code est mauvais :

a - Ecrire "Code erroner, le fichier et sauver"

5 - QUITER

¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤

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
PROGRAM TEXTE; 
USES Dos,Crt,
VAR 
      Code char;
Begin 
    Writeln('Code?'); 
    Readln(Code); 
    If Code = 'azerty'; 
    begin 
{JE NE SAIS PAS SUPPRIMER UN FICHIER} 
        Writeln('fichier effacer'); 
    END;
    else 
    begin
        Writeln('Code erroner, le fichier et sauver'); 
    END; 
END.

¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤

Déjà Ce programme "rikiki" ne marche pas, je ne sais pas effacer un fichier et je ne sais pas si le type char pour le code et le type le mieux aproprié.

Merci d'avance de votre aide.

Xivix


PS : le fichier TEXTE.TXT se trouve dans "C:\TP7\TEXTE\TEXTE.TXT"

[Tux++]

bonjour,

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
PROGRAM TEXTE;
USES 
      Dos,Crt,
VAR 
     Code : char;
Begin 
       Writeln('Code?'); 
       Readln(Code); 
       If Code = 'azerty' then
       begin 
            {JE NE SAIS PAS SUPPRIMER UN FICHIER} 
            Writeln('fichier effacé'); 
       end
       else 
       begin 
            Writeln('Code erroné, fermer? le fichier et sauver'); 
       end; 
 
End.

Alors déja merci de faire attention à l'orthographe et à l'indentation et n'oublie pas les balises




Pour les fichiers, tout est dans la faq...

Déja tu dois assigner ton fichier, l'ouvrir en lecture ou en écriture selon les besoins

ex:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
var
    F: text;
 
assign(F,'tonfichier.txt');
rewrite(F)  ; {ou reset(F) selon le cas}

Effacer un fichier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

erase(F);

Fermer et sauver un fichier :

Il sera sauvé si tu l'as ouvert en écriture et que tu l'as modifié...
Close(F); (toujours fermer un fichier!)

[ToTo13]

Bonjour,

mais cours de Pascal remontent au début de mes études, alors corrigez moi si je me trompe (je supprimerai mon message).
Je pense que le ";" à la fin du if juste avant le Begin/End ne devrait pas être là... mais un Then serait mieux...

[Tux++]

EN effet, passé outre

tout comme if...THEN Begin ...End else Begin ...End;

[xivix81]

Voilà le problème du fichier est réglé mais j'ai toujours le soucis avec le code:
Chaque fois que je rentre n'importe quoi, le fichier et sauver ( ça c'est bon ), Mais le Hic est lorsque j'inscrit la bonne combinaison "azerty", le fichier est qu'en même sauvé alors que la combinaison est bonne.

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
PROGRAM TEXTE;
    USES
        Dos,Crt;
 
    VAR
        code : char;
        f : Text;
 
    BEGIN
        Assign(f,'TEXTE.TXT');
        rewrite(f);
        Writeln(f,'BONJOUR');
        close(f);
        writeln('Donner votre code :');
        Readln(code);
        If code =  'azerty' then
            erase(f)
        else
           Writeln('fichier sauv‚');
        Writeln ('au revoir');
        delay(5000);
    END.
end.

[droggo]

Qai,

Voilà le problème du fichier est réglé mais j'ai toujours le soucis avec le code:
Chaque fois que je rentre n'importe quoi, le fichier et sauver ( ça c'est bon ), Mais le Hic est lorsque j'inscrit la bonne combinaison "azerty", le fichier est qu'en même sauvé alors que la combinaison est bonne.

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
PROGRAM TEXTE;
    USES
        Dos,Crt;
        
    VAR
        code : char;
        f : Text;
        
    BEGIN
        Assign(f,'TEXTE.TXT');
        rewrite(f);
        Writeln(f,'BONJOUR');
        close(f);
        writeln('Donner votre code :');
        Readln(code);
        If code =  'azerty' then
            erase(f)
        else
           Writeln('fichier sauv‚');
        Writeln ('au revoir');
        delay(5000);
    END.
end.

Une variable de type Char n'est pas une chaîne de caractère, mais un seul caractère.

[xivix81]

En gros je doit utiliser le type "CHAINE" ?