ON GOTO statement to vc++
-
I got this BASIC code from an old book, I am converting this to c, could somebody tell me what is "On NTY GoTo 610, 620, 680, 690" function is? I know that is to go to line 610,620,680,690. but what are the conditions for that? what about " !" in here?, In c if it is "!=" that is not equal to, but what about here? It canot be factorial number. NTY = ITYPE(I): KP = 4 * (I - 1) + 1 600 On NTY GoTo 610, 620, 680, 690 610 R = ELEM(KP): GoTo 660 620 REY = ELEM(KP + 1) * Abs(Q(I)): If REY < 1! Then REY = 1! 630 If REY < 2000 ! Then GoTo 640 Else GoTo 650 640 R = ELEM(KP) * 64 ! / REY: GoTo 660 650 R = ELEM(KP) * 1.325 / (Log(ELEM(KP + 2) + 5.74 / REY ^ 0.9)) ^ 2 660 DH = DH + S(J) * R * Q(I) * Abs(Q(I)) ^ EN 670 HDQ=HDQ+EX*R*ABS(Q(I))^EN GOTO 710 680 DH = DH + S(J) * ELEM(KP): GoTo 710 690 DH = DH - S(J) * E(LEM(KP) + Q(I) * (ELEM(KP + 1) + Q(I) * (ELEM(KP + 2) + Q(I) * ELEM(KP + 3)))) thanks in advance shanila
-
I got this BASIC code from an old book, I am converting this to c, could somebody tell me what is "On NTY GoTo 610, 620, 680, 690" function is? I know that is to go to line 610,620,680,690. but what are the conditions for that? what about " !" in here?, In c if it is "!=" that is not equal to, but what about here? It canot be factorial number. NTY = ITYPE(I): KP = 4 * (I - 1) + 1 600 On NTY GoTo 610, 620, 680, 690 610 R = ELEM(KP): GoTo 660 620 REY = ELEM(KP + 1) * Abs(Q(I)): If REY < 1! Then REY = 1! 630 If REY < 2000 ! Then GoTo 640 Else GoTo 650 640 R = ELEM(KP) * 64 ! / REY: GoTo 660 650 R = ELEM(KP) * 1.325 / (Log(ELEM(KP + 2) + 5.74 / REY ^ 0.9)) ^ 2 660 DH = DH + S(J) * R * Q(I) * Abs(Q(I)) ^ EN 670 HDQ=HDQ+EX*R*ABS(Q(I))^EN GOTO 710 680 DH = DH + S(J) * ELEM(KP): GoTo 710 690 DH = DH - S(J) * E(LEM(KP) + Q(I) * (ELEM(KP + 1) + Q(I) * (ELEM(KP + 2) + Q(I) * ELEM(KP + 3)))) thanks in advance shanila
as I recall
On NTY GoTo 610, 620, 680, 690statement tests NTY and jumps to 610 if NTY=1 , 620 if NTY=2 etc. in VB6!meens that the number is single. but in GWBasic I used to see it if I write a huge number (the editor adds it)