Dictionnaire de mots osd (wolof)

Télécharger le projet
Commenter

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 Wolof (faut être Sénégalais pour comprendre) . 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

JuluXP

Source / Exemple : 


program dictionnaire;

{$APPTYPE CONSOLE}

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('KHARAL dafkoy charger .....');
    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('Parena en ',timetostr(t_fin-t_debut),' secondes');
       writeln;
       textcolor(15);write('DEFAL MOT BI NGAY SET ? : ');
       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(14);write(' WAW ');
              textcolor(7);write(les_mots[i]);
              textcolor(14);writeln(' AMNA !');
              writeln;
              resultat:= true;
              end{if};

       END{for};
        if NOT (resultat) then begin
          textcolor(12);write(' ----->>>> DEDET ');
          textcolor(7);write(le_mot);
          textcolor(12);writeln(' AMOUL TEGUILL GAW <<<<----- !');
          writeln;
        end{if};

         textcolor(15);writeln('DA NGAY SETAT BENEENE MOT ? [O/N] ?');
         reponse:=readkey;
         case upcase(reponse) of
         'O' : goto ici;
         'N' : exit;
         else goto ICI;
         end{case};

end.
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_julesouley)