Forum INFOMATH
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Le Deal du moment : -20%
Pack Gigabyte Ecran PC Gamer 27″ LED M27Q ...
Voir le deal
749 €

i need help in this problem please

+3
lamia
manianis
alouizeineb
7 participants

Aller en bas

i need help in this problem please Empty i need help in this problem please

Message par alouizeineb Ven 8 Fév - 13:39

hi , please i need help to solve this problem , i tryed many times but i didn't found the right solution Sad

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 !!
Shocked
alouizeineb
alouizeineb
Entier Naturel
Entier Naturel

Nombre de messages : 32
Localisation : tozeur
Réputation : 0
Points : 6014
Date d'inscription : 11/10/2007

Feuille de personnage
Capacité linguistique:
i need help in this problem please Left_bar_bleue1000/1000i need help in this problem please Empty_bar_bleue  (1000/1000)

Revenir en haut Aller en bas

i need help in this problem please Empty Re: i need help in this problem please

Message par alouizeineb Ven 8 Fév - 13:56

c un un autre exercice : geek


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
I love you
alouizeineb
alouizeineb
Entier Naturel
Entier Naturel

Nombre de messages : 32
Localisation : tozeur
Réputation : 0
Points : 6014
Date d'inscription : 11/10/2007

Feuille de personnage
Capacité linguistique:
i need help in this problem please Left_bar_bleue1000/1000i need help in this problem please Empty_bar_bleue  (1000/1000)

Revenir en haut Aller en bas

i need help in this problem please Empty Re: i need help in this problem please

Message par manianis Ven 8 Fév - 23:29

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

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 !!
Shocked

je commence par vous donner une petite indication :
La chaine est composée de dix caractères dont huit sont des chiffres :
Code:
"jj/mm/aaaa"
 1234567890
Il vous faudra :
- initialiser une variable s à zéro
- parcourir la chaine (ch par exmple)
- si le caractère est un chiffre ['0'..'9'] on pourra faire : s <-- s+ord(ch[i])-ord('0')
- décomposer la somme en dixaines et unités
- tant que les dixaines sont non nuls
- faire la somme des dixaines et unités
- décomposer la somme en dixaine et unités
- afficher le résultat càd les unités trouvées

manianis
Nombre Réel
Nombre Réel

Masculin
Nombre de messages : 975
Localisation : Tunisie
Réputation : 4
Points : 6016
Date d'inscription : 11/10/2007

Feuille de personnage
Capacité linguistique:
i need help in this problem please Left_bar_bleue999/1000i need help in this problem please Empty_bar_bleue  (999/1000)

http://manianis.sitesled.com/

Revenir en haut Aller en bas

i need help in this problem please Empty Re: i need help in this problem please

Message par lamia Ven 8 Fév - 23:33

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

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 !!
Shocked

Bon une indication, essai d'extraire chaque caractere , compare le avec le "/", si egale tu passe au suivant, sinon tu le convertit et tu l'ajoute à un cumul.
Je vais essayer de faire un essai.[strike]
lamia
lamia
Modérateur
Modérateur

Féminin
Nombre de messages : 1936
Age : 37
Localisation : Tunis
Réputation : 53
Points : 6562
Date d'inscription : 04/11/2007

Feuille de personnage
Capacité linguistique:
i need help in this problem please Left_bar_bleue996/1000i need help in this problem please Empty_bar_bleue  (996/1000)

Revenir en haut Aller en bas

i need help in this problem please Empty Re: i need help in this problem please

Message par lamia Ven 8 Fév - 23:38

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.
lamia
lamia
Modérateur
Modérateur

Féminin
Nombre de messages : 1936
Age : 37
Localisation : Tunis
Réputation : 53
Points : 6562
Date d'inscription : 04/11/2007

Feuille de personnage
Capacité linguistique:
i need help in this problem please Left_bar_bleue996/1000i need help in this problem please Empty_bar_bleue  (996/1000)

Revenir en haut Aller en bas

i need help in this problem please Empty Re: i need help in this problem please

Message par alouizeineb Sam 9 Fév - 20:34

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.

oui j sai c koi un tautogramme ,mais en pascal mafamech texte !! kollou esmou une chaine de caractere




bon voila solution du premier exercice


program date_naissance;
uses wincrt;
var
ch1 : string[10];
s, d : integer;

function conversion (ch : string): integer;
var
k, i, n, e :integer;
begin
k:=0;
for i:=1 to 8 do
begin
val(ch[i],n,e);
k:=k+n;
end;
conversion :=k;
end;
function traitement ( s : integer):integer;
var
m, p1,p2 : integer;
begin
m:= s div 10;
while (m <> 0) do
begin
p1:=s div 10;
p2 :=s mod 10;
s:=p1+p2;
m:=s div 10;
end;
traitement :=s;
end;
begin
writeln(' saisir votre date de naissance sous forme jj/mm/aaaa '); read(ch1);
delete(ch1,3,1);
delete(ch1,5,1);
s:=conversion(ch1);
d :=traitement(s);
writeln(' votre chiffre de chance est ', d);
end.
alouizeineb
alouizeineb
Entier Naturel
Entier Naturel

Nombre de messages : 32
Localisation : tozeur
Réputation : 0
Points : 6014
Date d'inscription : 11/10/2007

Feuille de personnage
Capacité linguistique:
i need help in this problem please Left_bar_bleue1000/1000i need help in this problem please Empty_bar_bleue  (1000/1000)

Revenir en haut Aller en bas

i need help in this problem please Empty Re: i need help in this problem please

Message par manianis Sam 9 Fév - 22:44

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.

manianis
Nombre Réel
Nombre Réel

Masculin
Nombre de messages : 975
Localisation : Tunisie
Réputation : 4
Points : 6016
Date d'inscription : 11/10/2007

Feuille de personnage
Capacité linguistique:
i need help in this problem please Left_bar_bleue999/1000i need help in this problem please Empty_bar_bleue  (999/1000)

http://manianis.sitesled.com/

Revenir en haut Aller en bas

i need help in this problem please Empty Re: i need help in this problem please

Message par alouizeineb Sam 9 Fév - 23:43

alouizeineb a écrit:c un un autre exercice : geek


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
I love you


Mad Mad Mad Mad Mad bon voila c une essai mais it dasen't even work Sad Sad Sad Sad Sad

program examen;
uses wincrt;
var ch:string;
function lett_esp (ch:string):boolean;
var
i:integer;
test:boolean;
begin
i:=1;
test:=true;
while (i<= length (ch)) and (test) do
if upcase (ch[i] ) in ['A'..'Z',' '] then
i:=i+1
else
test:= false;
lett_esp:=test;
end;
function verification(ch:string):string;
var
i:integer;
test2:string;
begin
repeat

for i:=1 to length (ch) do
if (ch [ i] in [' ']) and (ch[i+1]=ch[i-1]) then
test2:='chaine tatogramme'
else
test2:='chaine non tautogramme';
until i=length (ch);
verification:=test2;
end;

procedure saisie(ch:string);
begin
repeat
writeln('donner la chaine ');
readln (ch);
until (length (ch) > 2);
end;
begin
saisie(ch);
lett_esp(ch);
verification (ch);
end.
alouizeineb
alouizeineb
Entier Naturel
Entier Naturel

Nombre de messages : 32
Localisation : tozeur
Réputation : 0
Points : 6014
Date d'inscription : 11/10/2007

Feuille de personnage
Capacité linguistique:
i need help in this problem please Left_bar_bleue1000/1000i need help in this problem please Empty_bar_bleue  (1000/1000)

Revenir en haut Aller en bas

i need help in this problem please Empty Re: i need help in this problem please

Message par manianis Dim 10 Fév - 0:30

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
Nombre Réel
Nombre Réel

Masculin
Nombre de messages : 975
Localisation : Tunisie
Réputation : 4
Points : 6016
Date d'inscription : 11/10/2007

Feuille de personnage
Capacité linguistique:
i need help in this problem please Left_bar_bleue999/1000i need help in this problem please Empty_bar_bleue  (999/1000)

http://manianis.sitesled.com/

Revenir en haut Aller en bas

i need help in this problem please Empty Re: i need help in this problem please

Message par manianis Dim 10 Fév - 0:37

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
Nombre Réel
Nombre Réel

Masculin
Nombre de messages : 975
Localisation : Tunisie
Réputation : 4
Points : 6016
Date d'inscription : 11/10/2007

Feuille de personnage
Capacité linguistique:
i need help in this problem please Left_bar_bleue999/1000i need help in this problem please Empty_bar_bleue  (999/1000)

http://manianis.sitesled.com/

Revenir en haut Aller en bas

i need help in this problem please Empty Re: i need help in this problem please

Message par alouizeineb Dim 10 Fév - 12:15

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.




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



thanks a lot manianis for your help Very Happy
alouizeineb
alouizeineb
Entier Naturel
Entier Naturel

Nombre de messages : 32
Localisation : tozeur
Réputation : 0
Points : 6014
Date d'inscription : 11/10/2007

Feuille de personnage
Capacité linguistique:
i need help in this problem please Left_bar_bleue1000/1000i need help in this problem please Empty_bar_bleue  (1000/1000)

Revenir en haut Aller en bas

i need help in this problem please Empty Re: i need help in this problem please

Message par alouizeineb Dim 10 Fév - 12:31

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.

autre solution :


program tautogramme;
uses wincrt;
var
ch : string;

procedure saisir (var ch : string);
begin
writeln('donner une chaine tautogramme');
read(ch);
writeln(ch);
end;

function lettre_esp (ch : string):boolean;
var
i : integer;
test : boolean;
begin
i:=1;
test :=true;
while (i<=length(ch)) and (test) do
begin
if(upcase(ch[i]) in ['A'..'Z',' ']) then
i:=i+1
else
test :=false;
end;
lettre_esp := test;
end;

function phrase_tauto (ch : string): boolean;
var
n, i, p :integer;
verf : boolean;
c : char;
begin
if(lettre_esp(ch)) then
begin
c:=ch[1];
verf := true;
p :=pos(' ', ch);
if(p=0) then
verf :=false
else
while(p<>0) do
begin
if(ch[p+1]<> c) then
verf :=false;
delete(ch,p,1);
p:=pos(' ',ch);
end;

end;
phrase_tauto:=verf;

end;

begin
saisir(ch);
if (phrase_tauto(ch)) then
writeln(' la phrase est tautogramme')
else
writeln(' la phrase est non tautogramme');
end.
alouizeineb
alouizeineb
Entier Naturel
Entier Naturel

Nombre de messages : 32
Localisation : tozeur
Réputation : 0
Points : 6014
Date d'inscription : 11/10/2007

Feuille de personnage
Capacité linguistique:
i need help in this problem please Left_bar_bleue1000/1000i need help in this problem please Empty_bar_bleue  (1000/1000)

Revenir en haut Aller en bas

i need help in this problem please Empty Re: i need help in this problem please

Message par manianis Dim 10 Fév - 19:38

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.




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



thanks a lot manianis for your help Very Happy

Avec Plaisir.

manianis
Nombre Réel
Nombre Réel

Masculin
Nombre de messages : 975
Localisation : Tunisie
Réputation : 4
Points : 6016
Date d'inscription : 11/10/2007

Feuille de personnage
Capacité linguistique:
i need help in this problem please Left_bar_bleue999/1000i need help in this problem please Empty_bar_bleue  (999/1000)

http://manianis.sitesled.com/

Revenir en haut Aller en bas

i need help in this problem please Empty Re: i need help in this problem please

Message par Napoléon Lun 11 Fév - 0:03

Vos propositions sont vraiment extra.
Je vous félicite.
Napoléon
Napoléon
Admin
Admin

Masculin
Nombre de messages : 2934
Localisation : Tunisie
Réputation : 122
Points : 7633
Date d'inscription : 19/03/2007

Feuille de personnage
Capacité linguistique:
i need help in this problem please Left_bar_bleue999/1000i need help in this problem please Empty_bar_bleue  (999/1000)

https://infomath.1fr1.net

Revenir en haut Aller en bas

i need help in this problem please Empty Re: i need help in this problem please

Message par meriem kammoun Sam 31 Jan - 22:55

(*voila une autre solution du premier programme
l'annéé est constitué de deux chiffres uniquement*)
PROGRAM CHANCE;
uses wincrt;
var DATE,ch:string;
J11,J12,M11,M12,A11,A12,E,S,i,a:INTEGER;
procedure conv_date(date:string;var J11,J12,M11,M12,A11,A12:integer);
begin
vaL(date[1],j11,e);
vaL(date[2],j12,e);
vaL(date[4],m11,e);
vaL(date[5],m12,e);
vaL(date[7],a11,e);
vaL(date[8],a12,e);
end;
function somme(J11,J12,M11,M12,A11,A12:integer):integer;
begin
somme:=j11+J12+M11+M12+A11+A12;
end;

begin
readln(date);
conv_date(date, J11,J12,M11,M12,A11,A12);
s:=somme(J11,J12,M11,M12,A11,A12);

while s>9 do
begin
str(s,ch);
s:=0;
FOR I:=1 TO length(ch) DO
begin
val(ch[i],a,e);
s:=s+a;
end;
end;
write('le chiffre de chance est ',s);
end.

meriem kammoun
Entier Naturel
Entier Naturel

Féminin
Nombre de messages : 2
Localisation : tunisie
Réputation : 0
Points : 5539
Date d'inscription : 28/01/2009

Revenir en haut Aller en bas

i need help in this problem please Empty Re: i need help in this problem please

Message par meriem kammoun Dim 1 Fév - 0:45

voila une autre solution du programme tautogramme

program examen;
uses wincrt;
type tab=array[1..20]of string[20];
var ch:string;
i,n,p:integer;
dr:boolean;
t:tab;
procedure saisie(var ch:string);
begin
repeat
writeln('donner la chaine ');
readln (ch);
until (ch<> '')and(ch[1]<>' ')and(pos(' ',ch)=0);
end;
function nbre_mot(ch:string):integer;
var i:integer;
begin
n:=1;
for i:= 1 to length(ch) do
if ch[i]= ' '
then
n:= n+1;
nbre_mot:=n;
end;
procedure remplir_tableau(ch:string; var t:tab;n:integer);
var i:integer;
begin
if ch[length(ch)]<>' '
then
insert(' ',ch,length(ch)+1);
for i:= 1 to n do
begin
p:= pos(' ', ch);
t[i]:= copy(ch,1,p-1);
delete(ch,1,p)
end;
end;
begin
saisie(ch);
n:=nbre_mot(ch);
remplir_tableau(ch, t,n);
i:=0;
dr:=true;
repeat
i:=i+1;
if t[i][1]<>t[1][1]
then
dr:= false ;
until (dr=false) or (i=n);
if dr=false
then
write(ch, ' n''est pas tautogramme')
else
write(ch, ' est un tautogramme');

end.

meriem kammoun
Entier Naturel
Entier Naturel

Féminin
Nombre de messages : 2
Localisation : tunisie
Réputation : 0
Points : 5539
Date d'inscription : 28/01/2009

Revenir en haut Aller en bas

i need help in this problem please Empty Re: i need help in this problem please

Message par Napoléon Dim 1 Fév - 3:53

je vais l'essayer demain dimanche nchalllah.

bravo pour la modularité de la solution!

a+
Napoléon
Napoléon
Admin
Admin

Masculin
Nombre de messages : 2934
Localisation : Tunisie
Réputation : 122
Points : 7633
Date d'inscription : 19/03/2007

Feuille de personnage
Capacité linguistique:
i need help in this problem please Left_bar_bleue999/1000i need help in this problem please Empty_bar_bleue  (999/1000)

https://infomath.1fr1.net

Revenir en haut Aller en bas

i need help in this problem please Empty Re: i need help in this problem please

Message par manianis Mer 18 Fév - 17:49

Très bien mariem.

manianis
Nombre Réel
Nombre Réel

Masculin
Nombre de messages : 975
Localisation : Tunisie
Réputation : 4
Points : 6016
Date d'inscription : 11/10/2007

Feuille de personnage
Capacité linguistique:
i need help in this problem please Left_bar_bleue999/1000i need help in this problem please Empty_bar_bleue  (999/1000)

http://manianis.sitesled.com/

Revenir en haut Aller en bas

i need help in this problem please Empty Re: i need help in this problem please

Message par lamia Jeu 19 Fév - 20:06

manianis a écrit:Très bien mariem.


Ca fait longtemps qu'on t'est pas vu là! Bienvenu.
lamia
lamia
Modérateur
Modérateur

Féminin
Nombre de messages : 1936
Age : 37
Localisation : Tunis
Réputation : 53
Points : 6562
Date d'inscription : 04/11/2007

Feuille de personnage
Capacité linguistique:
i need help in this problem please Left_bar_bleue996/1000i need help in this problem please Empty_bar_bleue  (996/1000)

Revenir en haut Aller en bas

i need help in this problem please Empty Re: i need help in this problem please

Message par poseidon Jeu 12 Nov - 12:19

pour le sujet du topic :
{--------------------------solution envisageable------------------------------------}
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.
{----------------------------------A+---------------------------------------------------------}
poseidon
poseidon
Entier Naturel
Entier Naturel

Masculin
Nombre de messages : 6
Localisation : Tunisie,Ariana
Réputation : 2
Points : 5261
Date d'inscription : 12/11/2009

Feuille de personnage
Capacité linguistique:
i need help in this problem please Left_bar_bleue1000/1000i need help in this problem please Empty_bar_bleue  (1000/1000)

Revenir en haut Aller en bas

i need help in this problem please Empty Re: i need help in this problem please

Message par methodiX Jeu 12 Nov - 19:21

@poseidon: Très bonne solution.
methodiX
methodiX
Admin
Admin

Masculin
Nombre de messages : 1260
Localisation : Le couloir de l'école polytechnique de Tunis
Réputation : 68
Points : 7015
Date d'inscription : 22/03/2007

Feuille de personnage
Capacité linguistique:
i need help in this problem please Left_bar_bleue1000/1000i need help in this problem please Empty_bar_bleue  (1000/1000)

Revenir en haut Aller en bas

i need help in this problem please Empty Re: i need help in this problem please

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum