Вычисление гипотенузы по катетам на Pascal
Здесь иллюстрируется использование стандартной функции sqrt.
var
a,b: real; // катеты
c: real; // гипотенуза
begin
write('Введите катеты прямоугольного треугольника: ');
readln(a,b);
c := sqrt(a*a+b*b);
writeln('Гипотенуза = ',c);
end.
10.02.2015, 08:48 -
Категория: Статьи » Программирование » Pascal