i need help in this problem please

alouizeineb a écrit:hi , please i need help to solve this problem , i tryed many times but i didn't found the right solution

c un exercice d'epreuve pratique d'informatique 2007

pour chercher le chiffre de chance d'une personne on possede comme suit : on additionne les chiffres composants la date de naissance de la personne concernée . au nombre obtenu , on refait le meme procédé jusqu'à ce qu'on obtienne un nombre composé d'un seul chiffre . ce nombre est le chiffre de chance .



soit la date de naissance suivante "29/09/199"
* on additionne les chiffres de la date de naissance : 2+9+0+9+1+9+9+9=48
*48 est composé de deux chiffres ,on refait le meme traitement : 4+8=12
*12 est composé de deux chiffres,on refait le mem traitement:1+2=3
*3 est composé d'un seul chiffre et c'est le chiffre de chance recherché.


question :

ecrire un programme pascal qui permettant de saisir la date de naissance d'une personne sous la forme d'une chaine de caractere "jj/mm/aa" (aucun controle ne sera effectué) puis d'appliuer la methode citée et d'afficher le chiffre de chance trouvé.

nb: la solution doit comporter au moin deux modules .



rani 7awelt fih l'exercice mais ma3raftch kifech na3mel l'addition mta3 les caractere , bon famma fonction VAL bech nbadlou mn string à integer , mais symbole hedhiya "/" mahiyech entir !
et l'addition du chiffres kifech bech na3emlou !!

Code:

"jj/mm/aaaa"
 1234567890

alouizeineb a écrit:hi , please i need help to solve this problem , i tryed many times but i didn't found the right solution

c un exercice d'epreuve pratique d'informatique 2007

pour chercher le chiffre de chance d'une personne on possede comme suit : on additionne les chiffres composants la date de naissance de la personne concernée . au nombre obtenu , on refait le meme procédé jusqu'à ce qu'on obtienne un nombre composé d'un seul chiffre . ce nombre est le chiffre de chance .



soit la date de naissance suivante "29/09/199"
* on additionne les chiffres de la date de naissance : 2 9 0 9 1 9 9 9=48
*48 est composé de deux chiffres ,on refait le meme traitement : 4 8=12
*12 est composé de deux chiffres,on refait le mem traitement:1 2=3
*3 est composé d'un seul chiffre et c'est le chiffre de chance recherché.


question :

ecrire un programme pascal qui permettant de saisir la date de naissance d'une personne sous la forme d'une chaine de caractere "jj/mm/aa" (aucun controle ne sera effectué) puis d'appliuer la methode citée et d'afficher le chiffre de chance trouvé.

nb: la solution doit comporter au moin deux modules .



rani 7awelt fih l'exercice mais ma3raftch kifech na3mel l'addition mta3 les caractere , bon famma fonction VAL bech nbadlou mn string à integer , mais symbole hedhiya "/" mahiyech entir !
et l'addition du chiffres kifech bech na3emlou !!

alouizeineb a écrit:

un tautogramme est une chaine dont chacun de ses mots commencent et se terminent par le meme lettre (sans sans distinction entre majuscule ou minuscule ).

exemple : la chaine "le lion lape le lait lentement" est un tautogramme .

lamia a écrit:

alouizeineb a écrit:

un tautogramme est une chaine dont chacun de ses mots commencent et se terminent par le meme lettre (sans sans distinction entre majuscule ou minuscule ).

exemple : la chaine "le lion lape le lait lentement" est un tautogramme .

c'est un texte dont tous les mots commencent par la même lettre seulement.

Code:

program chanceux;

procedure saisie_date(var ch : string);
begin
  repeat
    Writeln('Donner une date : ');
    Readln(ch);
  until (length(ch) > 0);
end;

function somme_chiffres(ch : string):integer;
var
  i, s : integer;
begin
  s:=0;
  for i:=1 to length(ch) do begin
    if (ch[i] in ['0'..'9']) then s:=s+ord(ch[i])-ord('0');
  end;
  somme_chiffres:=s;
end;

procedure decomposition(n:integer; var d, u : integer);
begin
  d := n div 10;
  u := n mod 10;
end;

var
  dt : string;
  d, u, s : integer;
begin
  saisie_date(dt);
 
  s := somme_chiffres(dt);
  Writeln(s);
 
  decomposition(s, d, u);
  while (d <> 0) do begin
    s := u + d;
    Writeln(u, '+', d, '=', s);
    decomposition(s, d, u);
  end;
 
  Writeln('Nombre chanceux : ', s);
  Readln;
end.

alouizeineb a écrit:c un un autre exercice :


ecrire un programme pascal , permettant de saisir une chiane de caractere composé uniquement de lettres et d'espace (on suppose que deux mots cosécuitifs sont séparés par un seul espace ); puis d'afficher un message indiquant si cette chaineest "tautogramme" ou non .

un tautogramme est une chaine dont chacun de ses mot commence et termine par le meme lettre (sans sans distinction entre majuscule ou minuscue ).

exemple : la chaine "le lion lape le lait lentement" est un tautogramme .

bon chwi en 3eme annee informatique , et ça c l'examen du baccalauriat math +tech + sc.exp

mais com mem 3eme info et bac (tech , math, sc.exp) ont le meme programme donc il faut qu je connaitre how to solve this problem !


merci d'avance

Code:

program tautogramme;

var
  ch : string;
  c : char;
  p : integer;
  t : boolean;
begin
  repeat
    Write('Entrer une chaine non vide : ');
    Readln(ch);
  until (Length(ch) > 0) and (ch[1] <> ' ') and (ch[Length(ch)] <> ' ') and
        (pos('  ', ch) = 0);
 
  c:=ch[1];
  t:=true;
  while (t) and (ch <> '') do begin
    t := (c = ch[1]);
    p := Pos(' ', ch);
    if (p = 0) then p:=length(ch);
    delete(ch, 1, p);
  end;
  if (t) then 
    Writeln('C''est bien un tautogramme')
  else
    Writeln('Cette chaine n''est pas un tautogramme');
   
  Readln;
end.

manianis a écrit:First of all you have to have to practice your english. The guys in London city will lough while reading our scrambled meaningless english.

manianis a écrit:

Code:

program tautogramme;

var
  ch : string;
  c : char;
  p : integer;
  t : boolean;
begin
  repeat
    Write('Entrer une chaine non vide : ');
    Readln(ch);
  until (Length(ch) > 0) and (ch[1] <> ' ') and (ch[Length(ch)] <> ' ') and
        (pos('  ', ch) = 0);
 
  c:=ch[1];
  t:=true;
  while (t) and (ch <> '') do begin
    t := (c = ch[1]);
    p := Pos(' ', ch);
    if (p = 0) then p:=length(ch);
    delete(ch, 1, p);
  end;
  if (t) then 
    Writeln('C''est bien un tautogramme')
  else
    Writeln('Cette chaine n''est pas un tautogramme');
   
  Readln;
end.

alouizeineb a écrit:

manianis a écrit:First of all you have to have to practice your english. The guys in London city will lough while reading our scrambled meaningless english.

hey i know im not good in english !!!! but im working to make it better



thanks a lot manianis for your help

manianis a écrit:Très bien mariem.

Code:

program chance;
uses wincrt;
type
chaine = string[10];
{------------------------------------------------------}
function verif(ch : chaine): boolean;
var
mm,jj,aa,e:integer;
begin
val(copy(ch,1,2),jj,e);
val(copy(ch,4,2),mm,e);
val(copy(ch,7,4),aa,e);
if not(jj in [1..31]) or not(mm in [1..12]) or(e<>0) then
begin
verif:=false;
end
else
begin
verif:=true;
end;
end;
{------------------------------------------------------}
procedure saisir (var ch :chaine);
begin
    repeat
    begin
      write('entrer votre date de naissance jj/mm/aaaa: ');
      readln(ch);
    end
    until (verif(ch)) and (length(ch)=10);
end;
{-------------------------------------------------------}
function lucky(ch:chaine):chaine;
var
s,i,d,e:integer;
begin
while (length(ch) <>1) do
begin
s:=0;
    for i:=1 to length(ch) do
    begin
        if ch[i] in ['0'..'9'] then
        begin
        val(ch[i],d,e);
        s:=s+d;
        end;
    end;
str(s,ch);
end;
lucky:=ch;
end;
{-------------------------------------------------------}
var
date:chaine;
begin
saisir(date);
writeln('votre chiffre chance est : ',lucky(date));
end.