rss
Rechercher : dans
Par : Pertinence Date Nom d'utilisateur
Statut : Résolu

[turbo pascal]: problème de résolution d'ex

Posté par imeys, le lundi 28 mars 2005 à 17:30:31
Bonjour, je dois résoudre un exercice avec turbo pascal et je ne sais comment faire.
Voici l’énonce :

20 nombres entiers entre 100 et 200 compris sont créés au hasard par l’ordinateur. Il faut :

- afficher ces nombres à l’écran
- calculer et afficher la somme et la moyenne arithmétique des nombres pairs.

C’est la 2eme partie qui me pause problème.

Voici ce que j’ai ecrit :

program exercice3;
uses crt;
var i,nombre,compteur:integer;
moyenne: real;
begin
clrscr;
randomize;
compteur:=0;

for i := 1 to 20 do begin
nombre:= 100 + random (101);
compteur:= compteur + nombre;
writeln(nombre);
end;

writeln;
moyenne:= compteur/20;
writeln ('la moyenne est de:',moyenne:10:2);
writeln('le total est de:',compteur);
readln;
end.

Donc le problème est que, écrit comme cela, ca fait la somme et la moyenne de tout les nombres.
Donc ce n’est pas bon mais je ne voit pas comment faire pour juste faire la somme et la moyenne des nombres pairs.
Je crois que c’est soit avec la fonction DIV ou MOD mais je n’en suis pas sur.
Pouvez vous m’aider.

merci
Configuration: P4 2.6

xp pro
Répondre à imeys  Signaler ce message aux modérateurs Aller au dernier message

1


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
gienas, le lundi 28 mars 2005 à 17:45:34
Bonjour imeys et tout le groupe

Dans ta boucle, tu ne tiens pas compte du fait que le nombre est ou non pair. Tu dois donc y placer le test, et ne faire les opérations que si le nombre est pair.

Comme tu as choisi des entiers, tu peux tester le reste d'une division pour savoir si c'est pair ou non. Ce peut être aussi une expression un peu plus "longue", mais qui arrive au même résultat. La question simple à se poser est: quand un nombre (entier) est-il pair?
Répondre à gienas

2


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
imeys, le lundi 28 mars 2005 à 18:15:22
merci bcp
Répondre à imeys

3


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
habib, le jeudi 5 avril 2007 à 15:54:48
bonjour
vous devez ajouter un test de parité avec de faire le calcul, en plus on vous demande de calculer la moyenne arithmetique et non pas la somme des élement pairs, donc:

for i := 1 to 20 do begin
nombre:= 100 + random (101);
if nombre mod 2 = 0 then
compteur:= compteur + nombre;
moyenne := compteur/20;
writeln(moyenne);
end;
Répondre à habib

4


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
zouzo, le lundi 3 septembre 2007 à 13:36:03
bonjour, voici ma preoccupation ecrire un programme qui calcul la valeur de pi d'apres francois VIETE
Configuration: Windows XP
Internet Explorer 6.0
Répondre à zouzo

10


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
perla, le samedi 12 avril 2008 à 21:27:56
salut.je veux faire la formule de françois vieté en programme pascal.je sais pas quelle fonction je dois utiliser.pourriez vous m'aider.merci bcp.
Répondre à perla

5


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Leiila-x, le mercredi 17 octobre 2007 à 18:46:12
Bonjour,
jai un probleme a resoudre aider moi silvouplait : prouver que le double de la somme des carrés de deux nombres est égal au carré de leur somme augmenté du carré de leur différence !
Répondre à Leiila-x

6


  • 1
    Ce message vous semble utile, votez !
  • Ce message ne vous semble pas utile, votez !
  • Signaler ce message aux modérateurs
ZOUARI, le vendredi 19 octobre 2007 à 13:24:29
On regardons dans toutes les solutions données j'ai remarqué que plein de fautes
Voici la solution Optimal :
Program Somme_Moyenne;
Uses WinCrt; 
Var
s, i, n : Integer;
m : Real;
Begin
     Randomize;
     s := 0;
     m := 0;
     For i := 1 to 20 Do
     Begin
          n := 100 + random (101);
          Writeln (n);
          s := s + n;
          If (n MOD 2) = 0 Then
             m := m + n;
     End;
     Writeln ('La somme de ces entiers = ',s);
     Writeln ('La moyenne de ces entiers = ',m /20 :6:3);
End.

Mais, il est préférable d’enregistrer ces entiers dans un tableau de 20 entier et d’utilisé une fonction qui permet de calculer la somme et une procédure pour saisir les 20 entiers.
ZOUARI 4 YOU
Répondre à ZOUARI

7


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
unis filter, le mercredi 24 octobre 2007 à 12:33:30
salut

il y a borland pascal et turbo bascal qui se trouve sur ce site


des cours et des exercices sur ce site


http://www.bacpascal.fr.tc
Répondre à unis filter

8


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
missloulou, le jeudi 10 janvier 2008 à 21:23:36
comment classé les variable a b c en ordre croissant en turbo pascal c urgent,?
Répondre à missloulou

9


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
zekri_saif, le mercredi 12 mars 2008 à 06:37:50
bjr , je ve savoir des Simples Procedures ou des Fonctions qui m'aide a ecrire un Prgramme en Turbo Pascal 1.5 avec des simples animation sur l'affichages , Merci de me repondé
Répondre à zekri_saif

11


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
tiiti, le mercredi 14 mai 2008 à 21:35:58
salut je vien en ton secour tu dois demander de diviser chaques nombres nombre par 2 si tu trouves un nombre entier tu commence la procedure somme et moyenne si non ne pas faire là tu seras satisfait tu le feras en debut du programme ecrire est tres facile merci
Répondre à tiiti

12


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
l'élève, le jeudi 3 juillet 2008 à 14:29:20
Enoncé : l’entreprise showfer se propose gérer son stock de produits de manière automatique.
L’activité consiste à :
Ajouter un produit
Supprimer un produit
Augmenter le stock
Trier le fichier par ordre alphabétique des produits
Trier le fichier par ordre décroissant des prix unitaires
Afficher la liste des produits page par page
Afficher un message de réapprovisionnement dès le seuil critique est atteint
A la fermeture de la caisse :
Afficher la recette totale du jour
Déterminer les 3 produits les mieux vendus et les produits les moins bien vendus de la journée
Travail à faire : Ecrire en pascal un programme pour gérer cette activité. Pour chaque traitement, écrire une procédure. La page d’accueil sera la suivante :


Nom d’utilisateur :

Mot de passe :


L’écran de travail de la caissière aura l’aspect suivant :


Code Désignation PU Quantité Sous total

P007 OMO 215 2 430
P107
P023
P308
P228
P417
P701
P402
P014
P123
P478
…………………………………………………………………………………..
Total : ……...
Espèce : ……..
Monnaie : ……

QUITTER SUIVANT
Répondre à l'élève

13


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
 KX, le jeudi 3 juillet 2008 à 15:08:42
Ca me rappelle quelque chose... (ici).
Commence à faire un début de programme on pourra t'aider à débuger une ou deux procédures, ou te donner des pistes sur le comment faire... Mais quasiment personne ne te fera un programme aussi long en entier. La confiance n'exclut pas le contrôle
Répondre à KX
Logiciels pertinents trouvés dans les téléchargements
Télécharger Internet Explorer 7Internet Explorer - Internet Explorer 7 est la dernière version du navigateur phare de Microsoft, intégrant les derniers correctifs en matière...Catégorie: Navigateurs
Licence: Freeware/gratuit
Télécharger Excel Viewer 2003Excel Viewer - Avec Microsoft Office Excel Viewer 2003, vous pouvez ouvrir, afficher et imprimer des classeurs Excel (fichiers XLS ), même...Catégorie: Tableur
Licence: Freeware/gratuit
Télécharger Visual Basic Express 2005 2005Visual Basic Express 2005 - Le langage de programmation Visual Basic est historiquement dans les gènes de la société Microsoft. Avec plus de 30.000...Catégorie: Visual Basic
Licence: Freeware/gratuit
Télécharger StuffIt Expander 11.0.2StuffIt Expander - StuffIt Expander est un utilitaire de décompression. Tout se fait par glisser/déposer dans sa fenêtre ou sur son icône....Catégorie: Compression/Décompression
Licence: Freeware/gratuit
Plus de logiciels gratuits sur « [turbo pascal]: problème de résolution d'ex »