program exo1;
type
sujet = (le_chat, toto);
verbe = (cherche, prend, cache);
adverbe = (soigneusement, encore);
complement = (le_bonbon, la_souris);
var { il n'y a
pas de: integer :-) }
s: sujet;
v: verbe;
a: adverbe;
c: complement;
begin
writeln('Exercice1 - www.Software-DS.com');
writeln;
writeln('Remarque (Timan): on ne peut pas utiliser le chat,
donc on doit');
writeln('utiliser le_chat d''ou la debilite de ne pas
utiliser d''entier.');
writeln('Personnellemnt je n''utilise jamais ce genre de
type, et');
writeln('je n''ai jamais trouve de code source qui utilise
ce genre de type !');
writeln;
for s := le_chat to toto do
for v := cherche to cache do
for a := soigneusement to encore do
for c := le_bonbon to la_souris do
begin
write(s, ' ', v, ' ', a, ' ', c, '.');
writeln;
end;
writeln;
writeln('©2001 All Rights Reserved to
www.Software-DS.com');
{ ©2001 All
Rights Reserved to http://www.Software-DS.com
16/10/01 }
end.
|