Задачник Абрамова № 8

• Алексей
• Комментариев нет

§ 1. Арифметика действительных чисел. Вычисление по формулам.

8. Определить периметр правильного n-угольника, описанного около окружности радиуса r.

C:

#include <stdio.h>;
#include <math.h>;

int main()
{
	float n,r,p;
	const float pi = 3.14;
	printf("n = ");
	scanf("%f",&n);
	printf("r = ");
	scanf("%f",&r);
	p = 2*r*n*sin(pi/n)*cos(pi/n);
	printf("p = %fn",p);
	return 0;
}

Pascal:

const pi = 3.14;
var n,r,p:real;
begin
	write('n = ');
	read(n);
	write('r = ');
	read(r);
	p := 2*r*n*sin(pi/n)*cos(pi/n);
	write('P = ',p:4:2,#13#10);
end.