XProfan

- Seite 2 -

Frank
Abbing

Hier der Quelltext, in Pascal. Brauchst nur noch umschreiben und eindeutschen

bbschat.zip	17 kB

Hochgeladen:	06.12.2004

Ladeanzahl:
		Herunterladen

Inzip

[quote:4eb128b825=Frank Abbing]Hier der Quelltext, in Pascal. Brauchst nur noch umschreiben und eindeutschen

[/quote:4eb128b825]Bitte ein richtiges oder gar nix

Danke

Zip :@)

Inzip

[quote:7b7f79c18a=Dennis Schulmeister]Um mall bei Zwork oder Eliza zu bleiben:

Du musst den eingegebenen Satz auslesen und in eine Variable speichern.

Dannach untersuchst du als erstes das Satzzeichen
Kompilieren Markieren Separieren

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

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

    Aussagesatz

ElseIf (Satzzeichen$ = "?")

    Frage

EndIf

Danach, oder besser noch davor, trennst du den Satz in alle Wörter auf und speicherst sie in ein Array. Leider kann man in Profan² Arrays (noch) nicht dynamisch allokieren und entfernen, also musst du die Wortzahl eben statisch begrenzen z.B. auf 10.
Kompilieren Markieren Separieren

Declare Worte$[10], i%

While (i% < 9)

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

Wend

Seit XProfan kannst du das auch als
Kompilieren Markieren Separieren

WhileLoop 10

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

Wend

schreiben.

Dann gehst du mit eine wenig Verstand daran gewisse Worte zu überprüfen. Ein Aussagesatz sieht doch meistens so aus:

Peter geht ins Schiwimmbad.

Oder:

Subject Verb Objekt.

Manchmal tauchen auch adjektive auf, diese ignorieren wir mal.

Also kann dein Programm in riesigen Abfrageblöcken per Worte$[1] = … das Subjekt abfragen. In Abhängigkeit davon per Worte$[2] = … das Verb und so weiter. Und je nach dem, was raus kommt, gibt es irgendwas zurück. Es handelt sich hierbei nur im verschachtelte If-Blöcke.

Um nicht ganz so blöde da zustehen hast du auch eine kleine Liste Antworten vorbereitet für den Fall, dass dein Programm nichts verstanden hat. Ganz am Ende deiner If-Blöcke steht also irgendwas � la:
Kompilieren Markieren Separieren

Else    Ich hab nix gecheckt.
n% = @Rnd(9)
Print Ausreden$[n%]

EndIF

Dabei sind die Ausreden in einem Array gespeichert und die Ausrede wird per Zufallsgenerator ermittelt. Wer der @Rnd funktion nicht über den Weg traut, kann natürlich seine Zufallszahlen selbst irgenwo her nehmen. Das spielt keine Rolle.

Eigentlich alles halb so wild, für einen Anfänger oder unbetuchten aber ziemlich beeindruckend. Wie gesagt auf Englisch funtkioniert Eliza wegen der einfacheren Sprache sogar noch besser. Als es damals Ende der 70er zuerst erschien, waren die Leute richtig angetan davon und manche redeten lieber mit ihrem Computer als mit dem Psychiater.

Gruß, Dennis

[/quote:7b7f79c18a]Danke ,nun wie muß ich das antorten und iwe ist die richtige reinfolgen bei Proggrammieren

Ist nur so ich will nichts Falsch machen

Zip :@)

Dennis
Schulmeister

Ohne jemandem auf den Schlipps treten zu wollen, aber ich glaube du hast Franks Programm nicht ausprobiert. Es ist in vereinfachter Weiße genau das, was ich beschrieben habe. Wie gesagt in Englisch funktioniert es besser wegen der einfacheren Sprache. Außerdem wandelt es die meisten Aussagen nur in Fragen um, was nicht ganz dem entspricht, wovon ich sprach.

Über die Reihenfolge kann ich dir so leider nichts sagen. Das musst du selber herausfinden. Ich glaube, ich habe nichtmal dein Problem richtig erfasst.

Gruß,
Dennis *coolyeah*

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

Inzip

aber du hast doch den Artikel verfasst - Also müßte du es auch Wissen und gibt es noch ein einfacher Skript ????

Zip :@)

Dietmar
Horn

Hallo Inzip,

ich versuche es mal so:

Wenn Du z.B. das Autofahren erlernen möchte, dann solltest Du zuvor wenigstens das Laufen gelernt haben - andersrum wird das nix - sonst fällst Du schon beim Versuch, früh aus dem Bett aufstehen zu wollen, jämmerlich auf die Nase..

Und wenn Du dann jemandem, der Dir trotzdem weiterhelfen möchte, dafür nur dumm und dämlich kommst (z.B. Frank), dann ist eigentlich jede Sekunde Freizeit die reinste Zeitverschwendung, die hier aufgebracht wird, um Dir trotzdem weiterhelfen zu wollen.

Einerseits gibt es offensichtlich Leute, die können bestimmte Hinweise und Ratschläge (siehe meine Empfehlung im letzten Posting, sich zunächst die Grundlagen der strukturierten Programmierung anzueignen) nicht verstehen, weil ihnen die menschliche Intelligenz hierfür fehlt - andererseits werden solche Möchtegern-Programmierer warscheinlich nie aussterben, die als Allererstes möglichst schon nach 4 Wochen mit Profan ein Betriebssystem erstellen möchten, obwohl sie noch nicht mal dazu in der Lage sind, die einfachsten Demos von der Profan-CD ordentlich nachzuprogrammieren bzw. sinnvoll zu erweitern.

Gruß
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

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

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

    Aussagesatz

ElseIf (Satzzeichen$ = "?")

    Frage

EndIf

Declare Worte$[10], i%

While (i% < 9)

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

Wend

WhileLoop 10

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

Wend

Else    Ich hab nix gecheckt.
n% = @Rnd(9)
Print Ausreden$[n%]

EndIF

Ich weiß net wie ich daraus ein Programm entwerfe - Ich wil nur wissen wie ich aus den Code schnipsel das Programm macht ein Paln ahbe ich schon also

P.S Ich habe mich sehr darüber gefreut

WindowStyle 31
WindowTitle "KI"
CLS
. . .

Aber weiter weiß ich jetzt net

Zip :@)

Michael
Dell

Du möchtest also einen fertigen Quellcode unter den du nur noch deinen P.M. setzen mußt ~?~

Salu...

Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht!

Inzip

[quote:94f553b578=Michael Dell]Du möchtest also einen fertigen Quellcode unter den du nur noch deinen P.M. setzen mußt ~?~

Salu...[/quote:94f553b578]Welche PM

Zip :@)

Dennis
Schulmeister

Joah, mit dem Grundlagen der strukturierten Programmierung ist es da wirklich nicht sehr weit, Inzip. Und meinen Beitrag, den ich dir als Einstiegshilfe von ein paar Monaten im Einsteigerforum verfasst habe, über den du doch so riesig gefreut hast, hast do wohl auf vergessen.

Gehen wirs mal einfach an, den Rest musst aber du machen:
Kompilieren Markieren Separieren

Beenden durch Eingabe von Ende!
 $O+
Declare DerComputerSagt$, Antwort$, SatzZeichen$, Worte$[10]
WindowTitle "Ruf mich an!"
CLS
DerComputerSagt$ = "Tach auch! Wie gehts wie stehts? Was liegt an, Alter?"

While (@Upper$(Antwort$) <> "ENDE")

    Print DerComputerSagt$
    Input Antwort$
    Satzzeichen$ = @Right$(Antwort$,1)
    Hier der Code um alle Wörter in ein Array zu speichern
    Hier der Abfrageblock, wie ich ihn grob skizziert habe
    Verwende statt (Worte$[…] = …) lieber @InStr(Worte$[…],…) um Satzzeichen zu ignorieren

Wend

So den Rest musst du machen. Frage dich, was jede einzelne Zeile macht und warum sie das tut. Dann fange an, den Abfrageblock zu erweitern. Sooo schwer kanns nicht sein, nur ich habe gerade keine Zeit, und ich will, dass du es selber hin bekommst.

Gruß,
Dennis

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

Inzip

Beenden durch Eingabe von Ende!
 $O+
Declare DerComputerSagt$, Antwort$, SatzZeichen$, Worte$[10]
WindowTitle "Ruf mich an!"
CLS
DerComputerSagt$ = "Tach auch! Wie gehts wie stehts? Was liegt an, Alter?"

While (@Upper$(Antwort$) <> "ENDE")

    Print DerComputerSagt$
    Input Antwort$
    Satzzeichen$ = @Right$(Antwort$,1)
    Hier der Code um alle Wörter in ein Array zu speichern
    Hier der Abfrageblock, wie ich ihn grob skizziert habe

Wend

Hier der Code um alle Wörter in ein Array zu speichern

was soll ich da hinschreiben und wo soll das hin
Kompilieren Markieren Separieren

Verwende statt (Worte$[…] = …) lieber @InStr(Worte$[…],…) um Satzzeichen zu ignorieren

Zip :@)