Commentçamarche.net
CodeS-SourceS
Rechercher un code, un tuto, une réponse

Dictionnaire de mots osd (francais)

0/5 (3 avis)

Vue 57 900 fois - Téléchargée 1 168 fois

Description

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.

Codes Sources

A voir également

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.