Si vous aimez jouer au scrabble ce programme va vous interresser
Il vous permet de savoir si le mot que vous avez mis existe ou pas!
l'interface est en Français. Les mots sont en majuscule.
attention à compiler avec DEV-pascal!!
avec Delphi vous riquez d'avoir des problèmes car la gestion des couleurs n'est pas prise en compte. je connais pas de librairie qui gère les couleurs avec delphi 6. Si vous en connaissez alors faites savoir merci
il manque le fichier "tous_les_mots.jul" je n'ai pas pu le le mettre dans le zip car c'est lourd, ça ne passe pas.
contactez moi si vous voulez l'avoir!!
JuluXP
Source / Exemple :
program dictionnaire;
uses
SysUtils,
crt;
const nb_max_mot = 369084;
last_jour ='25/01/2005';
type fichier = file of char;
type T_tab_mot = array[0..nb_max_mot] of string[16];
var objet : fichier;
car,reponse :char;
mot,le_mot : string[16];
i,j : integer;
les_mots : T_tab_mot;
resultat : boolean;
t_debut,t_fin : Tdatetime;
label ici,labas;
begin
textcolor(9);write('UN INSTANT ..CHARGEMENT...');
mot:='';
j:=0;
assign(objet,'tous_les_mots.jul');
reset(objet);
t_debut := time;
i:=0;
seek(objet,i);
read(objet,car);
//while not(eof(objet)) do begin
repeat
if car=#13 then begin
les_mots[j]:=mot;
delete(les_mots[j],length(les_mots[j]),1);
mot:='';
inc(j);
i:=i+1;
end{if};
seek(objet,i);
read(objet,car);
mot:=mot + car;
i:=i+1;
until j=nb_max_mot;
//end {while};
close(objet);
t_fin := time;
ici:CLRSCR;
textcolor(15);writeln('CHARGE EN ',timetostr(t_fin-t_debut),' SECONDES');
writeln;
textcolor(15);write('ENTRER LE MOT : ');
readln(le_mot);
le_mot := le_mot;
resultat := false;
writeln;
for i :=0 to j do begin
if le_mot = les_mots[i]then begin
textcolor(7);write(les_mots[i]);
textcolor(14);writeln(' EXISTE !');
writeln;
resultat:= true;
end{if};
END{for};
if NOT (resultat) then begin
textcolor(12);write(' ----->>>> NOO NON!! ');
textcolor(7);write(le_mot);
textcolor(12);writeln(' N''EXIXTE PAS !!! <<<<----- !');
writeln;
end{if};
textcolor(15);writeln('NOUVELLE RECHERCHE ? [O/N] ?');
reponse:=readkey;
case upcase(reponse) of
'O' : goto ici;
'N' : exit;
else goto ICI;
end{case};
end.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.