Traduire un algorithme d'écriture dans un fichier en Pascal

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:

---

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"

bonjour,

Code:

---

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:

---

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:

---

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!)

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...

EN effet, passé outre :mouarf:

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

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:

---

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.

---

Qai,

Citation:

---

Envoyé par 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:

---

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. :)

En gros je doit utiliser le type "CHAINE" ?