powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / dimension- function
8 сообщений из 8, страница 1 из 1
dimension- function
    #32603626
sasha123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Pomoqite pojalusta ! Mne nado vicislit napirmer takuyu funksuyu z=x+y
A znachenie X i Y naxoditsa v pole X1 . 1-y 5 zapis znachenie X , sleduyushiy 5 zapis znachenie Y. Summa doljna bit v pole func1.Eto u menya poluchilos (11.RAR). No seychas delo v tom chto, eto funksiya moqut (z=x+y) menyatsa , i moqut bit mnoqoperemenniy:napirmer: z=(x*2+y)/(t-r/3) Kak eto zadachi reshat s pomoshi FUNCTION. Ili kak to po druqomu?
...
Рейтинг: 0 / 0
dimension- function
    #32604356
sasha123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
???!
...
Рейтинг: 0 / 0
dimension- function
    #32604551
Burn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Чесно говоря ничего не понял... Нужно написать программу чтобы с любым количеством параметров выбираемых из произвольных мест таблицы считала произвольную формулу? Такое врядли напишешь;)
Что такое в твоем примере "t" и "r"?
Но если остается прежняя схема - несколько записей с постояным шагом и произвольна формула в которой они идут впорядке расположения в таблице, то чтото такое:

PROCEDURE FUNK
PARAMETERS nmb_oper, step, formula
DIMENSION a(nmb_oper)

COPY TO ARRAY ga FIELD ik,x1

n=RecCount()
FOR i= 1 TO n
FOR j=1 TO nmb_oper
a(j)=ga(i+(j-1)*step, 2)
ENDFOR
a=&formula

&& Дальше не понял вашего принципа вставки так что делайте свми
ENDFOR

RETURN

Вызов:
DO funk WITH 4, 3, 'a(1)+a(2)-5*a(3)/a(4)'
...
Рейтинг: 0 / 0
dimension- function
    #32605041
sasha123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
z=(x*2+y)/(t-r/3). t i r peremenni kak x i y.yesli formula budet takaya , toqda
v tablitse ne 10 , a 20 zapis budet, i sootvetstvenno 1-y 5 zapis otnositsa na x, .... posledniy 5 zapis na r.(shaq postoyanniy, to yest v nashem primere x1=26.393, y1=10.438, x2=28.172, y2=12.466,......, x5=11.799, y5=20.024)
...
Рейтинг: 0 / 0
dimension- function
    #32606066
Burn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну так я все расписал:


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
*   Вызов
=Funk( 4 ,  5 , '(a(1)*2+a(2))/(a(3)-a(4)/3')

*   Функция
FUNCTION FUNK
PARAMETERS nmb_oper, step, formula
DIMENSION a(nmb_oper)

COPY TO ARRAY ga FIELD ik,x1

FOR i=  1  TO step
   FOR j= 1  TO nmb_oper
      a(j)=ga(i+(j- 1 )*step,  2 )
   ENDFOR
   a=&formula
   
   REPLACE func1 with a FOR ik=i
ENDFOR
RETURN
...
Рейтинг: 0 / 0
dimension- function
    #32607396
sasha123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Takaya oshibka vxodit: "index massiva vne zadannix predelov" I ya ne moq ispravit etu oshibku.
...
Рейтинг: 0 / 0
dimension- function
    #32607546
Burn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
У меня все работает. Разве что я забыл закрывающуюся чтрочку в формуле:
=Funk(4, 5, '(a(1)*2+a(2))/(a(3)-a(4)/3)')

Если чтото неработает, значит проблема в таблице или постановке задачи. Держите тестовый пример .
...
Рейтинг: 0 / 0
dimension- function
    #32609800
sasha123
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Vsye , spasibo ,Bum. Poluchilos!
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / dimension- function
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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