FreeBasic
Главная
Вход
Регистрация
Среда, 07.12.2022, 20:30Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » Freebasic » Вопросы по языку FreeBasic » Насколько я знаю FreeBasic? (Небольшой опрос.)
Насколько я знаю FreeBasic?
Что будет результатом работы этой программы?
1.140[ 0 ][0.00%]
2.180[ 0 ][0.00%]
3.280[ 0 ][0.00%]
4.360[ 0 ][0.00%]
5.420[ 1 ][100.00%]
6.560[ 0 ][0.00%]
7.600[ 0 ][0.00%]
8.720[ 0 ][0.00%]
9.880[ 0 ][0.00%]
Всего ответов: 1
haavДата: Четверг, 19.01.2012, 13:07 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 1300
Репутация: 47
Статус: Offline
Пример взят из справки. Перед ответом запрещается запускать пример.

Code
Sub Halve (ByRef i As Integer)
  i /= 2
End Sub

Sub Triple (ByRef i As Integer)
  i *= 3
End Sub

Type operation As Sub (ByRef As Integer)

Dim operations(20) As operation = _
{ @Halve, @Triple, 0 }

Dim i As Integer = 280

Dim op As operation Ptr = @operations(0)
While (0 <> *op)
  (*op)(i)
  op += 1
Wend

Print "Value of 'i' after all operations performed: " & i
Sleep


Вы сохраняете власть над людьми покуда оставляете им что-то…Отберите у человека все, и этот человек уже будет неподвластен вам…
 
Форум » Freebasic » Вопросы по языку FreeBasic » Насколько я знаю FreeBasic? (Небольшой опрос.)
  • Страница 1 из 1
  • 1
Поиск: