Pour enregistrer le réponse dans un fichier texte, il faut que tu déclare une variable de type Text
après tu doit l'ouvrir, si il n'existe pas, c'est l'instruction Rewrite(f), sinon pour l'ouvrir en mode ajout/lecture, c'est reset(f);
Après pour écrire dedans tu utilise Writeln ou write, ça dépend si tu veut un retour chariot à la fin de la ligne
Writeln(f,'Ceci est écrit dans le fichier');
et pour le lire, c'est pareil avec Readln ou read
Avec la commande Reset, le curseur est placé au début du fichier
code démo :
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
|
Program demo;
uses crt;
var
f : Text;
MaLigne : string;
begin
{écriture}
assign(f,'c:\test.txt'); //Assigner F au nom du fichier
rewrite(f);
Writeln(f,'Une ligne à écrire');
close(f);
{Lecture}
reset(f);
Readln(f,MaLigne);
Writeln('Le contenu du fichier est ',MaLigne);
readln;
close(f);
end. |
Tu ne dois JAMAIS oublier de fermer le fichier, sinon tu auras des soucis 
writeln('voullez vous continue o/n ?');
Pas très utile à vrai dire 
En général ce que je fais moi, c'est que je fais une variables de type boolean et une boucle repeat until
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
|
program demo;
uses crt;
var e: char;
continue : boolean;
begin
repeat
writeln('Voulez vous recommencer o/n ?');
repeat
e := readkey;
until upcase(e) in ['O','N'];
case upcase(e) of
'O' : Continue := true; // l'utilisateur veut continuer
'N' : continue := false; // Il ne veut pas continuer
end;
until not continue;
end. |
Equation du deuxième ordre ? J'ai toujours appelé ça équation du second degré ou de degré 2
Partager