Rechercher
Se connecter avec
S'enregistrer | Connectez-vous

Problème programme ADA avec "CASE"

Dernière réponse : dans Programmation
Partagez

Bonjour,

Je suis débutant avec ADA, et je voulais créer un programme permettant de coder un message avec comme base A vaut K .. B vaut L ainsi de suite.
Mais j'ai un problème que je n'arrive pas à résoudre.

Citation :
-- Codeur "Avocat"

WITH Ada.Text_IO;

PROCEDURE P_Codeur_Decrypteur IS

Max : CONSTANT Integer := 60;

Longueur : Integer;
Chaine : String (1 .. Max);
I : Integer;


BEGIN
Ada.Text_IO.Put("Saisir le message a coder : ");
Ada.Text_Io.Get_Line (Chaine, Longueur);
FOR I IN 1..Longueur LOOP
CASE Chaine(I..I) IS
WHEN 'A' =>
Chaine(I..I) := 'K';
END CASE;
END LOOP;
Ada.Text_Io.Put("Voici le message coder : ");
Ada.Text_Io.Put (Chaine(1..Longueur));
END P_Codeur_Decrypteur;


Merci d'avance pour votre aide,

Cordialement,

Syllox

Autres pages sur : probleme programme ada case

Lassé par la pub ? Créez un compte

Bonjour et bienvenue.

Merci d'utiliser [code] au lieu de [quote]. C'est plus logique et conforme au règlement.

--------------

ADA??? hum, c'est rare dans le coin comme compétence. En espérant que tu trouves quand même de l'aide ici.
Créer un nouveau sujet