barbu23 a écrit:et le language concerné, c'est : Pascal.
barbu23 a écrit:Bonjour:
Pouvez vous me dire pourquoi le programme suivant ne marche pas ?!
Le voiçi ce programme:
program colorier;
uses wincrt;
type couleur=(bleu,vert,jaune,rouge,gris);
var coul1,coul2:couleur;
begin
coul1:=bleu;
Tu as définit un nouveau type couleur que l'on ne peut pas écrire puisqu'après tout tu sais pas ce que ça vaut toi même !
program colorier;
uses wincrt;
type couleur=(bleur,vert,jaune,rouge,gris);
procedure affich_coul(col : couleur);
begin
case col of
bleu : writeln('bleu');
vert : writelnt('vert');
jaune : writeln('jaune');
rouge : writeln('rouge');
gris: writeln('gris');
end;
var coul1,coul2: couleur;
begin
coul1 :=bleu;
coul2 := succ(coul1);
coul1 := pred(coul2);
procedure affich_coul;
end.
Pascal a écrit:PROGRAM Colors;
USES crt;
TYPE couleur=(bleu,vert,jaune,rouge,gris);
VAR Coul1, Coul2 : couleur;
PROCEDURE Affiche_Couleur ( Col : Couleur ) ;
BEGIN
...CASE Col OF
......bleu : Writeln('Bleu');
......vert : Writeln('Vert');
......jaune : Writeln('Jaune');
......rouge : Writeln('Rouge);
......gris : Writeln('Gris');
...END;
END;
BEGIN
...Coul1 = bleu;
...Coul2 = Succ(Coul1);
...Affiche_Couleur(Coul1);
...Affiche_Couleur(Coul1);
END.
Utilisateurs parcourant ce forum : Aucun utilisateur enregistré et 14 invités
Tu pars déja ?
Identification
Pas encore inscrit ?
Ou identifiez-vous :