Sayfa 85

PRINT: PRINT RANNOW=SEQ(0)

FOR I=1 TO TUR PRINT "SU ANKİ SAYI : ";RANNOW INPUT "BİR SONRAKİ SAYI [Y]UKSEK MI [A]LCAK MI OLACAK ? ",N$ IF N$="Y" OR N$="y" THEN FARKOYUNCU=1 ELSE FARKOYUNCU=-1 RANNEXT=SEQ(I) IF RANNEXT>RANNOW THEN FARK=1 IF RANNEXT<RANNOW THEN FARK=-1 IF RANNEXT=RANNOW THEN FARK=0 PRINT "BİR SONRAKİ SAYI ";RANNEXT;" İDİ." IF FARK=FARKOYUNCU THEN PUANOYUNCU=PUANOYUNCU+1 : PRINT "İyi' ELSE PRINT "Hay allah !" RANNOW=RANNEXT PRINT NEXT I

SONUCOYUNCU=INT((PUANOYUNCU/TUR)M00) PRINT "PUANINIZ ";SONUCOYUNCU

RETURN

REM ********************************************** REM *** BİLGİSAYARIN OYNAMASI *** REM **********************************************

COMPUTER:

PRINT : PRINT "SİMDİ SIRA BENDE"

PRINT "TUR ADEDİ =";TUR RANNOW=SEQ(0)

FOR I=1 TOTUR PRINT "SU ANKİ SAYI : ";RANNOW PRINT "GELEBİLECEK BİR SONRAKİ SAYI : "; IF N(RANNOW)<1 THEN FARKBILGISAYAR=-1 :PRINT "ALÇAK" ELSE FARKBILGISAYAR=1 : PRINT "YÜKSEK" RANNEXT=SEQ(I) IF RANNEXT>RANNOW THEN FARK=1 IF RANNEXT<RANNOW THEN FARK=-1 IF RANNEXT=RANNOW THEN FARK=0 PRINT "BİR SONRAKİ SAYI ";RANNEXT;" İDİ." I FARK=FARKBILGISAYARTHEN PUANBILGISAYAR=PUANBILGISAYAR+1 : PRINT "COK İYİ" ELSE PRINT "UZGUNUM" RANNOW=RANNEXT PRINT NEXTI

SONUCBILGISAYAR=INT((PUANBILGISAYAR/TUR)*100) PRINT "BENİM PUANIM : ";SONUCBILGISAYAR

RETURN

ELVEDA:

PRINT "PUANINIZ : ";SONUCOYUNCU

IF SONUCBILGISAYAR=SONUCOYUNCU THEN PRINT "EŞİTİZ !" IF SONUCBILGISAYAR>SONUCOYUNCU THEN PRINT "BEN KAZANDIM" IF SONUCBILGISAYAR<SONUCOYUNCU THEN PRINT "SIZ KAZANDINIZ" PRINT : PRINT

RETURN