// pythagoras.cpp
// --------------  Version 20.11.2007
//                 Model: small
//                 Fliesskommaemulation ein (beim IPC@CHIP)
//                 Schwarzer, www.GoBlack.de

// Funktion zur Berechnung der Hypotenusenlänge nach dem Satz von
// Pythagoras


// Wählen Sie für welchen Rechner DOS oder IPC@CHIP die
// Compilation durchgeführt werden soll. Setzen Sie ..
// #define DOS    .. für DOS-Rechner, und
// #define IPC    .. für IPC@CHIP-Rechner
 
#define DOS                     // Compilation für DOS-Rechner



// Einbinden von Headerdateien mit Bibliotheksfunktionen
#include <conio.h>             // für getch() wenn benötigt
#include <stdio.h>             // für printf()
#include <math.h>              // für sqrt()


// Einbinden einer eigenen Headerdatei, die sich im gleichen
// Verzeichnis wie der Quelltext befindet. Zwischen den
// Gänsefüsschen muss eine Pfadangabe stehen, wenn sich die Datei
// nicht im gleichen Verzeichnis wie der Quelltext befindet.

#include "fstrgin.h"

//                                  fstrgin.h zum Kopieren ansehen
// ===============================================================

// Deklarationen von eigenen Funktionen
double pythagoras(double, double);
void   setStdio  (char kanal);


// Definition der Fkt. pythagoras()
// Berechnet die Länge der Hypotenuse in einem rechtwinkligen
// Dreieck.
// Übergaben: Länge der Katheten a und b
// Rückgabe:  Länge der Hypotenuse

double pythagoras( double a, double b)
{ 
 return(sqrt(a*a + b*b));    // Rückgabe von Wurzel aus a²+b²
}


#ifdef IPC                  // nur übersetzen bei IPC 

// Definition der Fkt. setStdio()
// Schaltet beim IPC@CHIP den Fokus auf dieses Programm, bzw. das
// Betriebssystem. Beispiel Inlineassembler
// Übergabe: Kanal 1,2,3
// Rückgabe: keine

void setStdio (char kanal)
{
  asm { mov ah, 11h         // SoftINT: A0h, Fkt 11h
        mov al, kanal       // nur bei IPC@CHIP
        int 0A0h
      }
}
#endif

// main()
// Testprogramm für die Funktion Pythagoras auf IPC@CHIP Rechnern
// Mit Eingaben über ein Terminalprogramm auf dem PC

void main(void)
{
  double kath1;                 // Deklaration von kath1
  double kath2;                 // Deklaration von kath2
  double hypo;                  // Deklar. Von hypotenuse
  
  #ifdef IPC                    // nur übersetzen bei IPC 
  setStdio(2);                  // Fokus auf dieses Programm
  #endif

  char txtbuf[60];              // ein Textbuffer für 60 Bytes

  printf("\r\nKathete1= ");     // Eingabeaufforderung Kathete1
  fstrgin(txtbuf, 10, FLT,"");  // Eingaben in txtbuf[] sammeln 
  kath1= atof(txtbuf);          // ASCII-Code zu Zahl wandeln

  printf("\r\nKathete2= ");     // Eingabeaufforderung Kathete2
  fstrgin(txtbuf, 10, FLT,"");  // Eingaben in txtbuf[] sammeln 
  kath2= atof(txtbuf);          // ASCII-Code zu Zahl wandeln


  hypo = pythagoras (kath1, kath2);   // Aufruf der Funktion

  printf ("\r\nHypotenuse = %f", hypo);

  #ifdef IPC                    // nur übersetzen bei IPC 
  setStdio(3);                  // Fokus auf das Betriebssystem
  #endif
  
  #ifdef DOS                    // nur übersetzen bei DOS
  getch();                      // auf Tastendruck warten
  #endif
}

Die Ausgabeabfolge des obigen Beispiels sieht wie folgt aus:

Kathete1= _          Eingabe max. 10 Zeichen
Kathete2= _          Eingabe max. 10 Zeichen
Hypotenuse =         Ergebnis