AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Projekte Alice - künstliche Intelligenz

Alice - künstliche Intelligenz

Ein Thema von TimerTim · begonnen am 10. Jul 2007 · letzter Beitrag vom 23. Nov 2007
Antwort Antwort
Seite 7 von 9   « Erste     567 89   
TimerTim
Registriert seit: 17. Jun 2007
Hallo!

Ich habe gerade meine erste Consolen-Anwendung fertiggestellt.
Vielleicht war zufällig schon mal jemand von euch im HNF (Heinz Nixdorf-Museumsforum) in Paderborn, dem größten Computermuseum der Welt.
Dort gibt es das Programm "Alice - künstliche Intelligenz", und das habe ich nachprogrammiert.
Man kann sich bei diesem Programm mit Alice unterhalten.
Dieses Programm habe ich auch schon mit PureBasic programmiet, denn mit dieser Programmiersprache kann ich auch schon ein bisschen programmieren, aber viel weniger als mit Delphi.
Angehängte Dateien
Dateityp: exe alice_176.exe (53,5 KB, 371x aufgerufen)
Meine Homepage: www.tim.niepoetter.com
Neu auf meiner Homepage: Programmieren, Mathematik, Lolliges, Blog, Sonstiges
Bitte schreibt etwas ins Gästebuch!!!
 
Progman

 
Delphi 10.1 Berlin Starter
 
#61
  Alt 17. Sep 2007, 16:40
das Programm ist doch nur eine amateurmäßige Nachahmumg (sorry!) von ELIZA, das bereits 1966 programmiert wurde.
Wer sowas ernsthaft mal angehen möchte, soll auf den folgenden Link schauen und sich mal durchhangeln zu weiterführenden Links.
Klick
Karl-Heinz
  Mit Zitat antworten Zitat
s-off
 
#62
  Alt 17. Sep 2007, 17:11
Zitat von Progman:
das Programm ist doch nur eine amateurmäßige Nachahmumg (sorry!) von ELIZA, das bereits 1966 programmiert wurde.
wussten wir das nicht bereits
  Mit Zitat antworten Zitat
Namenloser

 
FreePascal / Lazarus
 
#63
  Alt 17. Sep 2007, 17:33
Zitat von Progman:
das Programm ist doch nur eine amateurmäßige Nachahmumg (sorry!) von ELIZA, das bereits 1966 programmiert wurde.
Wer sowas ernsthaft mal angehen möchte, soll auf den folgenden Link schauen und sich mal durchhangeln zu weiterführenden Links.
Klick
Du kannst von einem Zehnjährigen auch nicht das gleiche erwarten wie von einem 60-Jährigen. Das ist immerhin ein halbes Jahrhundert Differenz^^
Außerdem soll dieses Programm glaub ich auch eher "ein Gag" sein
  Mit Zitat antworten Zitat
Benutzerbild von Mr.Gogo
Mr.Gogo

 
Delphi 7 Enterprise
 
#64
  Alt 17. Sep 2007, 17:45
Hola,

naja das Programm ist nicht gerade der Renner ein bissl die Relation in der Unterhaltung verloren
  Mit Zitat antworten Zitat
zahor

 
Delphi 2007 Professional
 
#65
  Alt 17. Sep 2007, 20:11
Zitat von s-off:
Hallo zahor,

würde es Dir etwas ausmachen, Deinen Screenshot zu entfernen? Die Ausdrücke, die Du dort benutzt finde ich für ein öffentliches Forum, in welchem sich durchaus auch Teenies wie Du tummeln können, ehrlich gesagt ziemlich geschmacklos.

Und wenn Du meinst, Du würdest Tim damit auf irgeneine wissenschaftliche Art und Weise helfen können, dann schick ihm Deine Ergebnisse doch bitte per PN.

ich glaube, da waren die moderatoren schneller.
sorry trotzdem
  Mit Zitat antworten Zitat
TimerTim

 
Delphi 7 Personal
 
#66
  Alt 27. Okt 2007, 16:52
Hi,

Für eine neue Version von "Alice" habe ich eine Prozedur programmiert.
Sie soll, wenn ein Text in einem String vorkommt, die Variable "Found" auf True setzen.
So sieht Sie aus:
Delphi-Quellcode:
procedure TxtInStr(Str: String; Txt: String);
var i: Integer;
begin
  For i := 1 To Length(Str) Do If Copy(Str, i, i + Length(Txt) - 1) = Txt Then Found := True;
end;
Aber die Prozedur setzt "Found" nur auf True, wenn der Text am Anfang oder am Ende des Strings steht.
Wenn er in der Mitte ist, passiert nichts.
Was habe ich falsch gemacht?
Oder ist so eine Prozedur sogar schon in Delphi vorgegeben?
  Mit Zitat antworten Zitat
Benutzerbild von cruiser
cruiser

 
Delphi 7 Enterprise
 
#67
  Alt 27. Okt 2007, 17:32
Uhm... darf ich dir Pos ans Herz legen?

Delphi-Quellcode:
procedure TxtInStr(Str: String; Txt: String);
begin
  Found := (Pos(Txt, Str) >= -1);
end;
Vermutlich wird dann sogar die procedure-Kapselung überflüssig
Ronny Lüttke
  Mit Zitat antworten Zitat
Progman

 
Delphi 10.1 Berlin Starter
 
#68
  Alt 27. Okt 2007, 18:25
Found := (Pos(Txt, Str) >= -1); Das ist nicht ganz korrekt. Pos gibt die Position des ersten Vorkommens zurück, die (in Delphi-Strings) mit 1 beginnt.
Wurde nichts gefunden, wird 0 zurückgegeben. Also würde die ja immer True zurrückliefern.
richtig ist:
Found := Pos(Txt, Str) > 0;
Karl-Heinz
  Mit Zitat antworten Zitat
TimerTim

 
Delphi 7 Personal
 
#69
  Alt 27. Okt 2007, 18:53
Danke, aber ich habe gerade gemerkt, dass das immer noch nicht richtig ist.
Richtig ist:
Found := Pos(Txt, Str) >= 1;
  Mit Zitat antworten Zitat
Benutzerbild von cruiser
cruiser

 
Delphi 7 Enterprise
 
#70
  Alt 27. Okt 2007, 19:27
stimmt.. bei Delphi-Strings komm ich immer gern ins schwitzen... historisch korrekt, aber irgendwie unlogisch...

- hier stand mal was über nen Type-Cast -
Ronny Lüttke
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:50 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz