Задать вопрос
20 мая, 08:05

Описать

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

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

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

+2
Ответы (1)
  1. 20 мая, 08:58
    0
    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 - выходной параметр ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Описать процедуру Mean (X, Y, AMean, GMean), вычисляющую среднее арифметическое AMean = (X+Y) / 2 и среднее геометрическое двух положительных чисел X и Y (X и Y - входные, AMean и GMean - выходные параметры вещественного типа).
Ответы (1)
Описать процедуру SumDigit (N, S), находящую сумму цифр S целого числа N (N - входной, S - выходной параметр). Используя эту процедуру, найти суммы цифр пяти данных чисел.
Ответы (1)
Описать процедуру PowerA3 (A, B), вычисляющую третью степень числа A и возвращающую ее в переменной B (A - входной, B - выходной параметр; оба параметра являются вещественными). С помощью этой процедуры найти третьи степени пяти данных чисел
Ответы (1)
Описать массив А который состоит из 14 элементов вещественного типа, нумерация начинаеться с 1 Описать массив f который состоит из 16 элементов вещественного типа, нумерация начинается с 1
Ответы (1)
Помогите решить! 1))) Вводятся 4 числа: a, b, c и d. Выведите все числа на отрезке от a до b, дающие остаток c при делении на d Входные данные 1 4 1 2 выходные данные 1 3 Входные данный 1 5 0 4 выходные данные 4 2))) Выведите все числа на отрезке от
Ответы (1)