home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 September / 64er_Magazin_89-09_1989_Markt__Technik_de_Side_A.d64 / iterativ-suche (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  916b  |  39 lines
  1. 10 rem -----------------------------
  2. 20 rem --                         --
  3. 30 rem --  beispielprogramm fuer  --
  4. 40 rem --  iterative stringsuche  --
  5. 50 rem --   in sortiertem array   --
  6. 60 rem --                         --
  7. 70 rem --  matthias ullmann 1989  --
  8. 80 rem --                         --
  9. 90 rem -----------------------------
  10. 100 :
  11. 110 rem ** pseudostrings erzeugen **
  12. 120 :
  13. 130 sm=676 : dim a$(sm)
  14. 140 for x=65 to 90 : for y=65 to 90
  15. 150 i=i+1 : a$(i)=chr$(x)+chr$(y)
  16. 160 next y,x
  17. 170 :
  18. 180 rem ** simuliertes hauptprogramm **
  19. 190 :
  20. 200 su$="" : input"suchkriterium ";su$
  21. 210 if su$="*" then end
  22. 220 ti$="000000" : gosub 10000 : goto 200
  23. 230 :
  24. 240 rem ** routine "iterative suche" **
  25. 250 :
  26. 10000 ug=1 : og=sm+1
  27. 10010 :
  28. 10020 ve=int((ug+og)/2)
  29. 10030 if a$(ve)=su$ then 10100
  30. 10040 :
  31. 10050 if ve=ug then 10120
  32. 10060 :
  33. 10070 if a$(ve)<su$ then ug=ve : goto 10020
  34. 10080 og=ve : goto 10020
  35. 10090 :
  36. 10100 sn=ve : print"satznummer =";sn,"ti =";ti : return
  37. 10110 :
  38. 10120 sn=0 : print"*** satz nicht gefunden ***" : return
  39.