Source : Ahmed Fessi

Tâche : Écrire un programme qui lit le nom d'une des bases constituants l'ADN puis affiche sa base complémentaire. Votre programme doit aussi afficher un message d'erreur dans le cas où la base n'existe pas.

Exemple :

• Entrée1 : B="A"
• Sortie1 : La base correspondante est T

• Entrée2 : B="C"
• Sortie2 : La base correspondante est G

• Entrée3 : B="D"
• Sortie3 : Erreur

Correction Problème : Bases d'ADN

Par : Ahmed Fessi

Pascal :

program ADNBase; uses wincrt; var      base:char; begin      writeln('Donner la base de l''ADN');      readln(base);      base:=UpCase(base);      Case base of           'A':writeln('T');           'T':writeln('A');           'C':writeln('G');           'G':writeln('C');           else writeln('Entrée non valide');      end; end.