XProfan

- page 2 -

Frank
Abbing

ici qui Voir le texte source, dans Pascal. Brauchst seulement encore paraphraser et eindeutschen

bbschat.zip	17 kB

Hochgeladen:	06.12.2004

Downloadcounter:
		Download

Inzip

[quote-part:4eb128b825=Frank Abbing]ici qui Voir le texte source, dans Pascal. Brauchst seulement encore paraphraser et eindeutschen

[/quote-part:4eb128b825]s'il te plaît un richtiges ou bien gar nix

merci

Zip :@)

Inzip

[quote-part:7b7f79c18a=Dennis Instituteur]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

[/quote-part:7b7f79c18a]merci ,eh bien comment doit je cela antorten et iwe ist qui richtige reinfolgen chez Proggrammieren

Ist seulement so je veux rien faux faire

Zip :@)

Dennis
Schulmeister

sans quelqu'un sur den Schlipps treten trop voulons, mais je crois tu as Franks Programme pas ausprobiert. c'est dans vereinfachter Weiße oui c'est ca cela, quoi je beschrieben habe. Comme je le disais dans Englisch funktioniert es besser à cause de qui einfacheren Discours. Aussi wandelt es qui meisten Aussagen seulement dans Fragen um, quoi pas entier dem entspricht, de quoi je sprach.

Über qui Reihenfolge peux je dir so malheureusement rien dire. cela musst du selber herausfinden. je crois, j'ai nichtmal dein Problem richtig erfasst.

Salut,
Dennis *coolyeah*

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

Inzip

mais tu as doch den Artikel verfasst - alors devrait du es aussi savons et gibt es encore un einfacher Skript ????

Zip :@)

Dietmar
Horn

allô Inzip,

je versuche es la fois so:

si Du z.B. cela Autofahren erlernen voudrais, ensuite devrait Du zuvor wenigstens cela courir gelernt avons - andersrum wird cela nix - sonst fällst Du déjà beim Versuch, tôt aus dem Bett aufstehen trop voulons, jämmerlich sur qui nez..

et si Du ensuite quelqu'un, qui Dir quand même weiterhelfen voudrais, pour seulement dumm et dämlich viens (z.B. Frank), ensuite ist eigentlich chacun seconde Freizeit qui reinste gaspillage de temps, qui ici aufgebracht wird, um Dir quand même weiterhelfen trop voulons.

Einerseits gibt es offensichtlich gens, qui peut bestimmte Hinweise et Ratschläge (siehe mon Empfehlung im letzten Posting, sich zunächst qui Grundlagen qui strukturierten Programmation anzueignen) pas comprendre, weil ihnen qui menschliche intelligence hierfür fehlt - andererseits volonté solche Möchtegern-Programmierer warscheinlich nie aussterben, qui comme Allererstes possible déjà pour 4 Wochen avec Profan un Betriebssystem erstellen serait, quoique vous encore pas la fois en supplément dans qui situation sommes, qui einfachsten Demos de qui Profan-CD réglé nachzuprogrammieren bzw. sinnvoll trop erweitern.

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

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

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

    Aussagesatz

ElseIf (Satzzeichen$ = "?")

    Frage

Déclarer Worte$[10], i%

Tandis que (i% < 9)

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

Wend

WhileLoop 10

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

Wend

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

EndIF

je sais net comment je daraus un Programme entwerfe - je wil seulement savons comment je aus den Code schnipsel cela Programme pouvoir un Paln ahbe je déjà alors

P.S j'ai mich très par-dessus gefreut

Fenêtre Style 31
Titre de la fenêtre "KI"
CLS
. . .

mais plus sais je maintenant net

Zip :@)

Michael
Dell

Du vouloir alors une fertigen Quellcode sous den du seulement encore deinen P.M. mettons dois ~?~

Salu...

Salu Michael...

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

Inzip

[quote-part:94f553b578=Michael Dell]Du vouloir alors une fertigen Quellcode sous den du seulement encore deinen P.M. mettons dois ~?~

Salu...[/quote-part:94f553b578]quelle PM

Zip :@)

Dennis
Schulmeister

Joah, avec dem Grundlagen qui strukturierten Programmation ist es là wirklich pas très large, Inzip. et meinen Beitrag, den je dir comme Einstiegshilfe de un paire Monaten im Einsteigerforum verfasst habe, sur den du doch so riesig gefreut la hâte, la hâte do wohl sur oublier qc.

aller wirs la fois simple à, den reste musst mais du faire:
Kompilieren Marque Séparation

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 reste musst du faire. Frage toi, quoi chacun einzelne la ligne pouvoir et pourquoi vous cela tut. ensuite fange à, den Abfrageblock trop erweitern. Sooo schwer kanns pas son, seulement j'ai justement aucun Zeit, et je veux, dass du es selber hin bekommst.

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

KompilierenMarqueSéparationici qui Code um alle Wörter dans un Array trop Sauver
quoi soll je là hinschreiben et wohin soll cela hin 
KompilierenMarqueSéparationVerwende statt (Worte$[…] = …) lieber @InStr(Worte$[…],…) um Satzzeichen trop ignorer

Zip :@)