Inverse d'elements d'un tableau

Voilà si j'ai bien compris j'ai fait ainsi:

Code:

function inverse(ch:string):string;
  var
  i,j:integer;
  type ch1=array[1..10]of string[30];
  begin
    j:=1;
    for i:=length(ch) downto 1 do;
      begin
        ch1[j]:=ch[i];
        j:=j+1;
      end;
 
    inverse:=ch1;
  end;

Mais j'ai une erreur de compilation au niveau de cette fonction.

Je sais pas si la syntaxe est correcte

C'est incorrect. Tu dois déclarer les types en haut du programme comme suit:

Code:

Program blabla;
uses wincrt;
type
  Tab = array[1..100] of string[30];


ca marche pas meme en declarant ainsi le type tab

je vais voir le soir !

voici ma proposition : (fonctionnelle)

Code:


program tab_claire;
// uses wincrt;
type tab=array [1..10] of string;
var n:integer;
    p,q:tab;             
procedure taille(var nn:integer);
  begin
    repeat
      write('donner la taille');
      readln(nn);
    until nn in[1..10] ;
  end;
 
function verification(ch:string):boolean;
var i:integer;
    verif:boolean;
  begin
    i:=1;
    verif:=true;
    while(verif=true)and(i<=length(ch))do
        begin
        if not (ch[i] in ['0'..'9'])then
          verif:=false
        else
          i:=i+1;
        end;
    verification:=verif;
  end;

procedure saisie(nn:integer;var pp:tab);
var i:integer;
  begin
  for i:=1 to nn do
    repeat
      write('pp[',i,']=');
      readln(pp[i]);
    until verification(pp[i]);
  end;
 
function inverse(ch:string):string;
  var
  i:integer;
  ch1:string;
begin
  ch1:='';
  for i:=1 to length(ch) do
    begin
      ch1:=ch[i]+ch1;
    end;
   
  inverse:=ch1;
end;
 
procedure tableau_inverse(nn:integer; pp:tab ;var qq:tab);
  var i:integer;
  begin
    for i:=1 to nn do
    begin
      qq[i]:=inverse(pp[i]);
      end;
  end;

procedure affiche_tableau_inverse(nn:integer;qq:tab);
  var i:integer;
  begin
    for i:=1 to nn do writeln(qq[i]);
  end;
 
 begin
  taille(n);
  saisie(n,p);
  tableau_inverse(n,p,q);
  affiche_tableau_inverse(n,q);
  readln;
 end.

Qu'est-ce qui a été modifié par rapport à la solution de début?

Merci Manianis.

Ce qui est modifié est le code de la fonction inverse.

mais je comprend pas la difference entre :

Code:


ch1:='',
for i:=length(ch) downto 1 do;
begin
  ch1:=ch1+ch[i];
end;

et:

Code:

 
ch1:='',
for i:=1 to length(ch) do
begin
  ch1:=ch[i]+ch1;
end;

Il faut faire attentions à l'usage abusif des points virgules.

for i:=length(ch) downto 1 do;

ne fait rien.

ah d'accord

merci bien manianis. Il faut faire attention!

AHHHH le probleme n'etait qu'un point virgule!!
J'ai déjà essayer cette solution avec le down to mais ca fonctionnait pas à cause de de point virgule!!! maintenant j'ai essayer encore une fois et ca fonctionne.

MERCI.

C'est l'essentiel : lamia

Je voudrais bien savoir pourquoi la 1ere solution que j'ai donné ne fonctionne pas

ch1 := ''; { ch1 est initialement vide }
j := 1;
for i:=length(ch) downto 1 do begin
ch1[j] := ch[i]; { la chaine est vide comment modifier le jème caractère ?}
j := j + 1;
end;

Ah ok, je vois maintenant c'est quoi le probleme.
Merci beaucoup

avec plaisir