bonjour
oui il y a moyen que l'ordi prenne un mot au hasard
sans la commande ( randomize timer ) pour des mots
dans ce but j'ai fait un programmes qui fait cela
vous pourrez choisir des mots de 4 a 18 lettres
te si vous indiquer le nombre 0 l'ordi choisi
le nombre de lettres
CLS : COLOR 15, 0
DIM z$(700):
gh = 0
FOR a1 = 1 TO 650
READ a$: z$(a1) = a$:
NEXT a1
a1 = 0
10 REM
x = 0
x = INT(TIMER)
r = 0
IF x MOD 2 = 0 THEN r = INT(x / 1):
IF x MOD 2 = 1 THEN r = INT(x / 2):
d = 0: d = INT(r / 650): k = 0: k = INT(d * 650)
f = 0
f = INT(r - k)
x = 0: x = f: f = 0
20 REM
PRINT "nober de letter 4 a 18 is pas letter 0"
INPUT gh
IF gh > 18 THEN 20
IF gh = 0 OR gh = 1 OR gh = 2 OR gh = 3 THEN 40
30 REM
jk = 0: jk = LEN(z$(x))
IF jk <> gh THEN 1000
IF z$(x) = "*" THEN 1000
PRINT "mot en "; gh; "letter "; z$(x)
END: REM
40 REM
jk = 0: jk = LEN(z$(x))
IF z$(x) = "*" THEN 2000
PRINT "mot en "; jk; "letter "; z$(x)
END
1000 REM
x = 0
x = INT(TIMER)
r = 0
IF x MOD 2 = 0 THEN r = INT(x / 1):
IF x MOD 2 = 1 THEN r = INT(x / 2):
d = 0: d = INT(r / 650): k = 0: k = INT(d * 650)
f = 0
f = INT(r - k)
x = 0: x = f: f = 0
GOTO 30
END
2000 REM
x = 0
x = INT(TIMER)
r = 0
IF x MOD 2 = 0 THEN r = INT(x / 1):
IF x MOD 2 = 1 THEN r = INT(x / 2):
d = 0: d = INT(r / 650): k = 0: k = INT(d * 650)
f = 0
f = INT(r - k)
x = 0: x = f: f = 0
GOTO 40
END
DATA ADAM,ADER,ANDERSEN,ANQUETIL,ARAGON
DATA AFFGHANISTAN,ALGERIE,ALBANIE,ALLEMAGNE,ARGENTINE
DATA ABIDJAN,ACAPULCO,AIME,AJACCIO,ALGER"
DATA AIGLE,AIGRETTE,ALLIGATOR,ANTILORE,ARA
DATA ACONTIT,AMANITE,ANEMONE,ARACHIDE,ARTICHAUT"
DATA BACH,BALZAC,BARTOK,BAUDELAIRE,BLERIOT
DATA BULGARIE,BELGIQUE,BRESIL,BOLIVIE,BIRMANIE
DATA BADEN-BADEN,BAGDAD,BALE,BAYEUX,BRUXELLS
DATA BABOUIN,BALEINE,BAR,BASSET,BELETTE
DATA BANANE,BAOBAB,BRUYERE,BRUGNON,BAZZIA
DATA CALIGULA,CALVIN,CAMUS,CARNOT,CHURCHILL
DATA CAMBODGE,CAMEROUN,CANADA,CHILI,CHINE
DATA CAHORS,CALAIS,CASABLANCA,CHAMBERY,CONCARNEAU
DATA CHAT,CAILE,CHEVAL,CHEVREUIL,CONDOR
DATA CACAOYER,CACTUS,CAMELIA,CERISE,CHOUX
DATA DAGOBERT,DAGUERRE,DANTON,DENEUVE,DESCARTES
DATA DANEMARK,DAHOMEY,DOMINICAINE (REP.),DAGHESTAN,*
DATA DAKAR,DELHI,DIEPPE,DJIBOUTI,DOUBAI
DATA DAIN,DAUPHIN,DOGUE,DALMATIEN,DINOSAURE
DATA DATTE,DAHLIA,DIONEE,DYTIQUE,DAPHNEE
DATA EDISON,EIFFEL,EINSTEIN,ELUADR,EURIPIDE
DATA ETHIOPIE,ESPAGNE,EQUATEUR,ETATS-UNIS,EGYPTE
DATA EVIAN,EVREUX,EDIMBOURG,ETRETAT,ETAMPE
DATA ECREVISSE,EPINOCHE,ESCARGOT,ECUREUIL,ELEPHANT
DATA EPICEA,EPNARD,EGLANTIER,ELLEBORE,ENDIVE
DATA FANGIO,FARADAY,FAURE,FELLINI,FERNANDEL
DATA FINLANDE,FRANCE,*,*,*
DATA FLORENCE,FALAISE,FATIMA,FRANCFORT,FERRARE
DATA FAISAN,FAON,FAUCON,FAUVETTE,FURET
DATA FUSAIN,FRAISE,FIGUE,FUCHSIA,FOUGERE
DATA GABIN,GAGARINE,GALLIENI,GALIEE,GAMA
DATA GABON,GHANA,GRECE,GUATEMALA,GUYANE
DATA GRENADE,GDANSK,GENES,GENEVE,GLASGOW
DATA GAZELLE,GELINOTTE,GERBOISE,GIBBON,GIRAFE
DATA GAINIER,GIROFLEE,GLAIEUL,GLYCINE,GRENADIER
DATA HIPPOCRATE,HINAULT,HITCHCOK,HOMERE,HESSE
DATA HONGRIE,HONDURAS,HAWAI,HATI,HONG-KONG
DATA HAMBOURG,HANOI,HELSINKI,HIROSHIMA,HAIPHONG
DATA HAMSTER,HANNETON,HIBOU,HIRONDELLE,HOMARD
DATA HARICOT,HETRE,HEVEA,HELIANTHE,HELIOTROPE
DATA INGRES,IONESCO,ISABEY,INDY,ICARE
DATA IRLANDE,INDE,ISRAEL,ITALIE,ISLANDE
DATA ISTANBUL,IRKOUTSK,IBIAZ,ISPAHAN,IZMIR
DATA IBS,IDE,IGUANODON,IMPALA,IXODE
DATA ICAQUIER,IGNAME,IRIS,IPECA,IPOMEE
DATA JACQUARD,JARRY,JAURES,JUNOT,JENSEN
DATA JAPON,JORDANIE,JAMAIQUE,JERSEY,JUILAND
DATA JAFFA,JERUSALEM,JOHANNESBURG,JEMAPPES,JOHNSTOW
DATA JAGUAR,JABIRU,JACASSE,JACO,JARS
DATA JOUBRARDE,JASMIN,JACINTHE,JUTE,JONQUILLE
DATA KENNEDY,KAFKA,KAPLAN,KEATON,KESSEL
DATA KENYA,KOWEIT,KANSAS,KAZAHSTAN,KIRGHIZIE
DATA KABOUL,KIEV,KARACHI,KATMANDOU,KIROV
DATA KOALA,KOB,KANGOUROU,KINKAJOU,KERABAU
DATA KAKI,KAPOKIER,KARITE,KAWA,KOLATIER
DATA LAMARTINE,LULLI,LUTER,LISZT,LAFITTE
DATA LAPONIE,LAOS,LIBAN,LIBERIA,LYBIE
DATA LASSA,LAS VEGAS,LILLE,LISBONNE,LONDRES
DATA LEZARD,LANGOUSTE,LIEVRE,LAMA,LOUTRE
DATA LIN,LYS,LIERRE,LENTILLE,LAITUE
DATA MUSSET,MAHOMET,MOZART,MAURIAC,MARX
DATA MEXIQUE,MAURITANIE,MALDIVES,MALAYSIE,MONACO
DATA MADID,MUNICH,MELBOURNE,MAYENCE,MILAN
DATA MANCHOT,MORUE,MOUCHE,MAINATE,MOULE
DATA MUGUET,MACHE,MAIS,MANDARINE,MOUTARDE
DATA NELSON,NIETZSCHE,NOBEL,NICOT,NEWTON
DATA NIGER,NORVEGE,NICARAGUA,NEPAL,NIGERIA
DATA NAPLES,NOUMEA,NAIROBI,NAGASAKI,NANTES
DATA NAJA,NANDOU,NAUTILE,NEPE,NEREIDE
DATA NAVET,NARCISSE,NEFLE,NENUPHAR,NOIX
DATA OFFENBACH,OHM,OBERKAMPF,OLIVARES,OUDINOT
DATA OUGANDA,OREGON,OHIO,ONTARIO,OKLAHOMA
DATA OTTAWA,OSTENDE,OSLO,OSAKA,ORLEANS
DATA OKAPI,ORANG-OUTANG,ORVET,OTARIE,OURS
DATA OSEILLE,ORTIE,ORCHIDEE,ORANCE,OLIVE
DATA PAGNOL,PAPIN,PARMENTIER,PASCAL,PASTEUR
DATA PAKISTAN,PANAMA,PARAGUAY,PEROU,PHILIPPINES
DATA PALERME,PARIS,PARME,PEKIN,PHILADELPHIE
DATA PANDA,PRON,PHANTERE,PELICAN,PERCHE
DATA PALMIER,PAPAYER,PASTEQUE,PAVOT,PERVENCHE
DATA QUINET,QUILLQRD,QUINTANA,QUINTON,QUICHERAT
DATA QATAR,QUECBEC,*,*,*
DATA QUETTA,QUEZON CITY,QUIBERON,QUITO,QUINTIN
DATA QUELLEA,QUISCALE,QUETZAL,*,*
DATA QUASSIA,QUATRE-EPICES,QUEBRACHO,QUETSCHE,QUINQUINA
DATA RABELAIS,RACINE,REMBRANDT,RICHELIEU,ROSSINI
DATA RHODESIE,REUNION,ROUMANIE,RUANDA,RUSSIE
DATA RABAT,ROCAMADOUR,ROME,ROUEN,REIMS
DATA RAIE,RAINETTE,RAT,RENNE,ROUSSETTE
DATA RAISIN,RAPHIA,ROSE,RHUBARBE,RICIN
DATA SADE,SARTRE,SCHUBERT,SHAKESPEARE,STALINE
DATA SUEDE,SALVADROR,SAINT-MARIN (REP.),SENEGAL,SOMALIE
DATA SAIGON,SALZBOURG,SANTIAGO,SAUMUR,STOCKHOLM
DATA SAJOU,SALAMANDRE,SANGLIER,SARDINE,SAUTERELLE
DATA SALSIFIS,SAUGE,SAULE,SEIGLE,SEQUOIA
DATA TCHAIKOVSKI,TELEMANN,TIBERE,TROTSKI,THEMISTOCLE
DATA TANZANIE,TCHAD,TCHECOSLOVAQUIE,THAILANDE,TURQUIE
DATA TOMBOUCTOU,TOULOUSE,TOURNUS,TRIPOLI,TOURS
DATA TORTUE,TAPIR,TARENTULE,TATOU,TAUPE
DATA TOMATE,TREFLE,TROENE,TULIPE,TABAC
DATA ULYSSE,UREY,UTAMARD,URREDA,URRAQUE
DATA URUGUAY,URSS,UKRAINE,USA,UTAH
DATA UTRECHT,USTER,UZEL,URRUGNE,URUGUAIANA
DATA URUBU,UROCYON,URANIE,URANOSCOPE,*
DATA UPAS,URUNDAY,USNEE,*,*
DATA VAILLANT,VALERY,VAUBAN,VAUVENARGUES,VERDI
DATA VENEZUELA,VIET-NAM,*,*,*
DATA VIENNE,VENISE,VANCOUVER,VERDUN,VINCENNES
DATA VANNEAU,VIPERE,VARAN,VAUROUR,VIGOGNE
DATA VICTORIAR-REGIA,VIGNE,VIOLETTE,VOLUBILIS,VERVEINE
DATA WAGNER,WAIT,WATTEAU,WIDAL,WILDE
DATA WISCONSIN,WYOMING,*,*,*
DATA WORCESTER,WORMS,WINCHESTER,WATERLOO,WASCHINGTON
DATA WAPITI,WORABEE,*,*,*
DATA WALABA,WENGE,WITLOOF,WOLFIA,*
DATA XENOPHON,XENOCRATE,XERXES,XYLANDER,*
DATA *,*,*,*,*
DATA XANTHI,XERTIGNY,XOCHICALCO,XOCHIMILCO,*
DATA XANCUS,XENOPUS,XERUS,XIPHODON,XIPHOPHORE
DATA XANTHORIA,XANTHOSOMA,XANTHO,*,*
DATA YAMAMOTO,YOUNG,YVON,YUKAWA,YSAYE
DATA YEMEN,YOUGOSLAVIE,*,*,*
DATA YAKIMA,YAMAGATA,YAOUNDE,YDES,YOKOHAMA
DATA YACK,YETI,YOKOHAMA,YORKSHIRE-TERRIER,YORKSHIRE
DATA YEUSE,YLANG-YLANG,YOHIMBEHE,YUCCA,*
DATA ZAPATA,ZAVATTA,ZEPPELIN,ZEUS,ZOLA
DATA ZAIRE,ZAMBIE,ZELANDE,ZIMBABWE,ZANZIBAR
DATA ZABRZE,ZACATECAS,ZACATECOLUCA,ZURICH,ZAGREB
DATA ZAMENIS,ZEBRE,ZEBU,ZIBELINE,ZICRONE
DATA ZACINTHE,ZAMIER,ZEEN,ZINNIA,ZOSTERE
Edité par neliger ( 14/02/2011 16:59:19 )
