Forum programmation
 
AccueilPortailFAQRechercherS'enregistrerMembresGroupesConnexion

Partagez | 
 

 Demande exercices

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

Nombre de messages : 24
Age : 28
Date d'inscription : 27/03/2007

MessageSujet: Demande exercices   Mar 15 Mai - 19:05

Salut mes amis;

je voudrais avoir des bons exercices variés pour la revision du devoir informatique (BAC pratique)

et merci
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
mtcs
Administrateur
Administrateur
avatar

Nombre de messages : 1605
Date d'inscription : 21/11/2006

MessageSujet: Re: Demande exercices   Mer 16 Mai - 15:44

On commence par ce premier exercice mon ami


On se propose d'ecrire un programme qui permet de simuler le jeu suivant:

A tour de rôle 4 joueurs lancant un dé.
Pour chaque lancer, le nombre de points est calculé comme suit:

  • si la face obtenue est égale à 6 alors le joueur gagne 6 point et lance le dé une autre fois
  • Si la face obtenue est 4 ou 5 alors le joueurs gagne 3 points
  • Si la face obtenue 1,2, ou 3 alors le joueur gagne 1 point
Le jeu se termine quand un des 4 joueurs totalise 50 points. Ce joueur sera considéré comme gagnant
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
mtcs
Administrateur
Administrateur
avatar

Nombre de messages : 1605
Date d'inscription : 21/11/2006

MessageSujet: Re: Demande exercices   Mer 16 Mai - 15:46

Un autre exercice mon ami




Sachant que 6+6/22 + 6/32 + 6/42 + … + 6/n² tned vers PI².
on se propose de calculer puis d’afficher une valeur approchée de PI² avec une
erreur maximale Epsilon. La valeur de Epsilon est une donnée
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
fighters
Nouveau
Nouveau
avatar

Nombre de messages : 24
Age : 28
Date d'inscription : 27/03/2007

MessageSujet: Re: Demande exercices   Mer 16 Mai - 16:48

merci beaucoup je vais essayer de trouver les solutions de ces deux exercices
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
mtcs
Administrateur
Administrateur
avatar

Nombre de messages : 1605
Date d'inscription : 21/11/2006

MessageSujet: Re: Demande exercices   Mer 16 Mai - 16:56

ok mon ami, j'ai d'autres exercices je vais les poster inchallah bientot
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Chaker
Administrateur
Administrateur
avatar

Nombre de messages : 731
Age : 27
Date d'inscription : 17/01/2007

MessageSujet: Re: Demande exercices   Mer 16 Mai - 21:45

Merci pour ta participation fighters
Et merci à toi Mohamed pour ta réponce
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
makram
modérateur
modérateur
avatar

Nombre de messages : 549
Age : 28
Date d'inscription : 29/12/2006

MessageSujet: Re: Demande exercices   Jeu 17 Mai - 13:19

merci les amis
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
fighters
Nouveau
Nouveau
avatar

Nombre de messages : 24
Age : 28
Date d'inscription : 27/03/2007

MessageSujet: Re: Demande exercices   Jeu 17 Mai - 14:41

voici la solution du 1er exercice


Code:

program ex1;
uses wincrt;
var e:real;
function pc(e:real):real;
var stop:integer; i:longint; r:real;
begin
r:=0;
i:=1;
stop:=0;
while (stop=0) do
      begin
        r:=r+6/sqr(i);
        if abs(r-sqr(pi))<e then stop:=1 else i:=i+1;
      end;
          pc:=r;
end;

begin
write('esp =');readln(e);
writeln(pc(e):0:4);
end.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Demande exercices   

Revenir en haut Aller en bas
 
Demande exercices
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» [Annulée] Demande de page d'aceuil
» [Annulée] Demande de description des catégories.
» [résolu] demande d'aide à l'optimisation
» [Basil] Demande de mise en page
» Demande de CSS

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