C'est pas juste il faut initialiser i:=2 et while i<= n div 2 and pm:= true
if n mod i = 0 then
pm:= false
else
i:= i+1;

Www.devlopper.com

Salut,je cherche des exercices en pescal,on avance

<gras>program vol;
uses crt;
type voyageur=recorde
codea,date,heure:string[8];
destination:string[40];
nvol,nbp,nbpr:integer;
etat:char;
end;
var f,file of voyageur;
v:voyageur;
i:integer;
prcedure creation;
begin
assign(f',c:\vol.dat');
rewrite (f);
close(f);
end;
procedure programmation;
begin
assign(f',c:\vol.dat');
reset(f);
write (' dopnnez lz numero de vol');
raed(v.num)
write (' donnez le code d"avion');
raed(v.codea);
write ('donnez la destination);
read(v.destination);
write (' donnez la date');
raed(v.date);
write (' donnez lheur de vol');
read(v.heur);
write (' donnezle nombre de palace');
raed(v.nbp);
eate:='e';
close(f);
end;
procedure consultation;
var xdestination:string[40];
rest(f);
trouv:= false;
while not trouv and not eof do
begin
read (f,v);
if v.destination=xdestination then
trouv:=true;
end;
if trouv then
begin
if v.etat=i then
write (' le vol est termené');
if v.etat =a then
write (' le vol est annulé');
ifv.etat=e then
wrute (' destination', v.destination);
write (' la date ',v.date);
write (' heure',v.heur);
write (' le nombre de palce ',v.nbp);
close(f);
end;
procedure achevement;
var xdestination:string[40];
begin
assign(f',c:\vol.dat');
reset(f);
trouv:=false;
while not trouv and not eof do
begin
read (f,v);
if v.destination =xdestination;
trouv:=true;
end;
if trouv then
begin
if v.etata=t then
write (' le vol est termene');
if etat:=t then
wrie (' le vol et termene');
if v.etat=e then
v.etat:=t;
seek ( f, file pos(f)-1);
wrote (f,v);
end; close(f);
end;




le rest demain ok </gras>