ki peut me fair 1 exercice PASCAL !!! Résolu

Question

Bonsoir a tous , 
l'exercice consiste a écrir 1 programme qui cherche et affiche les entiers naturels premiers inférieurs a 100 . 
(naturel : n'est divisible que par 1 et lui meme , en + ,  1 n'est pas premier .)
je sais qu'il faut utiliser la structure 'pour' (controle itérative ) mais je ne sais pas pk il marche pas 
svp aidez moi , mon dv. d'info. est demain !!!
nb : j'ai pascal version 1.5

Archi-dessin · Answer

les valeurs sont 2,3,5,7,11,...... le pgrogramme contient une boucle (tantque faire ........) ou (Repeter ....... jusqu'à

KX · Answer

program mikeechoromio;

const max=100;

type solution=record
     n:integer;
     a:array[1..max] of integer;
     end;

function PremierJusqua(i:integer;s:solution):boolean;
var j:integer;
begin
     for j:=1 to s.n do
         if (i mod s.a[j])=0 then exit(false);
     result:=true;
end;

function NombresPremiers:solution;
var i:integer;
begin
     result.n:=0;
     for i:=2 to max do
         if PremierJusqua(i,result) then begin
                                         inc(result.n);
                                         result.a[result.n]:=i;
                                         end;
end;

var s:solution; k:integer;
begin
     s:=NombresPremiers;
     for k:=1 to s.n do
         writeln(s.a[k]);
     readln;
end.

Archi-dessin · Answer

salut,
votre programme présente des erreurs
par exemples la variable result ou est son déclaration
quand même vous avez essayer,c'est bien de votre par

Archi-dessin · Answer

slt,
pour moi le turbo pascal, je n'ai aucune aider de votre langage, mais je remarque dans l'ensemnble il se ressemble.
pour la fonction, c'est de la même manière et j'ajoute en des unités pour que le programme ne soit pas très long.

Archi-dessin · Answer

le langage pascal est très limité et je l'utilise que pous raffraichire la logique de programmation en je travas sur d'autre logociel.

bolbol · Answer

uses wincrt
var
i,j:integer
begin
for i:=1 to 100 do 
j:=1;
 repeat
j:=j+1
until i mod j=0;
if i=j then writeln(i);
end.

Ki peut me fair 1 exercice PASCAL !!!

6 réponses

Votre réponse

Discussions similaires

Newsletters