ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Функция пользователя
2 сообщений из 2, страница 1 из 1
Функция пользователя
    #32506831
_Mikle_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Mikle_
Участник
Есть старая прога на бейсике, там есть строка
Def fnf(x)=x-2 && любая другая функция пользователя

Так вот, вроде в VFP вместо нее есть команда FUNCTION. Только после этой строки в проге все сворачивается. (A,B,E вводятся с клавиатуры)

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
FUNCTION y(x)= 1 /x^ 2 -ln(x- 2 )
for i= 1  to  1000 
	x=(a+b)/ 2 
	if abs(a-b)<=E
	   wait window "Xf= "+str(X)
	   exit
	endif
	if y(a)*y(b)< 0  
	   b=x
	else
	   a=x
	endif         
endfor
endfunc
...
Рейтинг: 0 / 0
05.05.2004, 09:06
| Ответить | Цитировать | Написать  
Функция пользователя
    #32506853
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
В FoxPro после ключевого слова FUNCTION должно стоять имя этой самой функции:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
FUNCTION MyFunc
for i= 1  to  1000 
	x=(a+b)/ 2 
	if abs(a-b)<=E
		wait window "Xf= "+str(X)
		exit
	endif
	if y(a)*y(b)< 0 
		b=x
	else
		a=x
	endif
endfor
endfunc

* Функция y(x)
* y(x)= 1 /x^ 2 -ln(x- 2 )
FUNCTION y
LPARAMETERS x
LOCAL lnRetValue
	lnRetValue =  1 /x^ 2 -LOG(x- 2 )
RETURN m.lnRetValue
ENDFUNC

Переменные A,B,E должны быть "видны" из функции MyFunc
...
Рейтинг: 0 / 0
05.05.2004, 09:31
| Ответить | Цитировать | Написать  
2 сообщений из 2, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Функция пользователя
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]