PROGRAM QnA IMPLICIT NONE CHARACTER(LEN=50) :: QUESTION WRITE (*,*) "Bienvenue dans le programme QnA!" WRITE (*,*) "Posez-moi une question: " READ (*,'(A)') QUESTION IF (INDEX(UPCASE(QUESTION), "QU'EST-CE QUE CETTE APPLICATION WEB?") /= 0) THEN WRITE (*,*) "Cette application web est un éditeur de code Fortran avec un surligneur de syntaxe, autocomplétion et bien d'autres fonctionnalités!" WRITE (*,*) "Il vous permet d'écrire et d'éditer du code directement dans le navigateur, sans avoir besoin d'installer de logiciel." WRITE (*,*) "Le surligneur de syntaxe rend votre code magnifique, et la fonction d'autocomplétion vous aide à écrire du code plus rapidement et précisément." WRITE (*,*) "De plus, il dispose de nombreuses autres fonctionnalités comme la possibilité d'annuler/rétablir, copier ou exporter du code, travailler hors ligne, etc!" ELSE WRITE (*,*) "Eh bien, qu'attendez-vous, commencez à éditer votre code dès maintenant." END IF END PROGRAM QnA