J'ai besoin d'aide avec quelques lignes de code en PASCAL. Je viens de commencer à programmer en PASCAL et j'aimerais savoir où se trouvent mes erreurs. Je n'arrive pas à compiler ces lignes de code:
 
PROGRAM NameRegistration;
 
 VAR
  FileName : TEXT;
  FirstName, LastName : TEXT;
  Age, Height, Weight : INTEGER;
 
BEGIN
 
 WRITELN ('Please enter your First Name: ');
 READLN (FirstName);
 
 (* ---- Beginning of Error Control ---- *)
   
 IF FirstName = '' THEN
 
  BEGIN
   WRITELN ('<<You must enter a First Name!>>');
   READLN;
   WRITELN;
   WRITELN ('Please enter your First Name: ');
   READLN (FirstName);
  END;
 
 
 (* ------- End of Error Control ------- *)
 
 WRITELN ('Please enter your Last Name: ');
 READLN (LastName);
 WRITELN ('Please enter your Age: ');
 READLN (Age);
 WRITELN ('Please enter your Height: ');
 READLN (Height);
 WRITELN ('Please enter your Weight: ');
 READLN (Weight);
 WRITELN;
 WRITELN ('[Hit Enter to Begin Process]');
 READLN;
 
 (* --- Beginning of File Operations --- *)
 
 ASSIGN (FileName, 'C:\WINDOWS\DESKTOP\', LastName, '.txt');
 REWRITE (FileName);
 WRITELN (FileName, 'First Name: ', FirstName);
 WRITELN (FileName, 'Last Name: ', LastName);
 WRITELN (FileName, 'Age: ', Age);
 WRITELN (FileName, 'Weight: ', Weight);
 WRITELN (FileName, 'Height: ', Height);
 CLOSE (FileName);
 
 (* ------ End of File Operations ------ *)
END.  

Pascal c loin ...
 
Il manque pas un USE CRT; ou USES CRT;
 
un truc comme ça (bibliothèque de fonction)
en début de programme ?

Et ça m'étonnerait que ça marche ...
 
ASSIGN (FileName, 'C:\WINDOWS\DESKTOP\', LastName, '.txt');
 
Un coup d'aide sur le ASSIGN pour vérifier la syntaxe
serait pas 2 trop ...

tu devrais mettre un titre plus explicite

Et puis tu devrais aussi mettre le ou les messages d'erreur du compilateur, puisque tu n'arrives pas à compiler.
 
Le compilateur donne toujours précisément où il voit une erreur, et quelle erreur il voit. C'est pluitôt pratique, vu que nous ne sommes pas des compilateurs ambulants (sinon on n'aurait pas besoin d'un compilateur pour vérifier nos programmes).

Et puis c'est pas propre de faire
FileName : TEXT;
FirstName, LastName : TEXT;
C'est mieux tout dans la meme ligne  
 
Et puis la partie IF machin = '' bah c'est pas beau non plus    
En pascal ya pas une routine do until ? marquer d'entrer le firstname tant qu'on n'entre rien ?

Purée Neosparky t'as bien fait de passer !
C ta fête today  

Merci pour les commentaires. Je ne suis qu'un simple petit programmeur qui espère exceler dans le futur. Anyways!!! Merci!

PROGRAM NameRegistration;
 
 VAR
  FirstName, FileName : TEXT;
  Age, Height, Weight : INTEGER;
 
BEGIN
 
 WRITELN ('Please enter your First Name: ');
 READLN (FirstName);
 
 (* ---- Beginning of Error Control ---- *)
   
 IF FirstName = '' THEN
 
  BEGIN
   WRITELN ('<<You must enter a First Name!>>');
   READLN;
   WRITELN;
   WRITELN ('Please enter your First Name: ');
  END;
   
 (* ------- End of Error Control ------- *)
 
 WRITELN ('Please enter your Age: ');
 READLN (Age);
 WRITELN ('Please enter your Height: ');
 READLN (Height);
 WRITELN ('Please enter your Weight: ');
 READLN (Weight);
 WRITELN;
 WRITELN ('[Hit Enter to Begin Process]');
 READLN;
 
 (* --- Beginning of File Operations --- *)
 
 ASSIGN (FileName, 'C:\WINDOWS\DESKTOP\test.txt');
 REWRITE (FileName);
 WRITELN (FileName, 'First Name: ', FirstName);
 WRITELN (FileName, 'Age: ', Age);
 WRITELN (FileName, 'Weight: ', Weight);
 WRITELN (FileName, 'Height: ', Height);
 CLOSE (FileName);
 
 (* ------ End of File Operations ------ *)
END.  
 
 
Bon quand je compile ces ligne de codes dans un compilateur, il me donne ces 2 erreurs:
 
ERROR:  (18,5): Type mismatch   <----- le IF
ERROR:  (43,37): Invalid expression   <------ La partie FirstName en gras
 
Je ne vois pas les erreurs dans ces lignes... p-e vous en voyez?

Utilise string à la place de text
 
FirstName, FileName : TEXT;
=>  
Pour lire une variable de type TEXT ça serait
un read que tu devrais utiliser pour parcourir
les lignes de ton texte ...

Oui, comme dit vttman2, le type TEXT en Pascal n'est pas un type "chaine de caractères de longueur indéterminée", mais un type "fichier texte". Et on ne peut comparer une variable de type fichier à une variable de type chaine de caractères ('' est de type string).

Ahh que je suis con! Je viens juste de comprendre. Je me suis melangé avec du VB c'est pour ca que je pense toujours texte et pas string...
 
En passant, ca fonctionnne enfin. La il faut juste que je trouve une meilleur facon de faire mon controle d'erreur parce qu'un simple IF THEN ne marche pas. Quelques idées?
 
Merci Tout le monde!

 
Ça devrait aller.
Si tu veux qu'il marque à chaque fois le "please enter..." il suffit de le mettre après le repeat au lieu de le mettre avant.

une fois de plus, merci encore pour votre aide. Vous me verrez surement plus tard avec de nouvelles questions concernant PASCAL.