purebasic.info
http://purebasic.info/phpBB3ex/

Как сравнить символы ячеек массива с другими символами в cas
http://purebasic.info/phpBB3ex/viewtopic.php?f=5&t=4769
Страница 1 из 1

Автор:  hel78 [ Вс сен 24, 2017 2:48 pm ]
Заголовок сообщения:  Как сравнить символы ячеек массива с другими символами в cas

Доброго времени суток!Как сделать так,что бы символы в процедуре сравнивались с каждой из ячеек массива и если такое же положение символов присутствовало,то выводилось s,а если же нет то выводилось b.
Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Array.s(12)
Array.s(1)="fg"
Array.s(2)="gfg"
Array.s(3)="fgf"
Array.s(4)="fhfh"
Array.s(5)="hffh"
Array.s(6)="hffh"
Array.s(7)="fhfh"
Array.s(8)="fhhf"
Array.s(9)="sfgshg"
Array.s(10)="dfh1"
Array.s(11)="gdsggs"
 


Автор:  knower [ Вс сен 24, 2017 3:18 pm ]
Заголовок сообщения:  Re: Как сравнить символы ячеек массива с другими символами в

Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Global Dim MyArray.s(12)
 
Procedure Compare(string.s)
  For i=0 To ArraySize(MyArray())-1
    If MyArray(i) = string
      ProcedureReturn #True
    EndIf
  Next i
  ProcedureReturn #False
EndProcedure
 
Procedure Fill_Array()
  MyArray(0)="111"
  MyArray(1)="fg"
  MyArray(2)="gfg"
  MyArray(3)="fgf"
  MyArray(4)="fhfh"
  MyArray(5)="hffh"
  MyArray(6)="hffh"
  MyArray(7)="fhfh"
  MyArray(8)="fhhf"
  MyArray(9)="sfgshg"
  MyArray(10)="dfh1"
  MyArray(11)="gdsggs"
EndProcedure
 
 
Fill_Array()
If Compare("fhfh")
  Debug "s"
Else
  Debug "b"
EndIf


Страница 1 из 1 Часовой пояс: UTC + 3 часа
Powered by phpBB® Forum Software © phpBB Group
http://www.phpbb.com/