programme en pascal

[invite89e98d85]

bonjour,
j'ai écrit un programme en langage pascal et ça ne veut pas se compiler , aidez moi à trouver l'erreur svp !!

program nationality;
uses wincrt;
var
town:string;
begin
writeln('where do you come from');
readln(town);
if town:='tunisia' then writeln('you are tunisian');
else town:='usa' then writeln('you are american');
end.
-----

[invite5420aad7]

Bonjour,

je pense que le probleme vient de else,
soit tu mets un else if (condition)
soit un else (sans condition)
je n'ai jamais fait de pascal mais d'un point de vu algo pour moi l'erreur se situe là.

Cordialement

[inviteccac9361]

Bonjour,

if town:='tunisia' then writeln('you are tunisian');

C'est une erreur fréquente, les symboles := servent à définir une valeur pour une variable.
Or ici, nous voulons tester une valeur.
Le symbole sera donc =

Corrigé, ça donne ça :

if town='tunisia' then writeln('you are tunisian');

[invite89e98d85]

merci ,cette erreur a été corrigée , mais une autre est apparue:

else town='usa' then writeln('you are american');

cette ligne est sélectionnée et c'est écrit " 113 erreur dans l'instruction"

[A voir en vidéo sur Futura]

[inviteccac9361]

merci ,cette erreur a été corrigée , mais une autre est apparue:

else town='usa' then writeln('you are american');

cette ligne est sélectionnée et c'est écrit " 113 erreur dans l'instruction"

il faut enlever le point virgule avant le else

Comme ça :

if town:='tunisia' then writeln('you are tunisian') else town:='usa' then writeln('you are american');

Voir un exemple ici :
http://baudrandmaths.free.fr/pascal/turbo3.pdf

[erik]

bbdoll avait déja signalé cette erreur : il manque un if après le else

[inviteccac9361]

bbdoll avait déja signalé cette erreur : il manque un if après le else

oui exact.

Je reprend corrigé:

if town='tunisia' then writeln('you are tunisian') else if town='usa' then writeln('you are american');

[invite89e98d85]

merci beaucoup tout le monde
le problème est résolu