Witam chciałem zrobić coś w stylu chaterbota i napisałem coś takiego
USES CRT;
VAR
imie:string;
a:string;
b:string;
c:string;
BEGIN
clrscr;
writeln(' Jak masz na imiŠ?');
read(imie);
writeln('A ja jestem MAJKEL');
writeln('MAJKEL: I co tam u ciebie ',imie,' sˆycha†');
write('',imie,': ');
read(a);
if a='nic' then writeln('MAJKEL: Nic a jak tam w szkole');
if a='g˘wno'or a='jajco' or a='jajko' then writeln('MAJKEL: Chyba twoje ',a,'!');
if a='wypierdalaj' or a='spierdalaj' or a='ty huju' or a='ty pojebie' or a='ty dziwko' then writeln('MAJKEL: Lepszych sˆ˘w nie masz kutasie!!!');
write('',imie,');
read(B);
if b='hujowo' or b='do dupy' or b='zjebanie' then writeln('MAJKEL: M˘wisz ',b,,'');
if b='twoje' or b='chyba twoje' or b='twoje ciulu' or b='ty kutasie' then writeln('MAJKEL: SPIERDALAJ SOUND(4000);');
readln;
problem pojawia się tutaj if a='nic' then writeln('MAJKEL: Nic a jak tam w szkole');
if a='g˘wno'or a='jajco' or a='jajko' then writeln('MAJKEL: Chyba twoje ',a,'!');
if a='wypierdalaj' or a='spierdalaj' or a='ty huju' or a='ty pojebie' or a='ty dziwko' then writeln('MAJKEL: Lepszych sˆ˘w nie masz kutasie!!!');
gdy chce odpowiedzieć program się wyłancza jeżeli ktoś umie poprawić z góry dzięki
Zamykaj kod w znaczniki [ code ], wtedy się dużo wygodniej czyta.
Marmot.