exercices

Merci mosa
mais tu as confondu entre Pascal et le langage C dans la manipulation des matrices!

En Pascal, on déclare le type matrice d'entier 10x10 ainsi:

Code:

Type
  MATRICE = array[1..10,1..10] of integer;
Var
  M: MATRICE;

Ton point fort c'est que tu écris des codes sources sans les avoir compilés et c'est toujours très proche de la solution correcte syntaxiquement!

Salut, je veux poser une question svp ce site est visé pour qui ??????????????????

INFOMATH est un forum dont les deux thèmes principaux sont:
- les mathématiques
- la programmation informatique

Ce n'est pas dédié à une catégorie bien précise d'étudiants ou d'élèves.

Pour la question du palindrome j’ai demandé une solution récursive !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

C'est vrai. On n'a pas fait une version récursive. C'est intéressant de la faire.

merci pour la réponse

sorour a écrit:EX1
1/ Donner un module qui permet de remplir une matrice

2/ Donner un module qui permet de trier les lignes d'une matrice
3/ Donner un module qui permet d'afficher une matrice

EX2
1/ Vérifier qu'une chaîne ch ne contient que des lettres alphabétiques
2/ Tester que la chaîne est un palindrôme
3/ Détermiener le nombre des voyelles dans la chaîne

Remarques
Envisagez une solution récursive pour chaque module.
Une chaîne est palindrôme si elle est lue de la même maniere de gauche à droite et de droite à gauche.

Les exercices sont intéressants, je veux les faire, mais je préfère laisser le temps aux autres d'y travailler. Alors bon courage c'est du trés facile.

merci manianis, je sais que c'est banal pour vous mais pour un financier plus ou moins.

A mon avis, il ne faut jamais dire C'EST FACILE.

3/ Détermiener le nombre des voyelles dans la chaîne

désolé mes amis, c'est un peu dur pour moi avec la récursivité

Code:


var
  i , nb_voy : integer;
            ch : string;

begin
  write ('saisir une chaîne');
  read(ch);

nb_voy=0;

for i=1 to i=length(ch)  do
  begin
          if ((ch[i]='a') OR (ch[i]='A') OR (ch[i]='e') OR (ch[i]='E') OR (ch[i]='i') OR (ch[i]='I') OR                    (ch[i]='o') OR (ch[i]='O') OR (ch[i]='u') OR (ch[i]='U') OR (ch[i]='y') OR (ch[i]='Y')) then
              begin
                  nb_voy=nb_voy+1;
                end;
  end;

write('il existe', nb_voy,'dans cette chaîne');

end;


en fait, j'ai trouvé la diffidulté car il s'agit des procédures comme la saisie d'une matrice, et non pas des fonctions comme la factorielle

Déterminer le nombre de voyelles d'une chaîne de caractères avec un procédé récursif.

L'idée est que le nombre de voyelles d'une chaîne CH de n caractères, est égal au nombre de voyelles de cette chaîne CH privée de son dernier caractère auquel on ajoute 1 si le dernier caractère est Voyelle.

nombreVoyelle(CH,pos) = nombreVoyelle(CH,pos-1) + estVoyelle(CH[pos])

estVoyelle(c): fonction qui retourne 1 si c est une voyelle, 0 sinon.

J'espère que c'est clair.

Code:


prodedure estvoyelle (var ch : string);
var
      i : integer;
begin
    if ((ch[i]='a') OR (ch[i]='A') OR (ch[i]='e') OR (ch[i]='E') OR (ch[i]='i') OR (ch[i]='I') OR (ch[i]='o') OR (ch[i]='O') OR (ch[i]='u') OR (ch[i]='U') OR (ch[i]='y') OR (ch[i]='Y')) then
   
begin
   
estvoyelle=1;
   
else
      estvoyelle=0;

end;
end;

function nombrevoyelle (var ch : string ; var pos : integer);
var
      i : integer;
 
pos=length(ch);
begin

for i=pos down to i=1 do
begin
        nombrevoyelle=nombrevoyelle(ch;pos-1)+estvoyelle(ch[pos]);
end;
end;

begin
write('saisir une chaîne');
read(ch);
write('il existe',nombrevoyelle(ch,pos),'dans cette chaîne);
end.


mes amis qu'en pensez vous ?

methodiX a écrit:A mon avis, il ne faut jamais dire C'EST FACILE.

C'est toujours facile. Il faut des uniquement des connaissances

mosa a écrit:

Code:



function estvoyelle(c:char):boolean;
begin
    estvoyelle := UpCase(c) in ['A','E','O','I','U','Y'];
end;

function nombrevoyelle(var ch : string ; nv, i : integer):integer;
begin
  if (i <= length(Ch)) then begin
    if (estvoyelle(ch[i])) then
        nombrevoyelle:=nombrevoyelle(ch,nv+1,i+1)
    else
        nombrevoyelle:=nombrevoyelle(ch,nv,i+1)
  end else
    nombrevoyelle := nv;
end;

var ch : string;
begin
    write('saisir une chaîne : ');
    readln(ch);
    write('il existe ',nombrevoyelle(ch,0,1),' dans cette chaîne');
    readln;
end.

mes amis qu'en pensez vous ?

J'ai essayé de corriger votre solution.

tester si une chaîne est palindrôme

Code:


function test(ch:string):boolean;
begin
  if ch='' then test:=true
  else
    if ch[1]=ch[length(ch)] then begin
      delete(ch,1,1);
      delete(ch,length(ch),1);
      test:=test(ch);
    end
  else test:=false;
end;


Merci Sourour pour le code.
Est-il possible de remplacer :

Code:

      delete(ch,1,1);
      delete(ch,length(ch),1);
      test:=test(ch);

par :

Code:

      test := test(Copy(Ch,2,Length(Ch)-2));