Welche Programmiersprache < Pascal < Programmiersprachen < Praxis < Informatik < Vorhilfe
|
| Status: |
(Frage) beantwortet  | | Datum: | 19:53 So 12.02.2006 | | Autor: | Phoney |
Hallo Leute.
Ich setze mich zur Zeit mit dem Programm ELIZA auseinander. Nun bin ich auf einen zugänglichen Quelltext gestossen (![[]](/images/popup.gif) Quelle)
Die ersten Zeilen sehen wie folgt aus:
program eliza;
const
bbs_chat_file = 'bbschat.net'; {script file name}
type
string_12 = string[12]; { global types }
string_25 = string[25];
string_80 = string[80];
string_255 = string[255];
bull_line_ptr = ^string_80;
charset = set of char;
const
alphabet : charset = ['A'..'Z']; {global variables used in the bbs}
locase : array['A'..'Z'] of char =
('a','b','c','d','e','f','g','h','i','j','k',
'l','m','n','o','p','q','r','s','t','u','v','w','x','y','z');
var
case_switch : boolean; {tells the input routine on the bbs to}
{convert lower case to upper. serves}
{no purpose here, though}
text_file : text[4096];
procedure check_time_limit;
begin
end;
procedure clear_buffer;
begin
end;
procedure chat_with_eliza;
const
max_trans = 24; {number of words to transpose}
max_reply = 20; {the maximum number of replies for each set of responses}
max_key = 100; {maximum number of key words}
type
keyrec = record
word : string_25;
resp_set : integer;
end;
reprec = record
tot_resp : integer;
last_resp : integer;
reply : array[0..max_reply] of bull_line_ptr;
end;
key_word_array = array[1..max_key] of keyrec;
resp_set_array = array[1..max_key] of reprec;
transpose_array = array[1..max_trans] of string_12;
var
tmp_str : string_255;
end_of_chat : boolean;
this_keyword : string_255;
user_input : string_255;
current_response : integer;
i : integer;
key_no : integer;
key : key_word_array;
Unter anderem sind noch einige Schleifen drinne:
begin
if transpose <> max_trans then
begin
transpose := transpose + 1;
tmp_str[0] := pred(tmp_str[0]);
wordin[transpose] := tmp_str;
read_script_line;
if tmp_str[1] = 'T' then
begin
delete(tmp_str,1,1);
tmp_str[0] := pred(tmp_str[0]);
wordout[transpose] := tmp_str;
end
else
end_of_chat := true;
end;
end;
Erkennt hier jemand die Programmiersprache? Ich würde sagen, es ist Delphi, weiß da jemand genaueres?
Kann mir vielleicht auch jemand sagen, wie man ELIZA bezeichnet? en.wikipedia.org sagt mir, es ist ein Chatterbot. Kennt jemand einen deutschen Begriff davon?
Grüße Phoney
|
|
| |
|
| Status: |
(Antwort) fertig  | | Datum: | 20:28 So 12.02.2006 | | Autor: | Loddar |
Hallo Phoney!
Ich würde hier mal auf eine (Turbo-)Pascal-Version tippen.
Gruß
Loddar
|
|
|
| |
|
| Status: |
(Mitteilung) Reaktion unnötig  | | Datum: | 17:16 Mo 13.02.2006 | | Autor: | Phoney |
Alles klar.
Loddar, danke dir!!!
Gruß...
|
|
|
|
