Board index » delphi » program problem with tp 7.0

Jacque Valérian

Delphi Developer
Sat, 02 Oct 2004 12:56:52 GMT

program problem with tp 7.0

i would like to do a program that do :

when you enter a string, it can respond you normally like human (can do
sentences by itself, can have a judgement), "understand" if the sentence is
a joke or serious, philosophic, question needed answer(s), ...

 all must be done in tp because i don't want to pay anything to dbase or
access or else.

thanks beforehand

 
Jan Philip

Delphi Developer
Sat, 02 Oct 2004 14:15:28 GMT

Re:program problem with tp 7.0


On Tue, 16 Apr 2002 06:56:52 +0200, "Jacque Valrian"

Quote
<jac...@wanadoo.be> wrote:
>i would like to do a program that do :

>when you enter a string, it can respond you normally like human (can do
>sentences by itself, can have a judgement), "understand" if the sentence is
>a joke or serious, philosophic, question needed answer(s), ...

Doing that in the 64KB segments of TP 7 will be difficult.
Trane Franck

Delphi Developer
Sat, 02 Oct 2004 14:19:44 GMT

Re:program problem with tp 7.0


Quote
Jan Philips wrote:

> >when you enter a string, it can respond you normally like human (can do
> >sentences by itself, can have a judgement), "understand" if the sentence is
> >a joke or serious, philosophic, question needed answer(s), ...

> Doing that in the 64KB segments of TP 7 will be difficult.

Not to mention the knowledge of linguistics necessary to pull it
off convincingly.

trane
--
//------------------------------------------------------------
//   Trane Francks   tr...@gol.com   Tokyo, Japan
//   Practice random kindness and senseless acts of beauty.
//   http://artists.mp3s.com/artists/348/trane_francks.html

Markus Hum

Delphi Developer
Sat, 02 Oct 2004 17:43:59 GMT

Re:program problem with tp 7.0


There are programs like this, just search for "Eliza" with google. This
should give some links...

Greetings

Markus

Jan Philip

Delphi Developer
Sat, 02 Oct 2004 23:26:35 GMT

Re:program problem with tp 7.0


On Tue, 16 Apr 2002 11:43:59 +0200, Markus Humm

Quote
<markus.h...@freenet.de> wrote:
>There are programs like this, just search for "Eliza" with google. This
>should give some links...

Eliza just pretends to do it.
Femme Verbee

Delphi Developer
Sun, 03 Oct 2004 00:25:20 GMT

Re:program problem with tp 7.0


"Jacque Valrian" <jac...@wanadoo.be> schreef in bericht
news:a9gbaj$1ejfs$1@sinclair.be.wanadoo.com...

Quote
> i would like to do a program that do :

> when you enter a string, it can respond you normally like human (can do
> sentences by itself, can have a judgement), "understand" if the
sentence is
> a joke or serious, philosophic, question needed answer(s), ...

>  all must be done in tp because i don't want to pay anything to dbase
or
> access or else.

> thanks beforehand

uses crt;
const nofanswers=16;
      answers:array[1..nofanswers]of string=
     ('Oh really',
       'I''m not sure I understand that completely',
       'Please tell me more',
       'Hmm',
       'huh',
       'well?',
       'so?',
       'and..',
       'sure',
       'ahhh'
       'I see'
       'well?'
       'does it have anything to do with your youth'
       'sounds like something for Yerry Springer'
        'and how does that make you feel'
        'and why is that?'
       );
   useranswer:string='';
begin
  randomize;
  writeln('How do you feel today?');
  while useranswer<>'bye' do
  begin
    readln(Useranswer);
    writeln(answers[random(nofanswers)+1])
  end;
  writeln('Ok bye.')
end.

Let turn this into a game. Who can give here the highest number of
worthless always appliacable answers that indicate the average level of a
psychiatrist.

Femme

Femme Verbee

Delphi Developer
Sun, 03 Oct 2004 00:26:06 GMT

Re:program problem with tp 7.0


"Markus Humm" <markus.h...@freenet.de> schreef in bericht
news:3CBBF25F.5010008@freenet.de...

Quote
> There are programs like this, just search for "Eliza" with google. This
> should give some links...

> Greetings

> Markus

Wasn't that written in LISP?

Femme

Femme Verbee

Delphi Developer
Sun, 03 Oct 2004 06:24:56 GMT

Re:program problem with tp 7.0


"Femme Verbeek" <fv[at]{*word*104}jet[dot]nl> schreef in bericht
news:ubok5qe9ovqmcb@corp.supernews.com...

Quote

> "Markus Humm" <markus.h...@freenet.de> schreef in bericht
> news:3CBBF25F.5010008@freenet.de...
> > There are programs like this, just search for "Eliza" with google.
This
> > should give some links...

> > Greetings

> > Markus

> Wasn't that written in LISP?

> Femme

I found a pascal version of it on the net.

http://cs.boisestate.edu/~amit/teaching/125/programs/fun/therapist/el...

You need the Eliza.pas and the response.dat.

Femme

Markus Hum

Delphi Developer
Sun, 03 Oct 2004 19:28:47 GMT

Re:program problem with tp 7.0


Quote
> Wasn't that written in LISP?

May be, but Eliza comes from Eliza Doolittle (I think), a character from
a George Bernhard Shaw play. It is nowdays a synonym for this type of
program.

Markus

Other Threads

1. To stop program which is running in TP 7.0

2. Porting BP/TP 7.0 programs to Windows 3.X/95/NT

3. TSR PROGRAMS & TP 7.0

4. modem control by TP 7.0 program

5. Windows programs in TP 7.0

6. Question: Backward compatibility TP 7.0 & TP 6.0

7. Q: Incompatibilities between TP 6.0 and TP 7.0

8. Differences Between TP 5.0 & TP 7.0

9. TP 6.0 Source -> TP 7.0 Error

10. Translating TP 3.0 to TP 7.0