purebasic.info

PureBasic forum
Текущее время: Ср окт 18, 2017 7:47 pm

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ Сообщений: 2 ] 
Автор Сообщение
СообщениеДобавлено: Вс сен 24, 2017 2:48 pm 
Не в сети
студент

Зарегистрирован: Вс сен 24, 2017 2:22 pm
Сообщений: 1
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.
Пункты репутации: 0
Доброго времени суток!Как сделать так,что бы символы в процедуре сравнивались с каждой из ячеек массива и если такое же положение символов присутствовало,то выводилось 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"
 



Вернуться наверх
 Профиль  
 
СообщениеДобавлено: Вс сен 24, 2017 3:18 pm 
Не в сети
профессор

Зарегистрирован: Вс авг 31, 2014 12:11 am
Сообщений: 379
Благодарил (а): 47 раз.
Поблагодарили: 18 раз.
Пункты репутации: 10
Код:
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



Вернуться наверх
 Профиль  
 
Показать сообщения за:  Сортировать по:  
Начать новую тему Ответить на тему  [ Сообщений: 2 ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
cron
Создано на основе phpBB® Forum Software © phpBB Group (блог о phpBB)
Сборка создана CMSart Studio
Русская поддержка phpBB