hg S’enregistrer Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie

Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie  forum informatique Tunisie Index du Forum

hg Bac Tunisie Algorithmique et programmation TIC réseaux php javascript sql access activités programmation c
hg
FAQ FAQ Rechercher Rechercher Membres Membres Groupes Groupes Profil Profil Se connecter pour vérifier ses messages privés Messages Privés Connexion Connexion


 Forum de l'excellence et l'excellence en innovation 
Pour participer à notre Forum, vous devez
 
inscrire sur notre forum a partir d'ici
 
  NB :
Les membres ''zéro messages'' seront supprimés automatiquement après un nombre de jours donné !!!!
             
   
 
  
forum d'aide informatique : internet, réseau, programmation informatique ...
Nombres premiers
 
 
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯)
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
KARIMOS
Administrateur

Hors ligne

Inscrit le: 02 Nov 2008
Messages: 1 710
Masculin
Point(s): 5 479
Moyenne de points: 0

Posté le: Mar 16 Fév - 19:45 (2010)    Sujet du message: Nombres premiers Répondre en citant

PublicitéSupprimer les publicités ?
Ecrire un programme qui initialise un tableau de 10 caractères par les 10 premiers nombres premiers.

Note :
  • La solution suivante n'est qu'une suggestion. Il existe des solutions plus optimales, cependant, celle-ci à le mérite de montrer une certaine progression logique dans cette suite d'exercice.


Code:
program tabpremiers;
uses crt;
var
  tableau: array[1..10] of integer;
  nombre: integer;
  i, j: integer;
  Npremier: integer;
begin
  clrscr;

  Npremier := 0;
  nombre := 1;
  j := 1;

  while (Npremier < 10) do
  begin
    i := 2;
    while (((nombre mod i) <> 0) and (i <= (trunc(nombre div 2) + 1))) do
    begin
      i := i + 1;
    end;
    if ((nombre mod i) <> 0) then
    begin
      tableau[j] := nombre;
      Npremier := Npremier + 1;
      j := j + 1;
    end;
    nombre := nombre + 1;
  end;
  for i := 1 to 10 do
    writeln('Element ', i, ' vaut ', tableau[i]);

  readln;
end.



 
Revenir en haut
jiovani


Hors ligne

Inscrit le: 17 Fév 2010
Messages: 8
Point(s): 8
Moyenne de points: 0

Posté le: Mer 17 Fév - 17:17 (2010)    Sujet du message: Nombres premiers Répondre en citant

excellent karimos vous ete très intelligent bon travaille t excellent forum 

 
Revenir en haut
r.nsiri
recent membre
recent membre

Hors ligne

Inscrit le: 09 Jan 2009
Messages: 262
Masculin
Point(s): 304
Moyenne de points: 0

Posté le: Mer 3 Mar - 08:33 (2010)    Sujet du message: Nombres premiers Répondre en citant

Okay Okay Okay Okay
_________________
Cordialement


 
Revenir en haut
Disdous


Hors ligne

Inscrit le: 22 Fév 2010
Messages: 52
Point(s): 52
Moyenne de points: 0

Posté le: Sam 20 Mar - 17:41 (2010)    Sujet du message: Nombres premiers Répondre en citant

Hein?! Le 3 n'est pas premier? 

 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 21:39 (2016)    Sujet du message: Nombres premiers

 
Revenir en haut
Montrer les messages depuis:   
bg bd
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯) Toutes les heures sont au format GMT + 1 Heure
 
Page 1 sur 1

 
Sauter vers:  
Index | créer forum gratuit | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation