SHARE
TWEET

Untitled

a guest May 4th, 2016 270 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Type LetLib
  2.     Field Letther$
  3. End Type
  4.  
  5. fntArial=LoadFont("Arial Cyr",16) ;CYR для русский шрифтов
  6. SetFont fntArial
  7.  
  8. ;Загружаем библиотеку слов
  9. LoadWords()
  10. Print "Введите слово для проверки"
  11. While Not KeyHit(1) ;Крутим прогу пока юзер ее не закроет
  12.     InputText$=Lower(Input$());Получаем текст от юзера
  13.     Check(InputText$); проверяем слова
  14.    
  15. Wend
  16.  
  17. Function Check(Texts$);функция проверки
  18.    
  19.     Word1$=GetParams$(Texts$,1);проверяем слово
  20.     If CheckWord(Word1$)=1; если слово сошлось
  21.         Write "OK  ";Пишем ОК
  22.     Else ; иначе
  23.         Write "Ошибка в слове:"+Word1+"  ";напишем слово в котором ошибка
  24.     EndIf
  25.    
  26.     Word2$=GetParams$(Texts$,2); повторяем N раз
  27.     If CheckWord(Word2$)=1
  28.         Write "OK  "
  29.     Else
  30.         Write "Ошибка в слове:"+Word2+"  "
  31.     EndIf
  32.    
  33.     Word3$=GetParams$(Texts$,3)
  34.     If CheckWord(Word3$)=1
  35.         Write "OK  "
  36.     Else
  37.         Write "Ошибка в слове:"+Word3+"  "
  38.     EndIf
  39.     Print "Введите слово для проверки"
  40. End Function
  41.  
  42. Function CheckWord(word$)
  43.     For L.LetLib = Each LetLib ;проходимся по словарю
  44.         If Lower(L\Letther$)=word$ ;если наше слово подходит то выходим из цикла с еденичкой
  45.             Return 1
  46.         EndIf
  47.     Next
  48.     Return 0 ; если не нашли то отдадим ноль
  49. End Function
  50.  
  51. Function LoadWords()
  52.     filein = ReadFile("mydata.txt") ;Файл с библиотекой
  53.     masssize = ReadLine$( filein ) ;Кол во слов
  54.     For y=1 To masssize
  55.         L.LetLib = New LetLib
  56.         L\Letther$= ReadLine$( filein );Запишем в память прочитанное слово.
  57.     Next
  58.     CloseFile filein ;Закроем поток, освободим память, ведь ее так мало
  59. End Function
  60.  
  61. Function GetParams$(StringR$,num) ;Расшифровка строки, написана для другого проекта но работает и тут
  62.     Spacer$=" "
  63.     Local offset1 = Instr(StringR$,Spacer$,1)
  64.     Local offset2 = Instr(StringR$,Spacer$,offset1+1)
  65.     Local offset3 = Instr(StringR$,Spacer$,offset2+1)
  66.     Local offset4 = Instr(StringR$,Spacer$,offset3+1)
  67.     Local offset5 = Instr(StringR$,Spacer$,offset4+1)
  68.     Local offset6 = Instr(StringR$,Spacer$,offset5+1)
  69.    
  70.     Select num
  71.         Case 1
  72.             Return Left(StringR$,offset1-1)
  73.         Case 2
  74.             Return Mid(StringR$,offset1+1,offset2-offset1-1)
  75.         Case 3
  76.             Return Mid(StringR$,offset2+1,offset3-offset2-1)
  77.         Case 4
  78.             Return Mid(StringR$,offset3+1,offset4-offset3-1)
  79.         Case 5
  80.             Return Mid(StringR$,offset4+1,offset5-offset4-1)
  81.         Case 6
  82.             Return Right(StringR$,Len(StringR$)-offset6)
  83.     End Select
  84. End Function
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top