Вызов подпрограммы (C++Builder 6)

[vale4ka_1989]

Подскажите, пожалуйста, как произвести вызов подпрограммы? Я читала в книге, там написано просто написать название подпрограммы, но у меня не считывает данные от туда.

[Alex11223]

А конкретнее? Покажите код.

просто написать название подпрограммы

и передать аргументы если она их требует.

[vale4ka_1989]

IKRON(B,EE,D,H,B2,P,R) - название подпрограммы, B,EE,D,H,B2 - константы, Р - результирующее значение в подпрограмме, которое используется в самой программе и оно почему-то получается равным нулю.

[BDA]

Покажите весь код. Пока среди нас нету экстрасенсов, которые видят, что происходит в вашей подпрограмме.

[vale4ka_1989]

void IKRON(double B, double EE, double D, double H, double AA, double P, double R) {
double U[9], V[9], BB[9], E1, S1, Z1, BT, EP, AT, ET, S2,S3, EF, ZZ, XX, YY, AX, Q, W=2, QQ,X;
boolean T;
U[0]=0.011719874;
U[1]=0.069431844;
U[2]=0.179856891;
U[3]=0.330009478;
U[4]=0.5;
U[5]=0.669990521;
U[6]=0.820143108;
U[7]=0.930568155;
U[8]=0.988280125;
V[0]=0;
V[1]=0.173927422;
V[2]=0;
V[3]=0.326072577;
V[4]=0;
V[5]=0.326072577;
V[6]=0;
V[7]=V[1];
V[8]=0;
BB[0]=0.031488686;
BB[1]=0.085026802;
BB[2]=0.13339917;
BB[3]=0.163474594;
BB[4]=0.17322149;
BB[5]=0.163474594;
BB[6]=0.13339917;
BB[7]=0.085026802;
BB[8]=BB[0];
T=FALSE;
E1=0.0;
S1=0.0;
Z1=H;
BT=AA;
EP=EE/(B-AA);
while (BT!=B){
	AT=BT;
	do {
		BT=AT+Z1;
		if (BT<B){
			Z1=B-AT;
			BT=B;
		}
		ET=EP*Z1;
		S2=0;
		S3=0;
		for (K=0; K<=8.0; K++){
		     	X=AT+Z1*U[K];
			QQ=QI(X,R);
                        S2=S2+QQ*V[K];
			S3=S3+QQ*BB[K];
		}
		S2=S2*Z1;
		S3=S3*Z1;
		EF=fabs(S3-S2);

		if (EF<=EF){break;}
		ZZ=Z1/W;
		if(ZZ<=D){
			XX=EE-E1-EF;
			if (XX>0){
				YY=B-BT;
				if (YY>0){
					EP=XX/YY;
				}
				else {
					EP=0;
				}
			}
			break;
		}
		Z1=Z1/W;
	} while (1==1);
	E1=E1+EF;

	if ((T==1)&&(EF<ET)) {
		Z1=Z1*W;
	}
	if (AX>0){
		T=1;
	}
	else {
		T=0;
	}
	S1=S1+S3;
}
P=S1;


}

[Alex11223]

Потому что в подпрограмме используется копия Р, а не то, которые в основной программе. Надо использовать ссылку или указатель.

[LiuLiuJons]

Сообщение от vale4ka_1989

IKRON(B,EE,D,H,B2,P,R) - название подпрограммы, B,EE,D,H,B2 - константы, Р - результирующее значение в подпрограмме, которое используется в самой программе и оно почему-то получается равным нулю.

Чтобы у вас было результирующее значение того, что вы называете "подпрограммой", а на самом деле функции, надо прописать возвращаемый тип, например вот так:

double IKRON(double B, double EE, double D, double H, double AA, double P, double R) {...
P=S1;
return P;}

Или же другой вариант: если вам надо изменять P в процессе работы этой функции (IKRON), то вызывайте её по адресу:

void IKRON(double B, double EE, double D, double H, double AA, double& P, double R)

[vale4ka_1989]

Сообщение от Alex11223

Потому что в подпрограмме используется копия Р, а не то, которые в основной программе. Надо использовать ссылку или указатель.

А как это? Напишите, пожалуйста.

[Alex11223]

Погуглите лучше или в учебнике поищите.
double& P если коротко.
Да, или лучше с помощью возвращаемого значения
т.е. объявить подпрограмму как double IKRON и в ней return в конце, а в самой програме

переменная_в_которой_нужен_результат = IKRON(аргументы);

[vale4ka_1989]

Alex11223 и LiuLiuJons, спасибо!