Répondre :
# Définition de la fonction TestComplement
TestComplement <- function(brin1, brin2) {
# Vérifier si les deux brins ont la même taille
if (nchar(brin1) == nchar(brin2)) {
complementaire <- TRUE
# Vérifier si les brins sont complémentaires
for (i in 1:nchar(brin1)) {
if (!(brin1[i] == "A" & brin2[i] == "T" ||
brin1[i] == "T" & brin2[i] == "A" ||
brin1[i] == "C" & brin2[i] == "G" ||
brin1[i] == "G" & brin2[i] == "C")) {
complementaire <- FALSE
break
}
}
if (complementaire) {
return(1) # Les brins sont complémentaires
} else {
return(0) # Les brins ne sont pas complémentaires
}
} else {
return(0) # Les brins n'ont pas la même taille
}
}
# Programme principal
cat("Entrez le premier brin d'ADN : ")
brin1 <- scan(what="character", n=1)
cat("Entrez le deuxième brin d'ADN : ")
brin2 <- scan(what="character", n=1)
# Utilisation de la fonction TestComplement
resultat <- TestComplement(brin1, brin2)
# Affichage du résultat
if (resultat == 1) {
cat("Brins complémentaires\n")
} else {
cat("Pas de complémentarité entre les brins\n")
}
Merci d'avoir visité notre site Web dédié à Informatique. Nous espérons que les informations partagées vous ont été utiles. N'hésitez pas à nous contacter si vous avez des questions ou besoin d'assistance. À bientôt, et pensez à ajouter ce site à vos favoris !