A voir également:
- Dictionnaire en pascal
- Turbo pascal - Télécharger - Édition & Programmation
- Télécharger dictionnaire larousse pdf gratuit - Télécharger - Dictionnaires & Langues
- My pascal - Télécharger - Édition & Programmation
- Télécharger dictionnaire médical larousse gratuit pdf - Télécharger - Dictionnaires & Langues
- Dev pascal - Télécharger - Édition & Programmation
1 réponse
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