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.
Merci d'avance pour votre aide,
Cordialement,
Syllox
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