Zitat von
TurboMartin:
Wenn "Alice" etwas fragt, antwortet er immer mit "aha"
Vielleicht bringst du ihm auch das antworten bei, denn man kann ihn nichts fragen - zumindest gab es bei mir nie eine Antwort von ihr/m.
Sonst sehr gut
ach so: häufigste Frage war, ob ich Fußball mag
Alice antwortet nicht immer mit "aha":
Delphi-Quellcode:
rnd := Random(9)+1;
If rnd = 1 Then rndtxt := ' interessierst du dich fuer fussball?';
If rnd = 2 Then rndtxt := ' wer ist dein liebster science fiction-autor?';
If rnd = 3 Then rndtxt := ' glaubst du, das kuenstliche intelligenzen irgendwann einmal anwaelte ersetzen koennen?';
If rnd = 4 Then rndtxt := ' wer ist dein idol?';
If rnd = 5 Then rndtxt := ' wie alt bist du?';
If rnd = 7 Then rndtxt := ' wie hast du von alice erfahren?';
If rnd = 8 Then rndtxt := ' wo wohnst du?';
If rnd = 9 Then rndtxt := ' bist du maennlich oder weiblich?';
Writeln(rndtxt);
rnd2 := Random(3)+1;
If rnd = 2 Then rnd2 := 1;
If rnd = 6 Then rnd2 := 1;
If rnd = 8 Then rnd2 := 1;
If rnd = 9 Then rnd2 := 1;
If rnd2 = 3 Then Writeln(' an einem ort, den wir realitaet nennen.');
If rnd = 1 Then Writeln(' aha.');
If rnd = 2 Then Writeln(' wer ist das?');
If rnd = 3 Then Writeln(' aha.');
If rnd = 4 Then Writeln(' wer ist das?.');
If rnd = 5 Then
begin
rnd2 := Random(3)+1;
If rnd2 = 1 Then Writeln(' ich haette dich ein Jahr aelter geschaetzt.');
If rnd2 = 2 Then Writeln(' ich haette dich ein Jahr juenger geschaetzt.');
If rnd2 = 3 Then Writeln(' aha.');
end;
If rnd = 6 Then Writeln(' aha.');
If rnd = 7 Then Writeln(' aha.');
If rnd = 8 Then
begin
If (LeftStr(txt, 3) = 'in ') And (RightStr(txt, 1) = '.') Or (RightStr(txt, 1) = '!') Then Writeln(' erzaehle mir ein wenig ueber',Copy(txt, 3, Length(txt) - 3),'.')
Else
Writeln(' aha.');
end;
If rnd = 9 Then If (txt = 'weiblich.') Or (txt = 'ich bin weiblich.') Then Writeln(' cool, ich auch. schoen, auch mal wieder eine frau zu treffen.')
Else
Writeln(' aha.');
Aber ich sollte vielleich wirklich ein paar mehr Antworten programmieren.
Alice gibt schon meistens eine Antwort (die Warscheinlichkeit ist 80%):
Delphi-Quellcode:
rnd := Random(5)+1;
If rnd = 5 Then
begin
//Fragen
...
end;
Alice aus dem HNF ist auch nicht gerade schlauer (siehe angehängtes Bild).
Zitat von
NamenLozer:
Lol, das ist auch lustig:
Zitat:
>>ich bin eine papaya
du bist eine papaya
wie gefaellt dir deine arbeit als eine papaya
Fragt bitte nicht, wie ich darauf gekommen bin, das einzugeben 
/edit: eine frage: wieso hängt das Programm an manche Fragen immer "an einem ort, den wir realitaet nennen" an?
Alice im HNF hängt manchmal auch an die Fragen diesen Satz an, und mein Programm wollte ich ungefähr genauso programmieren.