Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: Kernelpanic on October 22, 2020, 03:40:25 pm

Title: A Function as an argument for a Function
Post by: Kernelpanic on October 22, 2020, 03:40:25 pm
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
Quote
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.

Title: Re: A Function as an argument for a Function
Post by: SpriggsySpriggs on October 22, 2020, 03:54:55 pm
You are missing a parentheses in the first error. The other ones look correct as well.
Title: Re: A Function as an argument for a Function
Post by: Kernelpanic on October 22, 2020, 06:02:58 pm
Quote from: SpriggsySpriggs on October 22, 2020, 03:54:55 pm
You are missing a parentheses in the first error. The other ones look correct as well.

I tried everything for three hours. . .
Title: Re: A Function as an argument for a Function
Post by: bplus on October 22, 2020, 07:18:28 pm
Perhaps a QB64 code snippet you are trying?
Title: Re: A Function as an argument for a Function
Post by: Kernelpanic on October 22, 2020, 08:39:22 pm
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."
  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
  34. PRINT USING "Das Endkapital betraegt nach ### Jahren      : ######,.## Euro"; zeit, Endkapital#(einzahlung, q, zeit)
  36. INPUT "Monatliche Abhebung: "; monatsabhebung
  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)))
  46.  
  47. FUNCTION Auszahlungsdauer# (endkapital AS DOUBLE, monatliche_abhebung AS DOUBLE)
  48.  
  49.   Auszahlungsdauer# = ((endkapital / monatliche_abhebung) / 12.0)
  51.  
Title: Re: A Function as an argument for a Function
Post by: bplus on October 22, 2020, 09:44:42 pm
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."
  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
  34. PRINT USING "Das Endkapital betraegt nach ### Jahren      : ######,.## Euro"; zeit, Endkapital#(einzahlung, q, zeit)
  36. INPUT "Monatliche Abhebung: "; monatsabhebung
  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)))
  46.  
  47. FUNCTION Auszahlungsdauer# (endkap AS DOUBLE, monatliche_abhebung AS DOUBLE)
  48.  
  49.     Auszahlungsdauer# = ((endkap / monatliche_abhebung) / 12.0)
  51.  
  52.  
  53.  
Title: Re: A Function as an argument for a Function
Post by: SpriggsySpriggs on October 22, 2020, 09:46:00 pm
@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.
Title: Re: A Function as an argument for a Function
Post by: bplus on October 22, 2020, 09:52:46 pm
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.

Title: Re: A Function as an argument for a Function
Post by: SpriggsySpriggs on October 22, 2020, 09:53:57 pm
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
Title: Re: A Function as an argument for a Function
Post by: Kernelpanic on October 23, 2020, 07:22:25 am
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:
Title: Re: A Function as an argument for a Function
Post by: Kernelpanic on October 23, 2020, 07:36:21 am
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.  
  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."
  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
  36. PRINT USING "Das Endkapital betraegt nach ### Jahren      : ######,.## Euro"; zeit, Endkapital#(einzahlung, q, zeit)
  38. INPUT "Monatliche Abhebung: ", monatsabhebung
  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)))
  48.  
  49. FUNCTION Auszahlungsdauer# (kapital AS DOUBLE, monatliche_abhebung AS DOUBLE)
  50.  
  51.   Auszahlungsdauer# = ((kapital / monatliche_abhebung) / 12.0)
  53.  
Title: Re: A Function as an argument for a Function
Post by: bplus on October 23, 2020, 09:00:33 am
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)
  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.

 
Title: Re: A Function as an argument for a Function
Post by: Kernelpanic on October 23, 2020, 11:57:36 am
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.)
Text Only | Text with Attachments