Forum programmation
 
AccueilPortailFAQRechercherS'enregistrerMembresGroupesConnexion

Partagez | 
 

 i need help please

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
alouizeineb
Nouveau
Nouveau
avatar

Nombre de messages : 23
Date d'inscription : 04/08/2007

MessageSujet: i need help please   Ven 8 Fév - 22:01

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 !!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
alouizeineb
Nouveau
Nouveau
avatar

Nombre de messages : 23
Date d'inscription : 04/08/2007

MessageSujet: Re: i need help please   Ven 8 Fév - 22:02

voila une solution mais netsawer famma ma 5ir menha !


ennajmou na9rou chaine par exempl 13/11/1990
puis ch:=concat (ch[1],ch[2],ch[4],ch[5],ch[7],ch[8],ch[9],ch[10])
ch ywalli fiha 1311990

n7awlouha l'entier bel VAL

puis un tableau n7ottou fih les element du l'entier 13111990
somme:=0;
pour i:=1 to 8 do
somme:=somme+t[i];

somme tji 25
mba3d na3emlou STR w nraj3ou 25 en une chaine nchoufou length mta3ha w si > a 1 n3awdou na3mlou ech 3malna gbila!

bon twil solution mais simple
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Soltan
Nouveau
Nouveau


Nombre de messages : 13
Date d'inscription : 31/01/2008

MessageSujet: Re: i need help please   Sam 9 Fév - 13:24

Salut Mr voilà votre programme en Pascal
" n'inquiète pas je suis Toujours dans votre disposition"

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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Soltan
Nouveau
Nouveau


Nombre de messages : 13
Date d'inscription : 31/01/2008

MessageSujet: Re: i need help please   Sam 9 Fév - 13:32

Pardon, Ma9retech elesm emliya7, ya5i netsawarek Mlle Zeineb, enchallah mouch galet, Pardon un autre fois.

Bon courage
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
alouizeineb
Nouveau
Nouveau
avatar

Nombre de messages : 23
Date d'inscription : 04/08/2007

MessageSujet: Re: i need help please   Sam 9 Fév - 20:32

soltan mercie mercie mercie beaucoupppppp !!!!!

joi joi joi


tahnks a lottttttttttttttttttttttttttttttt





bon j'ai d'autres exercices , za3ma n7othom? Rolling Eyes

Revenir en haut Aller en bas
Voir le profil de l'utilisateur
alouizeineb
Nouveau
Nouveau
avatar

Nombre de messages : 23
Date d'inscription : 04/08/2007

MessageSujet: Re: i need help please   Sam 9 Fév - 20:45

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



bon ena bech n7ot mon essai , mais 7assa rou7i mechya fi tri9 b3id et 7assetha totalment faux donc matadh7kouch 3laya
rouge


Dernière édition par le Dim 10 Fév - 21:42, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
alouizeineb
Nouveau
Nouveau
avatar

Nombre de messages : 23
Date d'inscription : 04/08/2007

MessageSujet: Re: i need help please   Sam 9 Fév - 20:59

Soltan a écrit:
Salut Mr voilà votre programme en Pascal
" n'inquiète pas je suis Toujours dans votre disposition"

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.

bon bech nes2l 3la 7aja , ak star maktoub b rouge hedheka
ch1 : string[10]; ma3naha ennou a7na 7attina condition 3al chaine bech length mta3ha ne deppas pa 10 ?

Revenir en haut Aller en bas
Voir le profil de l'utilisateur
alouizeineb
Nouveau
Nouveau
avatar

Nombre de messages : 23
Date d'inscription : 04/08/2007

MessageSujet: Re: i need help please   Sam 9 Fév - 23:47

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



bon ena bech n7ot mon essai , mais 7assa rou7i mechya fi tri9 b3id et 7assetha totalment faux donc matadh7kouch 3laya
rouge

bon voila mon essai mais it dasen't even work !! wa3333333333333333


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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Soltan
Nouveau
Nouveau


Nombre de messages : 13
Date d'inscription : 31/01/2008

MessageSujet: Re: i need help please   Dim 10 Fév - 0:21

Salut ya Mlle Zeineb voilà votre solution et enchallah marbou7a em3ek

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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Soltan
Nouveau
Nouveau


Nombre de messages : 13
Date d'inscription : 31/01/2008

MessageSujet: Re: i need help please   Dim 10 Fév - 0:29

benesba lel déclaration ch : string[10], c'est à dire ch c'est une chaîne de caractère qui ne dépasse pas le dix caractéres.
exemple :
si on ch : string[10];
et 3endna le mot programmation bech en7ottoha fi ch
ch := 'programmation'; ya3ni ch mouch bech ta5ed elkalma elkol mais elle prend le dix premiers caractères ch = 'programmat', les autres caractères seront ignoré
si on met ch : string; ==> on a peut mettre dans ch 255 caractères.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
alouizeineb
Nouveau
Nouveau
avatar

Nombre de messages : 23
Date d'inscription : 04/08/2007

MessageSujet: Re: i need help please   Dim 10 Fév - 12:32

Soltan a écrit:
benesba lel déclaration ch : string[10], c'est à dire ch c'est une chaîne de caractère qui ne dépasse pas le dix caractéres.
exemple :
si on ch : string[10];
et 3endna le mot programmation bech en7ottoha fi ch
ch := 'programmation'; ya3ni ch mouch bech ta5ed elkalma elkol mais elle prend le dix premiers caractères ch = 'programmat', les autres caractères seront ignoré
si on met ch : string; ==> on a peut mettre dans ch 255 caractères.


merci becoup !


et voila un autre solution

program tautogramme;
uses wincrt;

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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
alouizeineb
Nouveau
Nouveau
avatar

Nombre de messages : 23
Date d'inscription : 04/08/2007

MessageSujet: Re: i need help please   Dim 10 Fév - 21:47


UN AUTRE EXERCICE
chmayti
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 "TOTALOGRAMME" ou non .

un TOTALOGRAMME
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 "ALLALA EMPRUNTE TEMPORAIREMENT A DAOUD SES SOULIERS" est un tautogramme .
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Soltan
Nouveau
Nouveau


Nombre de messages : 13
Date d'inscription : 31/01/2008

MessageSujet: Re: i need help please   Dim 10 Fév - 22:38

voila votre solution ya Zeineb
program totalogramme;
uses wincrt;
var
ch : string;
procedure saisir (var ch : string);
var
i, n : integer;
begin
writeln('donner une chaine totalogramme');
read(ch);
n:=length(ch);
for i:=1 to n do
ch[i]:=upcase(ch[i]);
writeln(ch);
end;
function lettre_maj_esp (ch : string):boolean;
var
i : integer;
test : boolean;
begin
i:=1;
test :=true;
while (i<=length(ch)) and (test) do
begin
if(ch[i] in ['A'..'Z',' ']) then
i:=i+1
else
test :=false;
end;
lettre_maj_esp := test;
end;

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

n:=length(ch);
if(ch[n]<>c) then
verf :=false;
end;
phrase_tota:=verf;

end;
begin
saisir(ch);
if (phrase_tota(ch)) then
writeln(' la phrase est totalogramme')
else
writeln(' la phrase est non totalogramme');
end.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Soltan
Nouveau
Nouveau


Nombre de messages : 13
Date d'inscription : 31/01/2008

MessageSujet: Re: i need help please   Lun 11 Fév - 23:39

On veut écrire un programme Pascal permettant de lire une chaîne de caractères CH (On suppose que CH
est composée uniquement de lettres majuscules et d'espaces. Et que deux
mots consécutifs sont séparés par un seul espace), puis tester si CH est un "cocogramme" ou non.

Une chaîne CH est "cocogramme" si tous les mots de CH comportent au moins une occurrence de la première lettre du premier mot de CH.

Exemples :

- "NI EXAMENS NI CONTROLES NE SONT EVIDENTS"

Cette chaîne est un cocogramme, car tous les mots contiennent au moins une occurrence de "N ".

- "ALI MANGE UNE POMME"

Cette chaîne n’est pas un cocogramme, car tous les mots ne contiennent pas une occurrence de "A ".
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: i need help please   

Revenir en haut Aller en bas
 
i need help please
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Forum programmation :: Programmation :: Delphi & Pascal :: Pascal :: Exercices-
Sauter vers: