Problème programme ADA avec "CASE"

syllox

Nouveau membre
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.

-- 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
 

zeb

Modérateur
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.
 
Vous devez vous inscrire ou vous connecter pour répondre ici.
Derniers messages publiés
Statistiques globales
Discussions
730 098
Messages
6 717 088
Membres
1 586 286
Dernier membre
petitangebleu1977
Partager cette page
Haut