Programme en pascal
Résolu/Fermé
sfrsky
Messages postés
125
Date d'inscription
mardi 15 mai 2007
Statut
Membre
Dernière intervention
20 novembre 2014
-
20 févr. 2008 à 20:46
sfrsky Messages postés 125 Date d'inscription mardi 15 mai 2007 Statut Membre Dernière intervention 20 novembre 2014 - 15 avril 2008 à 08:28
sfrsky Messages postés 125 Date d'inscription mardi 15 mai 2007 Statut Membre Dernière intervention 20 novembre 2014 - 15 avril 2008 à 08:28
A voir également:
- Programme en pascal
- Turbo pascal download - Télécharger - Édition & Programmation
- Programme demarrage windows 10 - Guide
- My pascal - Télécharger - Édition & Programmation
- Programme démarrage windows 10 - Guide
- Fichier ouvert dans un autre programme - Guide
3 réponses
bonjour,
{;}expected
begin
t[i].cle:=mot;
v[k]:=i;
i:=i+1;
end <---ici
begin
t[i].cle:=mot;
t[v[k]].link:=i;
i:=i+1;
end <---là
begin
writeln('donnez un autre mot');
readln(mot);
end <---et encore là
{;}expected
begin
t[i].cle:=mot;
v[k]:=i;
i:=i+1;
end <---ici
begin
t[i].cle:=mot;
t[v[k]].link:=i;
i:=i+1;
end <---là
begin
writeln('donnez un autre mot');
readln(mot);
end <---et encore là
sfrsky
Messages postés
125
Date d'inscription
mardi 15 mai 2007
Statut
Membre
Dernière intervention
20 novembre 2014
18
21 févr. 2008 à 15:47
21 févr. 2008 à 15:47
bonsoir a tous ,
voila le programme pascal qui ne veut pas s'executé et méme pas se compiler.
********************
program chainage_ouvert;
const n=20;
type cellule=record
cle:string;
link:integer;
end;
var v:array[0..n-1]of integer;
t:array[0..n-1]of cellule;
mot:string;
i,k,h:integer;
function hach(ch:string):integer;
var i,som:integer;
begin
for i:=1 to length(ch) do
begin
som:=som+ord(ch[i]);
end;
hach:=som mod n;
end;
procedure insert(var i:integer);
var j,z:integer;
begin
if v[k]=-1 then
begin
t[i].cle:=mot;
v[k]:=i;
i:=i+1;
end
else
if t[v[k]].cle<>mot then
if t[v[k]].link=-1 then
begin
t[i].cle:=mot;
t[v[k]].link:=i;
i:=i+1;
end
else
begin
j:=v[k];
z:=1;
while (t[j].link<>-1) and (z=1) do
if t[j].cle<>mot then
j:=t[j].link
else
z:=0;
end;
if z=1 then
begin
t[i].cle:=mot;
i:=i+1;
end;
begin
i:=0;
for h:=0 to n-1 do
begin
v[h]:=-1;
t[h].link:=-1;
end;
i:=0;
while i < n do
begin
writeln('donnez un mot');
readln(mot);
repeat if mot=' ' then
begin
writeln('donnez un autre mot');
readln(mot);
end
until mot<>' ';
end;
k:=hach(mot);
insert(i);
i:=0;
for h:=0 to n-1 do
writeln(t[h].cle);
end;
end.
*********************
il me signale {;}expected
merci d'avance
voila le programme pascal qui ne veut pas s'executé et méme pas se compiler.
********************
program chainage_ouvert;
const n=20;
type cellule=record
cle:string;
link:integer;
end;
var v:array[0..n-1]of integer;
t:array[0..n-1]of cellule;
mot:string;
i,k,h:integer;
function hach(ch:string):integer;
var i,som:integer;
begin
for i:=1 to length(ch) do
begin
som:=som+ord(ch[i]);
end;
hach:=som mod n;
end;
procedure insert(var i:integer);
var j,z:integer;
begin
if v[k]=-1 then
begin
t[i].cle:=mot;
v[k]:=i;
i:=i+1;
end
else
if t[v[k]].cle<>mot then
if t[v[k]].link=-1 then
begin
t[i].cle:=mot;
t[v[k]].link:=i;
i:=i+1;
end
else
begin
j:=v[k];
z:=1;
while (t[j].link<>-1) and (z=1) do
if t[j].cle<>mot then
j:=t[j].link
else
z:=0;
end;
if z=1 then
begin
t[i].cle:=mot;
i:=i+1;
end;
begin
i:=0;
for h:=0 to n-1 do
begin
v[h]:=-1;
t[h].link:=-1;
end;
i:=0;
while i < n do
begin
writeln('donnez un mot');
readln(mot);
repeat if mot=' ' then
begin
writeln('donnez un autre mot');
readln(mot);
end
until mot<>' ';
end;
k:=hach(mot);
insert(i);
i:=0;
for h:=0 to n-1 do
writeln(t[h].cle);
end;
end.
*********************
il me signale {;}expected
merci d'avance
sfrsky
Messages postés
125
Date d'inscription
mardi 15 mai 2007
Statut
Membre
Dernière intervention
20 novembre 2014
18
22 févr. 2008 à 13:59
22 févr. 2008 à 13:59
SVP aidé le plus vite possible.merci
15 avril 2008 à 08:28