strcpy (menu[7],"Площадь сферы");

strcpy (menu[8],"Факториал");

strcpy (menu[9],"Выход");

short k=1, kod=1;

mn (k, menu);

do

{

kod=getch();

switch (kod)//определить нажатые клавиши

{

// case (27):{ return;};break;//ESC

case (80):{k++;if (k>9) k=9; mn(k, menu);};break;//стрелка вверх

case (72):{k--;if (k<1) k=1; mn(k, menu);};break;// стрелка вниз

case (13): clrscr();kod=sw(k,menu);mn(k,menu);break;//enter

}

} while (kod!=27); //ESC

}

Приложение 2

Листинг модуля “matfac.cpp”.

#include <math.h>

#define M_PI 3.14159265358979323846

float fac (float n) //factorial_1

{

float f=0;

if (n!=0)

{

f=1;

for (int i=1;i<=n;i++)

{

f*=i;