Jak zrobić chatterbota?
1. Na początku zastanówmy się o czym mamy rozmawiać z naszym botem(ja w moim będę robił o tematach ogólnych - czyli o wszystkim).
2. Ściągamy Turbo Pascala i go instalujemy(wujek GOOGLE wie skąd to ściągnąć).
3. Odpalamy TP i dajemy File/New.
4. Teraz część najtrudniejsza. Wpisujemy kod:
5. Ten kod można dowolnie zmieniać(a nawet należy dodać mu wiele funkcji).
6. Po zakończeniu pisania programu klikamy Compile/Compile(Alt+F9)/Enter aby skompilować program.
7. Aby uruchomić program klikamy Run/Run(Ctrl+F9).
PS. Jeżeli pomogłem to proszę PRZECZYTAJ TO:http://www.forumowisko.pl/index.php?showtopic=111250
PS2. Uwaga to mój pierwszy artykuł więc proszę o wyrozumiałość.
PS3. Mam nadzieje że wszyscy wszystko zrozumieli.
Proszę o komentarze!
1. Na początku zastanówmy się o czym mamy rozmawiać z naszym botem(ja w moim będę robił o tematach ogólnych - czyli o wszystkim).
2. Ściągamy Turbo Pascala i go instalujemy(wujek GOOGLE wie skąd to ściągnąć).
3. Odpalamy TP i dajemy File/New.
4. Teraz część najtrudniejsza. Wpisujemy kod:
Kod:
uses crt;
var
odp:string;
stan:byte;
begin
stan:=1;
repeat
readln(odp);
if pos('czesc',odp)>0 then writeln('Czesc!')
{Jeµeli napiszemy botowi "czesc" to on nam odpisze "Czesc!"}
else if pos('ile',odp) and pos('lat',odp) >0 then writeln('A, powstalem niedawno.')
{Jeµeli kto˜ tu napisze "ile masz bocie latek?" bot odpisze "A, powstalem niedawno."}
else if pos('narq',odp)>0 then begin writeln('Narq!'); delay(3000); stan:=0; end
{Tu jeµeli napiszemy "narq bocie" to on nam odpisze "Narq!" odczeka 3 sekundy i wyˆĄczy program.}
{(...) tutaj piszemy dalej else if... ile nam sie podoba :P }
else writeln('Niestety cie nie rozumiem.');
{Jeµeli napiszemy botowi co˜ co on nie rozumie to on napisze "Niestety cie nie rozumiem."}
until stan=0;
end.5. Ten kod można dowolnie zmieniać(a nawet należy dodać mu wiele funkcji).
6. Po zakończeniu pisania programu klikamy Compile/Compile(Alt+F9)/Enter aby skompilować program.
7. Aby uruchomić program klikamy Run/Run(Ctrl+F9).
PS. Jeżeli pomogłem to proszę PRZECZYTAJ TO:http://www.forumowisko.pl/index.php?showtopic=111250
PS2. Uwaga to mój pierwszy artykuł więc proszę o wyrozumiałość.
PS3. Mam nadzieje że wszyscy wszystko zrozumieli.
Proszę o komentarze!
