Skocz do zawartości

Pascal problem kodu


Majkelnajt

Rekomendowane odpowiedzi

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.

Odnośnik do komentarza
Udostępnij na innych stronach

Zamknij to w pętlę repeat until lub while, to chyba logiczne ;p . Tylko przerób jakoś ten kod, żebyś mógł dalej rozmawiać, bo w obecnej postaci to to raczej nie da zamierzonych wyników nawet po zamknięciu w pętlę.

 

EDIT: Chociaż nie, dałoby się, ale to sobie sam pokombinuj, bo pętle to podstawy :P .

Odnośnik do komentarza
Udostępnij na innych stronach

Jeśli chcesz dodać odpowiedź, zaloguj się lub zarejestruj nowe konto

Jedynie zarejestrowani użytkownicy mogą komentować zawartość tej strony.

Zarejestruj nowe konto

Załóż nowe konto. To bardzo proste!

Zarejestruj się

Zaloguj się

Posiadasz już konto? Zaloguj się poniżej.

Zaloguj się
  • Ostatnio przeglądający   0 użytkowników

    • Brak zarejestrowanych użytkowników przeglądających tę stronę.
×
×
  • Dodaj nową pozycję...