Dictionnaire en pascal
Fermé
adel
-
6 mai 2009 à 15:13
tunsien_fx Messages postés 6 Date d'inscription mercredi 20 mai 2009 Statut Membre Dernière intervention 20 mai 2009 - 20 mai 2009 à 03:03
tunsien_fx Messages postés 6 Date d'inscription mercredi 20 mai 2009 Statut Membre Dernière intervention 20 mai 2009 - 20 mai 2009 à 03:03
A voir également:
- Dictionnaire en pascal
- Télécharger dictionnaire larousse pdf gratuit - Télécharger - Dictionnaires & Langues
- Turbo pascal download - Télécharger - Édition & Programmation
- Télécharger dictionnaire français gratuit pdf - Télécharger - Bureautique
- My pascal - Télécharger - Édition & Programmation
- Télécharger dictionnaire médical - Télécharger - Dictionnaires & Langues
1 réponse
tunsien_fx
Messages postés
6
Date d'inscription
mercredi 20 mai 2009
Statut
Membre
Dernière intervention
20 mai 2009
20 mai 2009 à 03:03
20 mai 2009 à 03:03
c facile un dictionaire
utilise la srtucture
program dictionnaire;
uses crt;
type
dic = record
mot: string;
explication: string;
end;
dictionnaire file of dic;
var
f: dictionnaire;
a:dic;
ch:string;
b:integer;
procedure insertion (var f: dictionnaire);
begin
repat
reset(f);
seek(f,filesize(f));
writeln('donner le mot');
realdn(a.mot);
writeln(donner l'explication');
readln(a.explication)
write(f,a);
writeln(' vous les vous inseres une autre ligne O/N ');
readln(ch);
until (abs(ch) = 'N');
end;
close(f);
procedure recherche (var f: dictionnaire);
begin
writeln('donner le mot a expliquer');
readln(ch)
reset(f);
for i:=1 to filesize(f) do
begin
read(f,a)
if a.mot=ch then
writeln('l'explication :",a.explication);
end;
begin
assign(f,'c:\dic.dat');
{I-}
reset(f);
if Ioresult<>0 then
rewrite(f);
writeln("pour la saisie dans le dictionaire taper 1 et pour la recherche d'explication taper 2');
readln(b);
if b= 1 then
isertion(f);
else
recherche(f);
End.
j'espere que ca va t'aider mais j'ai pas testé le code
utilise la srtucture
program dictionnaire;
uses crt;
type
dic = record
mot: string;
explication: string;
end;
dictionnaire file of dic;
var
f: dictionnaire;
a:dic;
ch:string;
b:integer;
procedure insertion (var f: dictionnaire);
begin
repat
reset(f);
seek(f,filesize(f));
writeln('donner le mot');
realdn(a.mot);
writeln(donner l'explication');
readln(a.explication)
write(f,a);
writeln(' vous les vous inseres une autre ligne O/N ');
readln(ch);
until (abs(ch) = 'N');
end;
close(f);
procedure recherche (var f: dictionnaire);
begin
writeln('donner le mot a expliquer');
readln(ch)
reset(f);
for i:=1 to filesize(f) do
begin
read(f,a)
if a.mot=ch then
writeln('l'explication :",a.explication);
end;
begin
assign(f,'c:\dic.dat');
{I-}
reset(f);
if Ioresult<>0 then
rewrite(f);
writeln("pour la saisie dans le dictionaire taper 1 et pour la recherche d'explication taper 2');
readln(b);
if b= 1 then
isertion(f);
else
recherche(f);
End.
j'espere que ca va t'aider mais j'ai pas testé le code
