XProfan

R.Schneider

Hi Inzip,
Yo denke el erste Cuestión el du Usted stellen solltest lautet:

Was se mi KI eigentlich puede

So Yo el Begriff KI verstehe es esta en Expertensysteme el genau definierte Aufgaben intelligent erledigen.
Oder möchtest du Usted una pequeña Freund programa ?

Rudger

Perbody is nofect !

Inzip

Sí pero yo meinte así - cih una Cuestión lugar y él me una zufällige Antwort son

Zip :@)

R.Schneider

Yo spreche en así una Fall siempre con meiner Frau.
Oder media Es usted un Antwort el una Sinn ergibt?

Rudger

Perbody is nofect !

Frank
Abbing

[...]

Inzip

Yo voluntad una así qué programa (Stand: Delphi - Foro)[quote:d59c76e6cd]Also si dir el con el lexikalischen Analyse wurscht is, entonces nimm doch simplemente una Array of String, trag como deine Respuesta una y bestimme entonces con Random el Index el Antwort, el du ausgeben möchtest.[/quote:d59c76e6cd]So qué

Zip :@)

Dietmar
Horn

¡Hola Inzip, alias ...

bevor Usted Usted con künstlicher Intelligenz beschäftigst, solltest Usted vorerst Su menschliche Intelligenz nutzen, en Usted primero el Grundlagen el strukturierten Programación anzueignen, como Programmaufbau, Variablentypen, Kontrollstrukturen, etc., porque dafür es Profano wunderbar geeignet, porque lo dafür no leichter a erlernende echte Windows-Lenguaje de programación son. Dann wüßtest Usted con el de Usted angeführten Zitat de el Delphi-Foro ya algo anzufangen. Erst danach podría uno evtl. todavía darüber diskutieren, si el genannte Ejemplo wirklich algo con künstlicher Intelligenz a tun ha (meiner Meinung después de no!).

Zum Erlernen el Grundlagen el Programación wirst Usted sowohl aquí como auch en el RGH-Foro siempre Ayuda y Unterstützung encontrar, sofern Usted klar formulierte Fragen stellst. Aber bajo el Motto: Yo voluntad una Betriebssystem programa. Como va el?, oder: Yo möchte una Tabellenkalkulation como Excel programa. Como va el? se el garantiert nichts voluntad. Denn entonces wäre el en etwa así, como si uno con un desafortunadamente de Geburt a Blinden en Farben des Regenbogens diskutieren quería.

Und porque wir nun ya veces en el Grundlagen son: Auch en el Alemán El conocimiento no grundlegende Regeln, qué z.B. Rechtschreibung y Grammatik betrifft (siehe auch el Corrección-Center en diesem Foro) ...

Saludo
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

[...]

<--Diese Página es así una Intiligenz nun así una möchte Yo auch en Profano Proggen , aber weiß net como . Bitte en

Zip :@)

Dennis
Schulmeister

Zum una es Zwork nada así intelligent, para otro funktioniert Eliza en Inglés en grund el einfacheren Sprachsyntax viel mejor. Also algo como puede ser sí wohl todavía hinbekommen. Kleiner Tipp: Actio = Reactio oder Aktion y (mögliche) Reacción.

Saludo,
Dennis

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

05.12.2004 ▲

Inzip

[quote:55a8fc5012=Dennis Schulmeister]Zum una es Zwork nada así intelligent, para otro funktioniert Eliza en Inglés en grund el einfacheren Sprachsyntax viel mejor. Also algo como puede ser sí wohl todavía hinbekommen. Kleiner Tipp: Actio = Reactio oder Aktion y (mögliche) Reacción.

Saludo,
Dennis

[/quote:55a8fc5012]Könntest du me de tiempo como helfen

Zip :@)

05.12.2004 ▲

Dennis
Schulmeister

Um mall en Zwork oder Eliza a bleiben:

Usted musst el eingegebenen Satz auslesen y una variable speichern.

Dannach untersuchst du como erstes el Satzzeichen
Kompilieren Marca Separación

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

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

    Aussagesatz

ElseIf (Satzzeichen$ = "?")

    Frage

Danach, oder mejor todavía davor, trennst du el Satz en todos Wörter en y speicherst ellos en una Array. Leider puede ser en Profano² Arrays (todavía) no dynamisch allokieren y entfernen, also musst du el Wortzahl eben statisch begrenzen z.B. en 10.
Kompilieren Marca Separación

Declarar Worte$[10], i%

Mientras que (i% < 9)

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

Wend

Seit XProfan kannst Si es usted el auch como
Kompilieren Marca Separación

WhileLoop 10

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

Wend

. Deja

Dann gehst du con una wenig Verstand daran gewisse Worte a überprüfen. Ein Aussagesatz sieht doch meistens así de:

Peter va en el Schiwimmbad.

Oder:

Subject Verb Objeto.

Manchmal tauchen auch adjektive en, esta ignorieren wir veces.

Also kann dein Programa en riesigen Abfrageblöcken por Worte$[1] = … el Subjekt abfragen. In Abhängigkeit su por Worte$[2] = … el Verb y así más. Und je después de el, qué fuera kommt, hay algo zurück. Lo es se hierbei sólo en el verschachtelte If-Blöcke.

Um no bastante así blöde como zustehen hast du auch una kleine Liste Respuesta vorbereitet para el Fall, dass dein Programa nichts verstanden ha. Ganz al Ende deiner If-Blöcke es also algo � la:
Kompilieren Marca Separación

Más    Yo tener nix gecheckt.
n% = @Rnd(9)
Imprimir Ausreden$[n%]

EndIF

Dabei son el Ausreden en un Array gespeichert y el Ausrede se por Zufallsgenerator ermittelt. Wer el @Rnd funktion no encima el Weg traut, kann natürlich seine Zufallszahlen incluso irgenwo her nehmen. Das juega ningún papel.

Eigentlich alles halb así wild, para una Principiante oder unbetuchten aber bastante beeindruckend. Como ya he dicho en Inglés funtkioniert Eliza wegen el einfacheren Lingua incluso todavía mejor. Als lo damals Ende el 70él zuerst erschien, waren el Personas correcto angetan su y manche redeten más bien con ihrem Computer como con el Psychiater.

Saludo, Dennis

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

06.12.2004 ▲