[HaBo]

/* 'kefaufpa.c' gehört zu KREDITEX.C                         */
/* Effektivzins einer Kapitalschuld mit Prozentannuität und  */
/* aufgeschobener Tilgung S.232 (77)            - 26. 9.1996 */
/* Fehler behoben (falscher Aufbau)             -  3.10.1996 */
/*===========================================================*/
#include <stdio.h>
#include <stdlib.h>
#include <conio.h>
#include <math.h>
#include <graph.h>

#define CURSOR_AUS 0x2000
#define CURSOR_NORMAL 0x0707

extern void eff2_aufgesch_jprozent_annu( void );
extern void kapital_effektiv_zins_menu( void );
void effektivZins( double nominal_zins, double kurs, double p_annu, int t_frei );
void eff2_aufgesch_jprozent_annu( void )
{
 int vg_farbe, i, spalte;
 int azeile, aspalte, ezeile, espalte;
 int t_zeit;                              //Tilgungsfreie Zeit
 unsigned int hg_farbe;
 double kurs, nominal_zins, prozent_annu;
 char puffer[64];
 hg_farbe = _getbkcolor();
 vg_farbe = _gettextcolor();
 _gettextwindow( &azeile, &aspalte, &ezeile, &espalte );
 _setbkcolor( 15L );
 _clearscreen( _GCLEARSCREEN );
 _settextcolor( 14 );
 _settextposition( 2, 6 );
 _outtext( "Effektivverzinsung einer Kapitalschuld bei gegebenem Auszahlungskurs" );
 _settextposition( 3, 14 );
 _outtext( "tilgungsfreier Zeit und Tilgung durch Prozentannuität" );
 _settextcolor( 10 );
 for ( i = 1, spalte = 6; i < 69; i++ )
 {
  _settextposition( 4, spalte++ );
  _outtext( "þ" );
 }
 _settextwindow( 6, 2, 24, 79 );
 _setbkcolor( 1L );
 _clearscreen( _GWINDOW );
 _settextcolor( 15 );
 _settextposition( 2, 10 );
 _outtext( "Die vereinbarte Jahres-Nominalverzinsung beträgt (%) : " );
 scanf("%lf", &nominal_zins);
 _settextposition( 3, 10 );
 _outtext( "Der Auszahlungskurs soll betragen (%)                : " );
 scanf("%lf", &kurs);
 _settextposition( 4, 10 );
 _outtext( "Die Höhe der Prozentannuität betr„gt (%)             : " );
 scanf("%lf", &prozent_annu);