function get

function get - Ada - Programmation

Marsh Posté le 17-10-2010 à 14:31:57    

Bonjour  
 
J'aimerais remplir un tableau à l'aide d'une fonction récursive mais je suis totalement bloqué :/
Est ce que quelqu'un à une idée ?


Message édité par mirlamber le 17-10-2010 à 14:47:26
Reply

Marsh Posté le 17-10-2010 à 14:31:57   

Reply

Marsh Posté le 17-10-2010 à 15:50:39    

Bonjour,
 
 

Code :
  1. with Text_Io;
  2. use Text_Io;
  3.  
  4. procedure Main is
  5.  
  6.   type T_Char_Array is array (Positive range <> ) of Character;
  7.  
  8.   function Recursive_Get_Char_Array(Tab : in T_Char_Array;
  9.                                     index : in Positive) return T_Char_Array is
  10.      New_Tab : T_Char_Array(Tab'Range) := Tab;
  11.   begin
  12.      if Index <= Tab'last then
  13.         Get_Immediate(New_tab(Index));
  14.         Put(New_tab(Index));
  15.         return Recursive_Get_Char_Array(New_Tab, Index+1);
  16.      else
  17.         return Tab;
  18.      end if;
  19.   end Recursive_Get_Char_Array;
  20.  
  21.   Mon_Tab : T_Char_Array(1..10);
  22. begin
  23.   Put("Entrez une texte de 10 caractères : " );
  24.   Put(Character'Val(10) & "Votre texte : " &
  25.         String(Recursive_Get_Char_Array(Mon_Tab, 1)));
  26. end Main;


Message édité par Profil supprimé le 17-10-2010 à 16:05:13
Reply

Marsh Posté le 17-10-2010 à 15:55:29    

De rien.  :o

Reply

Marsh Posté le 18-10-2010 à 10:35:32    

A mon avis, ça passera pas trois fois.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed