Voir le flux RSS

m.brahim

Identifier les nombres premiers

Noter ce billet
par , 10/01/2020 à 15h16 (125 Affichages)
Bonjour,
Je partage cette solution qui permet la détection des nombres premiers dans une colonne.
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
proc fcmp outlib=work.pack1.MyFunc1;
    function MyFunc1(var$) $10;
       length var1 $10;
 
        do i =2 to int(sqrt(var));
                   if mod(var,i)=0 then do; 
                                                    var1="NbrNPre";
                                                   leave;
                                       end;
                   else do;
                             var1="NbrPre";
                   end;
        end;
 
       return (var1);
    endsub;
quit;
Cordialement

Envoyer le billet « Identifier les nombres premiers » dans le blog Viadeo Envoyer le billet « Identifier les nombres premiers » dans le blog Twitter Envoyer le billet « Identifier les nombres premiers » dans le blog Google Envoyer le billet « Identifier les nombres premiers » dans le blog Facebook Envoyer le billet « Identifier les nombres premiers » dans le blog Digg Envoyer le billet « Identifier les nombres premiers » dans le blog Delicious Envoyer le billet « Identifier les nombres premiers » dans le blog MySpace Envoyer le billet « Identifier les nombres premiers » dans le blog Yahoo

Catégories
Sans catégorie

Commentaires