XProfan

- Página 2 -

Frank
Abbing

Hier el Ver código fuente, en Pascal. Brauchst sólo todavía umschreiben y eindeutschen

bbschat.zip	17 kB

Hochgeladen:	06.12.2004

Ladeanzahl:
		Descargar

Inzip

[quote:4eb128b825=Frank Abbing]Hier el Ver código fuente, en Pascal. Brauchst sólo todavía umschreiben y eindeutschen

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

Gracias

Zip :@)

Inzip

[quote:7b7f79c18a=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

[/quote:7b7f79c18a]Gracias ,nun como muß Yo el antorten y iwe Es el richtige reinfolgen en Proggrammieren

Ist sólo así Yo voluntad nichts Falsch hacer

Zip :@)

Dennis
Schulmeister

Ohne jemandem en el Schlipps treten a querer, pero yo glaube du hast Franks Programa no ausprobiert. Es en vereinfachter Weiße genau el, Yo beschrieben habe. Como ya he dicho en Inglés funktioniert lo mejor wegen el einfacheren Lingua. Außerdem wandelt lo el meisten Aussagen sólo en Fragen en, qué no bastante el entspricht, wovon Yo sprach.

Über el Reihenfolge kann Yo dir así desafortunadamente nichts sagen. Das musst du selber herausfinden. Yo glaube, Yo nichtmal dein Problema correcto erfasst.

Saludo,
Dennis *coolyeah*

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

Inzip

aber du hast doch el Artikel verfasst - Also müßte du lo auch Wissen y hay todavía una einfacher Skript ????

Zip :@)

Dietmar
Horn

¡Hola Inzip,

Yo versuche lo veces así:

Si usted z.B. el Autofahren erlernen möchte, entonces solltest Usted zuvor wenigstens el Laufen gelernt haben - andersrum se el nix - sonst fällst Usted ya beim Intento, früh de el Bett aufstehen a querer, jämmerlich en el Nase..

Und si entonces jemandem, el Usted trotzdem weiterhelfen möchte, dafür sólo dumm y dämlich kommst (z.B. Franco), entonces eigentlich jede Sekunde Freizeit el reinste Zeitverschwendung, el hier aufgebracht se, en Usted trotzdem weiterhelfen a querer.

Einerseits hay offensichtlich Personas, el puede cierto Hinweise y Ratschläge (siehe mi Empfehlung en el letzten Posting, se primero el Grundlagen el strukturierten Programación anzueignen) no verstehen, porque ihnen el menschliche Intelligenz esta fehlt - andererseits voluntad solche Möchtegern-Programmierer warscheinlich nie aussterben, el como Allererstes möglichst ya después de 4 Wochen con Profano una Betriebssystem redactar möchten, obwohl ellos todavía no veces dazu en el Lage son, el einfachsten Demos de el Profano-CD ordentlich nachzuprogrammieren o. sinnvoll a erweitern.

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

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

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

    Aussagesatz

ElseIf (Satzzeichen$ = "?")

    Frage

Declarar Worte$[10], i%

Mientras que (i% < 9)

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

Wend

WhileLoop 10

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

Wend

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

EndIF

Yo weiß net Yo lo una Programa entwerfe - Yo wil sólo wissen Yo de el código schnipsel el Programa macht una Paln ahbe Yo ya also

P.S Yo habe mich muy darüber gefreut

Ventana de Estilo 31
Título de la ventana "KI"
CLS
. . .

Aber más weiß Yo ahora net

Zip :@)

Michael
Dell

Usted möchtest also una fertigen Quellcode bajo el du sólo todavía deinen P.M. conjunto mußt ~?~

Salu...

Salu Michael...

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

Inzip

[quote:94f553b578=Michael Dell]Usted möchtest also una fertigen Quellcode bajo el du sólo todavía deinen P.M. conjunto mußt ~?~

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

Zip :@)

Dennis
Schulmeister

Joah, con el Grundlagen el strukturierten Programación es como wirklich no muy weit, Inzip. Und media Contribución, el Yo dir como Einstiegshilfe de unos pocos Monaten en el Einsteigerforum verfasst habe, encima el du doch así riesig gefreut hast, hast do wohl en vergessen.

Gehen wirs veces simplemente a, el Rest musst aber du hacer:
Kompilieren Marca Separación

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 el Rest musst du hacer. Cuestión dich, qué jede einzelne Línea macht y por qué ellos el tut. Dann fange a, el Abfrageblock a erweitern. Sooo schwer kanns no ser, sólo Yo gerade no Tiempo, y yo voluntad, dass du lo selber hin bekommst.

Saludo,
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

KompilierenMarcaSeparaciónHier el Code en todos Wörter en una Array a speichern
qué se Yo como hinschreiben y wo se el hin 
KompilierenMarcaSeparaciónVerwende en lugar de (Worte$[…] = …) más bien @InStr(Worte$[…],…) en Satzzeichen a ignorieren

Zip :@)