A Function as an argument for a Function

[Kernelpanic]

I convert a C-Program to QBasic64, and my question is: Can one in Basic hand over at a Function another Function as an argument ?

This is the source in C - my own program

printf("\nDas Kapital reicht bei einer monatlichen Abhebung von %4.2lf fuer %2.1lf Jahre.\n"   ,monatsabhebung
                                                 ,auszahlungsdauer((endausgabe(einzahlung, q, zeit)), monatsabhebung));
   return(0);                                 
}

//Funktionsdefinition
//Endsumme ausgeben, auch wenn die Anzahl Jahre nicht durch 5 teilbar ist
double endausgabe(double kapital, double q, int zeit)
{
   double endkapital;
   endkapital = (kapital * (( pow( q, zeit ) - 1 ) / ( q -1 )));
   return(endkapital);
}

double auszahlungsdauer(double endkapital, double monatliche_abhebung)
{
   double auszahlungszeit;
   auszahlungszeit = ((endkapital / monatliche_abhebung) / 12.0);
   return(auszahlungszeit);
}

In QBasic 64 I get error messages only. Up to the point the program works correct.

[SpriggsySpriggs]

You are missing a parentheses in the first error. The other ones look correct as well.

[Kernelpanic]

You are missing a parentheses in the first error. The other ones look correct as well.

I tried everything for three hours. . .

[bplus]

Perhaps a QB64 code snippet you are trying?

[Kernelpanic]

That is the program:

Code: QB64: [Select]

1. 'Berechnet ein angespartes Kapital nach n Jahren
2. 'Wie lange reicht die angesparte Summe, wenn
3. 'monatlich 500,00 abgehoben werden?
4. 'In QBasic 64 uebertragen 21. Okt. 2020
5.  
6. Declare Endkapital# (einzahlung as Double, q as Double, zeit as Integer)
7. Declare Auszahlungsdauer# (endkapital as Double, monatliche_abhebung as Double)
8.  
9. DIM einzahlung AS DOUBLE, zinswert AS DOUBLE, zwischen_sum AS DOUBLE, q AS DOUBLE
10. DIM monatsabhebung AS DOUBLE, dummy AS DOUBLE
11. DIM zeit AS INTEGER, zaehler AS INTEGER
12.  
13. PRINT "Berechnet zu welcher Endsumme sich eine gleichbleibende"
14. PRINT "jaehrlich Kapitaleinzahlung summiert."
15. PRINT
16. INPUT "Geben Sie die jaehrlich Einzahlung ein      : ", einzahlung
17. INPUT "Geben Sie den Zinsfuss ein                  : ", zinswert
18. INPUT "Geben Sie die Einzahlungsdauer (Jahre) ein  : ", zeit
19. LOCATE (CSRLIN + 2), POS(0)
20.  
21. 'Zinsfaktor berechnen
22. q = (1 + (zinswert / 100))
23.  
24. zaehler = 5
25. DO WHILE zaehler < zeit
26.   'Zwischensummen alle 5 Jahre ausgeben
27.   zwischen_sum = (einzahlung * (((q ^ zaehler) - 1) / (q - 1)))
28.   PRINT USING "Das Kapital belaeuft sich nach ### Jahren auf: ######,.## Euro"; zaehler, zwischen_sum
29.  
30.   zaehler = zaehler + 5
31.   IF zaehler = zeit THEN EXIT DO
32. LOOP
33. PRINT
34. PRINT USING "Das Endkapital betraegt nach ### Jahren      : ######,.## Euro"; zeit, Endkapital#(einzahlung, q, zeit)
35. PRINT
36. INPUT "Monatliche Abhebung: "; monatsabhebung
37. PRINT
38. PRINT USING "Das Kapital reicht bei einer monatlichen Abhebung von ####,.## fuer ### Jahre."; monatsabhebung, Auszahlungsdauer#((Endkapital#(einzahlung, q, zeit)), monatsabhebung)
39.  
40. END 'Hauptprogramm
41.  
42. FUNCTION Endkapital# (einzahlung AS DOUBLE, q AS DOUBLE, zeit AS INTEGER)
43.  
44.   Endkapital# = (einzahlung * (((q ^ zeit) - 1) / (q - 1)))
45. END FUNCTION
46.  
47. FUNCTION Auszahlungsdauer# (endkapital AS DOUBLE, monatliche_abhebung AS DOUBLE)
48.  
49.   Auszahlungsdauer# = ((endkapital / monatliche_abhebung) / 12.0)
50. End Function
51.  

[bplus]

It works but no idea what is going on to confirm it does what you want.

Code: QB64: [Select]

1. 'Berechnet ein angespartes Kapital nach n Jahren
2. 'Wie lange reicht die angesparte Summe, wenn
3. 'monatlich 500,00 abgehoben werden?
4. 'In QBasic 64 uebertragen 21. Okt. 2020
5.  
6. DECLARE Endkapital# (einzahlung AS DOUBLE, q AS DOUBLE, zeit AS INTEGER)
7. DECLARE Auszahlungsdauer# (endkapital AS DOUBLE, monatliche_abhebung AS DOUBLE)
8.  
9. DIM einzahlung AS DOUBLE, zinswert AS DOUBLE, zwischen_sum AS DOUBLE, q AS DOUBLE
10. DIM monatsabhebung AS DOUBLE, dummy AS DOUBLE
11. DIM zeit AS INTEGER, zaehler AS INTEGER
12.  
13. PRINT "Berechnet zu welcher Endsumme sich eine gleichbleibende"
14. PRINT "jaehrlich Kapitaleinzahlung summiert."
15. PRINT
16. INPUT "Geben Sie die jaehrlich Einzahlung ein      : ", einzahlung
17. INPUT "Geben Sie den Zinsfuss ein                  : ", zinswert
18. INPUT "Geben Sie die Einzahlungsdauer (Jahre) ein  : ", zeit
19. LOCATE (CSRLIN + 2), POS(0)
20.  
21. 'Zinsfaktor berechnen
22. q = (1 + (zinswert / 100))
23.  
24. zaehler = 5
25. DO WHILE zaehler < zeit
26.     'Zwischensummen alle 5 Jahre ausgeben
27.     zwischen_sum = (einzahlung * (((q ^ zaehler) - 1) / (q - 1)))
28.     PRINT USING "Das Kapital belaeuft sich nach ### Jahren auf: ######,.## Euro"; zaehler, zwischen_sum
29.  
30.     zaehler = zaehler + 5
31.     IF zaehler = zeit THEN EXIT DO
32. LOOP
33. PRINT
34. PRINT USING "Das Endkapital betraegt nach ### Jahren      : ######,.## Euro"; zeit, Endkapital#(einzahlung, q, zeit)
35. PRINT
36. INPUT "Monatliche Abhebung: "; monatsabhebung
37. PRINT
38. PRINT USING "Das Kapital reicht bei einer monatlichen Abhebung von ####,.## fuer ### Jahre."; monatsabhebung, Auszahlungsdauer#((Endkapital#(einzahlung, q, zeit)), monatsabhebung)
39.  
40. END 'Hauptprogramm
41.  
42. FUNCTION Endkapital# (einzahlung AS DOUBLE, q AS DOUBLE, zeit AS INTEGER)
43.  
44.     Endkapital# = (einzahlung * (((q ^ zeit) - 1) / (q - 1)))
45. END FUNCTION
46.  
47. FUNCTION Auszahlungsdauer# (endkap AS DOUBLE, monatliche_abhebung AS DOUBLE)
48.  
49.     Auszahlungsdauer# = ((endkap / monatliche_abhebung) / 12.0)
50. END FUNCTION
51.  
52.  
53.  

[SpriggsySpriggs]

@bplus He is wanting to pass a function as an argument. He was using "endkapital" in his function header and I think he thought it would mean that it would call it? That's what I'm gathering, at least.

[bplus]

Looks to me like he wants a double as argument to second function which just happens to be what the first function returns, so plug in the function as argument (not parameter) for the required double in the actual application of the functions called in the main code.

[SpriggsySpriggs]

That's of course the right way to do it but since I couldn't read any of the language I was confused what was actually happening haha

[Kernelpanic]

Now I have the mistake; I it should have known. At "endkapital" the program came to skid. Thus the message "is already in use (endkapital)"
After changing the variable name it works correct now.

The Text is:
'Calculates a saved capital after n years
'How long will the saved amount last, if
one 1200.00 Euro/$  withdraw monthly?
'Transferred to QBasic64 Oct. 21, 2020

The problem:

[Kernelpanic]

So it is correct. And the originally question can be answered with "yes".

Code: QB64: [Select]

1. 'Berechnet ein angespartes Kapital nach n Jahren
2. 'Wie lange reicht die angesparte Summe, wenn
3. 'monatlich 1200,00 abgehoben werden?
4. 'In QBasic 64 uebertragen 21. Okt. 2020
5.  
6. OPTION _EXPLICIT
7.  
8. Declare Endkapital# (einzahlung as Double, q as Double, zeit as Integer)
9. Declare Auszahlungsdauer# (kapital as Double, monatliche_abhebung as Double)
10.  
11. DIM einzahlung AS DOUBLE, zinswert AS DOUBLE, zwischen_sum AS DOUBLE, q AS DOUBLE
12. DIM monatsabhebung AS DOUBLE, dummy AS DOUBLE
13. DIM zeit AS INTEGER, zaehler AS INTEGER
14.  
15. PRINT "Berechnet zu welcher Endsumme sich eine gleichbleibende"
16. PRINT "jaehrlich Kapitaleinzahlung summiert."
17. PRINT
18. INPUT "Geben Sie die jaehrlich Einzahlung ein      : ", einzahlung
19. INPUT "Geben Sie den Zinsfuss ein                  : ", zinswert
20. INPUT "Geben Sie die Einzahlungsdauer (Jahre) ein  : ", zeit
21. LOCATE (CSRLIN + 2), POS(0)
22.  
23. 'Zinsfaktor berechnen
24. q = (1 + (zinswert / 100))
25.  
26. zaehler = 5
27. DO WHILE zaehler < zeit
28.   'Zwischensummen alle 5 Jahre ausgeben
29.   zwischen_sum = (einzahlung * (((q ^ zaehler) - 1) / (q - 1)))
30.   PRINT USING "Das Kapital belaeuft sich nach ### Jahren auf: ######,.## Euro"; zaehler, zwischen_sum
31.  
32.   zaehler = zaehler + 5
33.   IF zaehler = zeit THEN EXIT DO
34. LOOP
35. PRINT
36. PRINT USING "Das Endkapital betraegt nach ### Jahren      : ######,.## Euro"; zeit, Endkapital#(einzahlung, q, zeit)
37. PRINT
38. INPUT "Monatliche Abhebung: ", monatsabhebung
39. PRINT
40. PRINT USING "Das Kapital reicht bei einer monatlichen Abhebung von ####,.## fuer ### Jahre."; monatsabhebung, Auszahlungsdauer#((Endkapital#(einzahlung, q, zeit)), monatsabhebung)
41.  
42. END 'Hauptprogramm
43.  
44. FUNCTION Endkapital# (einzahlung AS DOUBLE, q AS DOUBLE, zeit AS INTEGER)
45.  
46.   Endkapital# = (einzahlung * (((q ^ zeit) - 1) / (q - 1)))
47. END FUNCTION
48.  
49. FUNCTION Auszahlungsdauer# (kapital AS DOUBLE, monatliche_abhebung AS DOUBLE)
50.  
51.   Auszahlungsdauer# = ((kapital / monatliche_abhebung) / 12.0)
52. END FUNCTION
53.  

[bplus]

So to clarify: there are programming languages that can actually take a function as a parameter but QB64 is not one of them. The closest we might get is passing an array of a user defined type, UDT.

But you can use a function that returns a double ( or string or integer... ) as an argument to pass a double value ( or string or integer... ) to the 2nd function where it calls for a double ( or string or integer... ) in the parameters list of it's definition.

Code: QB64: [Select]

1. FUNCTION Auszahlungsdauer# (endkap AS DOUBLE, monatliche_abhebung AS DOUBLE)
2.  
3.     Auszahlungsdauer# = ((endkap / monatliche_abhebung) / 12.0)
4. END FUNCTION
5.  
6.  

The parameters list for the above FUNCTION is: (endkap AS DOUBLE, monatliche_abhebung AS DOUBLE)

We can call the FUNCTION above, like this:
PRINT Auszahlungsdauer#( x , y )
where x is a double, literal like .01234567 or variable x# or a function like: Endkapital#( with it's own arguments) but it returns a double.

 

[Kernelpanic]

Yes, that was not clearly expressed. In the present case, the "Endkapital" function becomes a parameter of the "Auszahlungsdauer" function, or better, its return value.

(I know how to do it, but I often mix up the names.)