Часть И. Решения 223
void main О
{
iinsigned int n; // число, факториал которого надо
// ВЬаГЧИСЛИТЬ
unsigned int f; // факториал числа п
puts("Вычисление факториала\п");
puts("Введите число, факториал которого надо вычислить");
printf("->");
scanf("%u", &n);
f = factor(n);
printf("Факториал числа %u равен %u", n, f);
printf("\пДля завершения нажмите ");
getch();
}
Задача 248
// Рекурсивный узор из окружностей
tinclude
#include
#include
#include
#define PATHTODRIVER "c: WborlandcWbgiW"
// элемент узора
void elem(int x, int y, int r, int p)
{
// X, y, r — координаты и радиус центра
// основного элемента узора
// р — порядок узора
if (Р)
{
circle(х, у, г);
delay(100);
elem(x+r, у, г/2, р-1)
elem(x, у-г, г/2, р-1)
elem(x-r, у, г/2, р-1)
224 C/C-i-t- в задачах и примерах
elem(x, у+г, г/2, р-1);
}
}
void main (void)
(
int gdriver = DETECT; // драйвер
int gmode; // режим
int errorcode; // код ошибки
initgraph(&gdriver, &gmode, PATHTODRIVER);
errorcode = graphresult();•
if (errorcode == grOk)
{
elem(320, 240, 60, 5); // рисуем узор 5-го порядка
outtext("Для завершения нажмите ");
getch();
closegraphО; // выход из графического режима
}
else
{
ргintf("Ошибка: %d\n", errorcode);
puts("Для завершения нажмите ");
getch();
}
Задача 249
// Вычисляет сопротивление
// п-звенной электрической цепи
#include
#include
float г1,г2,гЗ; // величины сопротивлений,
//из которых состоит цепь
// вычисляет сопротивление цепи п-го порядка
float гсер(int п)
{
float г; // сопротивление цепи порядка п-1
Do'stlaringiz bilan baham: |