Описать

процедуру RectDiag (a, b, d), вычисляющую диагональ

прямоугольника со сторонами a, b (a, b - входные, d

- выходной параметр вещественного типа).

Question

Информатика

Астра

6 апреля, 15:20

Описать

процедуру RectDiag (a, b, d), вычисляющую диагональ

прямоугольника со сторонами a, b (a, b - входные, d

- выходной параметр вещественного типа).

+3

Ответы (1)

Знаете ответ на вопрос?

Венедиктыч · Answer 1

Procedure RectDiag (a, b: real; var d: real) ;

begin

d:=sqrt (a*a+b*b) ;

end;

var a, b, d:real;

begin

read (a, b) ;

RectDiag (a, b, d) ;

writeln (d) ;

end.

Описатьпроцедуру RectDiag (a, b, d), вычисляющую диагональпрямоугольника со сторонами a, b (a, b - входные, d- выходной параметр вещественного типа).

Описать

процедуру RectDiag (a, b, d), вычисляющую диагональ

прямоугольника со сторонами a, b (a, b - входные, d

- выходной параметр вещественного типа).