/* p15

Язык Turbo C 2.0
Внешние функции */
#include <conio.h>
#include <math.h>
#include <stdio.h>
int d;
int e = 1;
aa (); ab (); ac ();
ad (); ae (); af ();
ap (); aq (); ar ();
float ag (float);
aj (int *);
am (int *, int);
as (int, int);
av (int *, int *);
ay (const char *);
double bb (double);
double bc (double);
float bd (float);
float be (double (*bf) (double));
main ()
{
int a, b;
int e = 20;
float g, h;
double (*bg) (double i);
/* 47.4.1 */
aa ();
ab ();
ac ();
/* 78.1.2 */
d = 1;
ad ();
/* 100.33.3 */
g = 5.2;
printf ("3. Квадрат числа %g равен %g.\n", g, ag (g));
/* 100.34.4 */
aj (&a);
/* 101.35.5 */
a = 10;
am (&a, 10);
/* 101.36.6 */
ae ();
/* 102.37.7 */
a = 1;
af ();
printf ("В функции 'main' значение 'a' равно %i.\n", a);
/* 106.38.8 */
printf ("\n8. ");
for (a = 1; a < 4; a++)
{
printf ("Вызов номер %i.\n", a);
ap ();
printf ("Вызов номер %i.\n", a);
ap ();
}
/* 107.39.9 */
printf ("\n9. e = %i.\n", e);
e++;
{
int e = 30;
printf ("e = %i.\n", e);
e++;
}
printf ("e = %i.\n", e++);
aq ();
printf ("e = %i.\n", e++);
ar ();
printf ("e = %i.\n", e++);
ar ();
printf ("e = %i.\n", e++);
/* 108.40.10 */
a = 5;
b = 10;
printf ("\n10. Сначала a = %i, b = %i.\n", a, b);
as (a, b);
printf ("Теперь a = %i, b = %i.\n", a, b);
printf ("Ничего не поменялось.\n");
av (&a, &b);
printf ("Теперь a = %i, b = %i.\n", a, b);
printf ("Значения поменялись.\n");
/* 116.45.11 */
printf ("\n11. ");
g = 1.1;
bg = bb;
h = (*bg) (g);
printf ("(1) g = %g, h = %g.\n", g, h); /* первый способ */
h = bg (g);
printf ("(2) g = %g, h = %g.\n", g, h); /* второй способ */
bg = sin;
h = bg (g);
printf ("(3) g = %g, sin (g) = %.4g.\n", g, h); /* третий способ */
h = (*bg) (2.5);
printf ("(4) g = %g, h = %.4g.\n", g, h); /* четвертый способ */
h = be (bc);
printf ("(5) g = %g, h = %.4g.\n", g, h); /* пятый способ */
h = be (cos);
printf ("(6) g = %g, h = %.4g.\n", g, h); /* шестой способ */
h = be (bg);
printf ("(7) g = %g, h = %.4g.\n", g, h); /* седьмой способ */
/* 118.46.12 */
printf ("\n12. ");
ay (" Это тест ");
getch ();
printf ("\n");
}
aa () {printf ("1. Вызвали первую функцию.\n");}
ab () {printf ("Вызвали вторую функцию.\n");}
ac () {printf ("Вызвали третью функцию.\n\n");}
ad ()
{
int d;
printf ("2. d = %i.\n", d);
}
ae ()
{
int a;
for (a = 0; a < 80; a++) putch ('-');
}
af ()
{
int a;
a = 10;
printf ("7. В функции 'af' значение 'a' равно %i.\n", a);
}
float ag (float a) {return a * a;}
aj (int *a) {return *a = *a * *a;}
am (int *a, int b)
{
*a = *a * *a;
b++;
}
ap ()
{
int a;
static e = 1;
a = 1;
printf ("a = %i, e = %i.\n", a++, e++);
}
aq ()
{
int e = 10;
printf ("e = %i.\n", e);
e++;
}
ar ()
{
printf ("e = %i.\n", e);
e++;
}
as (int a, int b)
{
int c;
c = a;
a = b;
b = c;
}
av (int *a, int *b)
{
int c;
c = *a;
*a = *b;
*b = c;
}
ay (const char *a) {while (*a) printf ("%c", *a+++1);}
double bb (double a)
{
puts ("- 1 - В функции bb ().");
return a;
}
double bc (double a)
{
puts ("- 2 - В функции bc ().");
return a * a;
}
float bd (float a)
{
puts ("- 3 - В функции bd ().");
return a * a * a;
}
float be (double (*bf) (double a))
{
printf ("- 4 - В функции be (): %.4g.\n", bf (3));
return bf (3);
}