Dictionnaire de mots osd (wolof)

Soyez le premier à donner votre avis sur cette source.

Vue 16 310 fois - Téléchargée 407 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 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.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

fredatcs
Messages postés
14
Date d'inscription
mercredi 2 mars 2005
Statut
Membre
Dernière intervention
20 juillet 2010
-
C'est quoi WOLOF pour ceux qui ne sont pas sénégalais ?
ibou2
Messages postés
1
Date d'inscription
jeudi 8 février 2007
Statut
Membre
Dernière intervention
8 février 2007
-
wolof c'estlangue la plus parle au senegal, presque 80% des senegalais la parle. c'est plus parle meme que le français qui est la langue officiel du senegal
cs_julesouley
Messages postés
11
Date d'inscription
dimanche 26 juin 2005
Statut
Membre
Dernière intervention
23 février 2011
-
le wolof c 'est ma langue maternelle et cette utilitaire je l'ai fait pour des potes senegalais qui joue au scrabble. et pour les non senegalais j'ai fait une version française >
merci pour vos commentaires

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.