Вычисление гипотенузы по катетам на Pascal

Здесь иллюстрируется использование стандартной функции sqrt.

var 
  a,b: real; // катеты
  c: real;   // гипотенуза
begin
  write('Введите катеты прямоугольного треугольника: ');
  readln(a,b);
  c := sqrt(a*a+b*b);
  writeln('Гипотенуза = ',c);
end.



Просмотров: 31596
10.02.2015, 08:48 -

Категория: Статьи » Программирование » Pascal

Похожее


Коментарии к Вычисление гипотенузы по катетам на Pascal:

Степан Третьяков
27 февраля 2019 20:21
var
a,b: real; // катеты
c: real; // гипотенуза
begin
write('Введите катеты прямоугольного треугольника: ');
readln(a,b);
c := sqrt(a*a+b*b);
writeln('Гипотенуза = ',c);
end.
cjjdjd
23 мая 2019 18:47
var
a,b: real;
c: real;
begin
write(4,6);
readln(a,b);
c := sqrt(a*a+b*b);
writeln(12,c);
end.