Bonjour,

Je suis en train de faire un petit exo du livre de delannoy qui consite à calculer les 15 premiers nombres premiers.
Remarque: n est premiers si il n'est divisible par aucun nombre premiers(1 exclu) infférieur ou égal à la racine carré ce n.
J'ai ecrit un petit progrramme qui marche pas
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
 
program main;
const k=15;
type Tableau_premier= array[1..k] of integer;
var Tab_prems :TAbleau_premier;
var j,i,memo,nb_premier:integer;
 
begin
   writeln('Ce programme calcule les 15 premiers nombres premiers. ');
   memo:=2;
   nb_premier:=7;
   tab_prems[1]:=3;
   for i:=2 to k do
   begin
      repeat
         if nb_premier mod TAb_prems[memo]<>0 then
            memo:=memo+1         
         else
            exit;
      until memo>=trunc(sqrt(nb_premier)+1);
   if memo>=trunc(sqrt(nb_premier)+1) then tab_prems[i]:=nb_premier;
   nb_premier:=nb_premier+1;
   end;
for j:=1 to k do writeln(tab_prems[j]);
end.
Ca compile mais ca ne s'execute pas ca marque
Runtime error 200 at 0x08052EA5
0x08052EA5
0x080480B0
Voila si vous savez ce qui cloche dans ce programme. Repondez moi S'il vous pllait
Amicalement
Yffick