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

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

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

6. Даны катеты прямоугольного треугольника. Найти его гипотенузу и площадь.

C:

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

int main()
{
	float a,b,c,p,s;
	printf("a = ");
	scanf("%f",&a);
	printf("b = ");
	scanf("%f",&b);
	c = sqrt(a*a+b*b);
	p = (a+b+c)/2; /*Polupirimetr*/
	s = sqrt(p*(p-a)*(p-b)*(p-c));
	printf("Gipotenuza: %fnPlowad': %fn",c,s);
	return 0;
}

Pascal:

var a,b,c,p,s:real;
begin
	write('a = ');
	read(a);
	write('b = ');
	read(b);
	c := sqrt(a*a+b*b);
	p := (a+b+c)/2; {Polupirimetr}
	s := sqrt(p*(p-a)*(p-b)*(p-c));
	write('Gipotenuza: ',c:4:2,#13#10'Plowad'': ',s:4:2,#13#10);
end.

Гипотенузу находим по теореме Пифагора:

А площадь по формуле Герона: