XProfan

R.Schneider

Hi Inzip,
je denke la première Frage qui du Dir se mettre devrait lautet:

quoi soll mon KI eigentlich peut

So comment Je l' Begriff KI verstehe ca va dabei um Expertensysteme qui oui c'est ca definierte Aufgaben intelligent erledigen.
ou bien vouloir du Dir une kleinen ami programmieren ?

Rudger

Perbody is nofect !

Inzip

oui mais je meinte so - cih une Frage lieu et il mir une zufällige Antwort gibt

Zip :@)

R.Schneider

je spreche dans so einem le cas toujours avec meiner madame.
ou bien meinst Vous Antwort qui une Sinn ergibt?

Rudger

Perbody is nofect !

Frank
Abbing

[...]

Inzip

je veux une so quoi programmieren (Stand: Delphi - Forum)[quote-part:d59c76e6cd]alors si dir cela avec qui lexikalischen Analyse wurscht is, ensuite prends doch simple un Array of String, trag là deine répondre un et bestimme ensuite avec Random den index qui Antwort, qui du ausgeben vouloir.[/quote-part:d59c76e6cd]So quoi

Zip :@)

Dietmar
Horn

allô Inzip, alias ...

bevor Du toi avec künstlicher intelligence beschäftigst, devrait Du vorerst Votre menschliche intelligence nutzen, um Dir zunächst qui Grundlagen qui strukturierten Programmation anzueignen, comment Programmaufbau, Variablentypen, Kontrollstrukturen, etc., car pour ist Profan wunderbar approprié, weil es pour aucun leichter trop erlernende echte Windows-Programmiersprache gibt. ensuite wüßtest Du avec dem de Dir angeführten citation aus dem Delphi-Forum déjà quelque chose anzufangen. seulement après pourrait on peut-être. encore par-dessus diskutieren, si cela genannte Beispiel wirklich quelque chose avec künstlicher intelligence trop 1faire hat (meiner attitude pour pas!).

Zum Erlernen qui Grundlagen qui Programmation wirst Du sowohl ici comme aussi im RGH-Forum toujours Aider et Unterstützung trouver, sofern Du bien sûr formulierte Fragen stellst. mais sous dem Motto: je veux un Betriebssystem programmieren. comment allez cela?, ou bien: je voudrais une Tabellenkalkulation comment Excel programmieren. comment allez cela? wird cela garantiert rien volonté. car ensuite wäre cela dans etwa so, comme si on avec einem malheureusement de naissance à Blinden sur qui Farben des Regenbogens diskutieren voulais.

et weil wir eh bien déjà la fois chez den Grundlagen sommes: aussi dans qui deutschen Discours gibt es grundlegende régulariser, quoi z.B. orthographe et Grammatik betrifft (siehe aussi cela Correction-Center dans diesem Forum) ...

Salut
Dietmar

Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

Inzip

[...]

<--cet page est une Intiligenz eh bien so une voudrais je aussi dans Profan Proggen , mais sais net comment . s'il te plaît um

Zip :@)

Dennis
Schulmeister

Zum une ist Zwork gar pas so intelligent, zum anderen funktioniert Eliza sur Englisch sur grund qui einfacheren Sprachsyntax viel besser. alors quelque chose comme peux on oui wohl encore hinbekommen. Kleiner Tipp: Actio = Reactio ou bien Aktion et (mögliche) réaction.

Salut,
Dennis

(Fast) alle Profan²-Versionen seit Version 2.6, sowie (fast) alle Windows-Versionen seit Windows 3.1

05.12.2004 ▲

Inzip

[quote-part:55a8fc5012=Dennis Instituteur]Zum une ist Zwork gar pas so intelligent, zum anderen funktioniert Eliza sur Englisch sur grund qui einfacheren Sprachsyntax viel besser. alors quelque chose comme peux on oui wohl encore hinbekommen. Kleiner Tipp: Actio = Reactio ou bien Aktion et (mögliche) réaction.

Salut,
Dennis

[/quote-part:55a8fc5012]Könntest du mir la fois là aider

Zip :@)

05.12.2004 ▲

Dennis
Schulmeister

Um mall chez Zwork ou bien Eliza trop rester:

Du musst den eingegebenen phrase auslesen et dans une variable Sauver.

Dannach untersuchst du comme erstes cela Satzzeichen
Kompilieren Marque Séparation

Satzzeichen$ = @Right$(Antwort$, 1)

If ((Satzzeichen$ = ".") | (Satzzeichen$ = "!"))

    Aussagesatz

ElseIf (Satzzeichen$ = "?")

    Frage

après, ou bien besser encore devant, trennst du den phrase dans alle Wörter sur et speicherst vous dans un Array. malheureusement peux on dans Profan² Arrays (encore) pas dynamisch allokieren et entfernen, alors musst du qui Wortzahl plan statisch begrenzen z.B. sur 10.
Kompilieren Marque Séparation

Déclarer Worte$[10], i%

Tandis que (i% < 9)

    Worte$[i%] = @$ Substr(Antwort$, " ", i%)
    inc i%

Wend

depuis XProfan peux du cela aussi comme
Kompilieren Marque Séparation

WhileLoop 10

    Worte$[&loop] = @$ Substr(Antwort$," ",i%)

Wend

. Laissez

ensuite vas du avec une wenig Verstand daran gewisse Worte trop überprüfen. un Aussagesatz sieht doch la plus part du temps so aus:

Peter allez ins Schiwimmbad.

ou bien:

Subject verbe objet.

quelquefois plonger aussi adjektive sur, cet ignorer wir la fois.

alors peux dein Programme dans riesigen Abfrageblöcken per Worte$[1] = … cela Subjekt abfragen. dans dépendance en per Worte$[2] = … cela verbe et so plus. et je pour dem, quoi raus venez, gibt es irgendwas zurück. Es handelt sich hierbei seulement im imbriquées Si-Blöcke.

Um pas entier so blöde là zustehen la hâte du aussi une kleine liste répondre vorbereitet pour den le cas, dass dein Programme rien verstanden hat. entier am Ende deiner Si-Blöcke steht alors irgendwas � la:
Kompilieren Marque Séparation

D'autre    je hab nix gecheckt.
n% = @Tour(9)
Imprimer Ausreden$[n%]

EndIF

Dabei sommes qui Ausreden dans einem Array gespeichert et qui Ausrede wird per Zufallsgenerator ermittelt. qui qui @Tour funktion pas sur den Weg traut, peux naturellement sa nombres aléatoires selbst irgenwo her prendre. cela écoutes aucun rôle.

Eigentlich alles demie so wild, pour une Débutant ou bien unbetuchten mais assez impressionnante. Comme je le disais sur Englisch funtkioniert Eliza à cause de qui einfacheren Discours sogar encore besser. comme es autrefois Ende qui 70il d'abord erschien, étions qui gens richtig angetan en et manche redeten lieber avec ihrem ordinateur comme avec dem Psychiater.

Salut, Dennis

(Fast) alle Profan²-Versionen seit Version 2.6, sowie (fast) alle Windows-Versionen seit Windows 3.1

06.12.2004 ▲