FreeBasic
Главная
Вход
Регистрация
Среда, 07.12.2022, 20:20Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » Freebasic » Исходники » Реверс строки (Реверс строки)
Реверс строки
haavДата: Вторник, 14.08.2012, 08:48 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 1300
Репутация: 47
Статус: Offline
Реверс строки


Пример того как можно прочитать строку задом наперед. Чье авторство не знаю.

Code
function Reverse( byref source as string ) as string
     dim as integer first => 0
     dim as integer last => Len(source)-1
      
     while( first < last )
         Swap source[first], source[last]
         first += 1 : last -= 1
     wend
     return source
end function

sub ReverseCopy( byref source as string, byref dest as string )
     dest = source
     dest = Reverse( dest )
end sub

     '' ----------------------------------------------------
     dim as string s
     ReverseCopy( "0123456789", s )
     print s ; " -> " ; Reverse( s )
      
     sleep : end 0


Вы сохраняете власть над людьми покуда оставляете им что-то…Отберите у человека все, и этот человек уже будет неподвластен вам…
 
DEPOzitДата: Среда, 15.08.2012, 14:21 | Сообщение # 2
Рядовой
Группа: Друзья
Сообщений: 8
Репутация: 0
Статус: Offline
Не плохо, только одного не пойму - зачем так мудрить то?)
Помоему легче по простому:
Code

Sub ReverseCopy( byref source as string, byref dest as string )   
       For i As Integer=Len (source) To 0 Step-1
       dest += Mid(source,i,1)  
       Next   
end sub   
       '' ----------------------------------------------------   
       dim As string s,s1
       s1="0123456789"   
       ReverseCopy( s1, s )   
       print  s1; " -> " ; s        
       Sleep


Сообщение отредактировал DEPOzit - Среда, 15.08.2012, 14:26
 
Форум » Freebasic » Исходники » Реверс строки (Реверс строки)
  • Страница 1 из 1
  • 1
Поиск: