aide turbo pascal

[eric-sson]

Bonsoir,

j'aimerais bien faire un programme en turbo pascal qui au départ te demande un mot de passe , si ce dernier est faux alors écrire ' veuillez réessayer a nouveau :'
et si il est vrai alors écrire mot de passe correct

j'ai essayer avec celui la mais il me donne pas ce que je veux vraiment!!

program password;
uses wincrt;
var code:boolean;
essai:string;
const levraicode='ordinateur';
begin
while code=false do
begin
write('entrer le password: ');
readln (essai);
if essai =levraicode then code:=true;
begin
if code=true then writeln('mot de passe correct ');
end;
end;

end.


j'espère bien que vous pourrais m'aider!!
-----

[invite765732342432]

Quelques remarques:
- plutôt que dire "il me donne pas ce que je veux vraiment", il aurait été plus simple que tu dises ce que tu obtiens (c'est plus facile pour trouver les bugs)
- la variable "code" n'est pas initialisée, je suppose que c'est ça ton problème
- j'ai pas bien compris cette partie (mais ça fait longtemps que je n'ai pas fait de TP):
if essai =levraicode then code:=true;
begin
if code=true then writeln('mot de passe correct ');
end;
pourquoi as-tu un bloc begin/end sans instruction if/while/... associée ?

[curioso]

uses wincrt est inutile
la variable code doit être initialisée.
un begin et un end sont inutiles.
Le code est testé il fonctionne.

program password;
var code:boolean;
essai:string;
const levraicode='ordinateur';
begin
code := false;
while code=false do
begin
write('entrer le password: ');
readln (essai);
if essai =levraicode then code:=true;
if code=true then writeln('mot de passe correct ');
end;

end.

[eric-sson]

merci beaucoup pour ton aide curioso ca a marché

mais pour la (uses wincrt) elle est indispensable au Turbo Pascal 1.5

merci encore !!

[A voir en vidéo sur Futura]