bonsoir bon j\'ai un tp que j\'ai commencé qui se compile mais il veut pas s\'exécuter (le message qui s\'affiche c\'est \"error200: division by 0\") voici l\'énoncé
Aucun dit : proceder selon les étapes suivantes :
1-spécifier et enregistrer les valeurs initiales dans un fichier
2-réaliser 3 algorithmes de tri (interface graphique intégrant un menu)
3-afficher et enregistrer les résultats de chaque algorithme
et je voila ce que j\'ai pu faire
program tp;
uses crt;
const n=10;
type fichier = file of integer;
vecteur = array[1..n]of integer;
var rep: char;
t1: vecteur;
F1,F2: fichier;
nom: string[20];
k,a:integer;
procedure lecture(var t:vecteur);
var i: integer;
begin
writeln(\'veuillez entrer les elements du tableau\');
for i:=1 to n do read (t[i]);
end;
procedure enregistrer(t:vecteur ; var f:fichier);
var i:integer;
begin
rewrite(f);
for i:=1 to n do write(f,t[i]);
end;
procedure copie(var f:fichier ; var t:vecteur);
var i:integer;
begin
reset(f);
i:=1;
while not eof(f) do
begin
read(f,a);
t[i]:=a;
i:=i+1;
end;
end;
procedure tri_insertion(var t:vecteur);
var i,j,temp:integer;
begin
for i:=2 to n do
begin
temp:=t[i];
j:=i;
while t[j-1]> temp do
begin
t[j]:=t[j-1];
j:=j-1;
end;
t[j]:= temp;
end;
end;
procedure tri_selection(var t:vecteur);
var i,j,temp:integer;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if t[i]<t[j] then
begin
temp:= t[j];
t[j]:= t[i];
t[i]:= temp;
end;
end;
procedure tri_bulle(var t:vecteur);
var i,j,temp:integer;
begin
for i:=n downto 1 do
for j:=1 to (i-1) do
if t[j]>t[j+1] then
begin
temp:=t[j];
t[j]:=t[j+1];
t[j+1]:=temp;
end;
end;
{==================================================================}
{programme principal}
{==================================================================}
BEGIN
clrscr;
writeln(\'ºtapez \'\'c\'\' si vous voulez entrer les valeurs par le clavier º\');
writeln(\'ºtapez \'\'f\'\' si les valeurs se trouvents dans fichier º\');
readln(rep);
if rep=\'c\' then
begin
lecture(t1);
assign(F1,\'tableau_a_trier\');
enregistrer(t1,F1);
end
else if rep=\'f\' then
begin
writeln(\'entrez le nom du fichier\');
read(nom);
assign(f1,nom);
copie(f1,t1);
end
else writeln(\'erreur\');
writeln(\'choisissez le tri que vous souhaitez\');
writeln(\'1÷ Insertion\');
writeln(\'2÷ Selection\');
writeln(\'3÷ Bulle\');
read(k);
case k of
1: tri_insertion(t1);
2: tri_selection(t1);
3: tri_bulle(t1)
else writeln(\'ce tri n\'\'existe pas \');
end;
enregistrer(t1,f2);
for a:=1 to n do write(t1[a]);
readln;
end.
alors est ce que quelqu'un peut m'éclairer un peu !
PS: je voudrais avoir aussi une idée sur comment faire l'interface graphique
merci
