XProfan

R.Schneider

Hi Inzip,
i think The first question The You you to put should sounds:

two Listviews my KI really can

so How I the concept KI understand goes it thereby circa Expertensysteme The very defined releases intelligently manage.
or want You you a small friend program ?

Rudger

Perbody is nofect !

Inzip

Yes but I meant so - cih a question place and it me casually response gives

Zip :@)

R.Schneider

I promise in so one drop always with my woman.
or mean You a response The a sense yields?

Rudger

Perbody is nofect !

Frank
Abbing

[...]

Inzip

i will a so what program (stood: Delphi - Forum)[quote:d59c76e6cd]means if you with the the lexikalischen analysis wurscht is, then nimm still simply one aray of String, carrying there your Answer one and bestimme then with Random whom index the response, The You spend want.[/quote:d59c76e6cd]so what

Zip :@)

Dietmar
Horn

Hello Inzip, alias ...

before You yourself with künstlicher intelligence engage, should You for the time being your menschliche intelligence benefit, circa you first of all The Grundlagen the strukturierten Programming anzueignen, How Programmaufbau, Variablentypen, Kontrollstrukturen, etc., because for is Profan wonderful suitable, because it for no leichter To erlernende real windows-Programming-Language gives. then wüßtest You with the from you led Quote from the Delphi-Forum already something to begin. first thereafter could one evtl. yet above diskutieren, whether the named example really something with künstlicher intelligence To do has (of my opinion to not!).

to that Erlernen the Grundlagen the Programming become You sowohl here as in RGH-Forum always Help and Support find, sofern You clear formulierte ask position. but under the Motto: i will one Betriebssystem program. How are the?, or: i want a spreadsheet analysis How Excel program. How are the? becomes the guaranteeing nothing go. because then would the vaguely so, as if one with a unfortunately of birth on Blinden over The colours the Regenbogens diskutieren wished.

and because we now already time with whom Grundlagen are: too in the german Language there fundamental regulate, what z.B. spelling and Grammatik concerns (Related the Korrektur-Center in this Forum) ...

Greeting
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

[...]

<--These Page is so a Intiligenz now so a would like so did i in Profan Proggen , but white net How . selected

Zip :@)

Dennis
Schulmeister

to that a is Zwork none so intelligently, to that others functions Eliza on english on the strength of the einfacheren Sprachsyntax much better. means something like can Yes well yet hinbekommen. small Tipp: Actio = Reactio or action and (possible) reaction.

Sincerely,
Dennis

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

12/05/04 ▲

Inzip

[quote:55a8fc5012=Dennis Schulmeister]to that a is Zwork none so intelligently, to that others functions Eliza on english on the strength of the einfacheren Sprachsyntax much better. means something like can Yes well yet hinbekommen. small Tipp: Actio = Reactio or action and (possible) reaction.

Sincerely,
Dennis

[/quote:55a8fc5012]could you me time there help

Zip :@)

12/05/04 ▲

Dennis
Schulmeister

circa mall with Zwork or Eliza To stay:

You must whom inputted set read and a variable Save.

Dannach investigate You first thing the Satzzeichen
Compile Mark Separation

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

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

    Aussagesatz

ElseIf (Satzzeichen$ = "?")

    Frage

thereafter, or rather yet before it, part You whom set in any Wörter on and save tappt im dunkeln into aray. unfortunately can in Profan² Arrays (yet) not dynamic allokieren and Remove, means must You The Wortzahl even static limit z.B. on 10.
Compile Mark Separation

Declare words$[10], i%

While (i% < 9)

    words$[i%] = @SubStr$(response$, " ", i%)
    inc i%

Wend

since XProfan can you the too as
Compile Mark Separation

WhileLoop 10

    words$[&loop] = @SubStr$(response$," ",i%)

Wend

. Leave

then go You with a little mind on it gewisse words To to check on. One Aussagesatz sees still usually so from:

Peter goes in that Schiwimmbad.

or:

Subject Verb Objekt.

sometimes dive too adjektive on, these ignore we time.

means can your Program in gigant Abfrageblöcken by words$[1] = … the Subjekt inquire. In dependence of it by words$[2] = … the Verb an so on. and according to the, what out comes, there something back. it deals itself hierbei only nested If-Blöcke.

circa not integrally so stupid there zustehen have you got too a small list Answer prepared for drop, that your Program nothing understood has. integrally end your If-Blöcke standing means something � la:
Compile Mark Separation

Else    I Have nothing gecheckt.
n% = @Rnd(9)
Print Ausreden$[n%]

EndIF

thereby are The Ausreden in a aray stored and the apology becomes by Zufallsgenerator determined. who the @Rnd function not over the lane traut, can naturally its Zufallszahlen self irgenwo since take. the game no role.

really everything semi so wild, for a Beginner or unbetuchten but quite beeindruckend. As I said on english funtkioniert Eliza because of the einfacheren Language even yet rather. as it then end the 70it first appeared, were The people correctly. angetan of it and some talked rather with their computer as with the Psychiater.

Greeting, Dennis

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

12/06/04 ▲