IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Pascal Discussion :

Tous les nombres premiers entre deux bornes données


Sujet :

Pascal

  1. #1
    Nouveau membre du Club

    Homme Profil pro
    Lycéen
    Inscrit en
    octobre 2014
    Messages
    11
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 25
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Lycéen

    Informations forums :
    Inscription : octobre 2014
    Messages : 11
    Points : 34
    Points
    34
    Par défaut Tous les nombres premiers entre deux bornes données
    Bonjour à tous,
    J'ai juste appris les sous-programmes en Pascal et voilà mon tout premier essai. Ce programme donne les nombres premiers entre deux bornes donneées (incluses), pouvez-vous m'aider avec vos avis et commentaires s'il manque quelque chose ?

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    program premier;
    uses crt;
    var n,m,i:integer;
    function test(n:integer):boolean;
    var i:integer;
    begin
    if n=1 then test:=false else
    begin 
    i:=2;
    while (i<=n) and (n mod i <> 0) do i:=i+1;
    if i=n then test:=true else test:=false
    end;
    end;
     
    begin
     
    repeat
     
    repeat
    begin
    readln(n);
    readln(m);
    end;
    until n<m;
    for i:=n to m do
    begin if test(i)=true then write(i:4) end;
    until false;
    end.

  2. #2
    Expert confirmé

    Inscrit en
    août 2006
    Messages
    3 866
    Détails du profil
    Informations forums :
    Inscription : août 2006
    Messages : 3 866
    Points : 5 469
    Points
    5 469
    Par défaut
    Loa,

    Oui, il manque quelque chose : une présentation claire et cohérente.

    Donc : indentation régulière, aérer le code avec des lignes vides pour isoler les blocs logiques.
    "Mon pied droit est jaloux de mon pied gauche.
    Quand l'un avance, l'autre veut le dépasser.
    Et moi, comme un imbécile, je marche !"
    [Raymond Devos]

  3. #3
    Rédacteur/Modérateur

    Avatar de Roland Chastain
    Homme Profil pro
    Enseignant
    Inscrit en
    décembre 2011
    Messages
    3 855
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 48
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : décembre 2011
    Messages : 3 855
    Points : 13 816
    Points
    13 816
    Billets dans le blog
    8
    Par défaut
    J'ajouterais qu'il n'y a pas de raison de déclarer systématiquement l'unité Crt. En l'occurrence, aucune des fonctions de cette unité n'est utilisée.

  4. #4
    Nouveau membre du Club

    Homme Profil pro
    Lycéen
    Inscrit en
    octobre 2014
    Messages
    11
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 25
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Lycéen

    Informations forums :
    Inscription : octobre 2014
    Messages : 11
    Points : 34
    Points
    34
    Par défaut
    Citation Envoyé par Roland Chastain Voir le message
    J'ajouterais qu'il n'y a pas de raison de déclarer systématiquement l'unité Crt. En l'occurrence, aucune des fonctions de cette unité n'est utilisée.
    J'utilise PascalGui sur Android et peur d'obtenir des messages d'erreur je la declare toujours.

Discussions similaires

  1. Exclure tous les champs semblables entre deux tables
    Par Vink80 dans le forum Développement
    Réponses: 3
    Dernier message: 27/07/2012, 21h14
  2. Réponses: 21
    Dernier message: 27/10/2009, 10h18
  3. Lister les mois-année entre deux dates données
    Par Andry dans le forum Langage
    Réponses: 9
    Dernier message: 16/03/2009, 09h37
  4. Réponses: 14
    Dernier message: 25/11/2007, 19h32

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo