Question

4. Элементы окружности пронумерованы следующим образом: 1 - радиус (R), 2 - диаметр (D), 3 длина (L), 4 площадь круга (S). Дан номер одного из этих элементов и его значение. Вывести значения остальных элементов данной окружности (в том же порядке).
Нужно решить в паскале ​

Answer 1

Ответ:

program CircleElements;

var

num: integer;

value, R, D, L, S: real;

begin

writeln('Введите номер элемента (1-4): ');

readln(num);

writeln('Введите значение элемента: ');

readln(value);

case num of

1: begin

R := value;

D := 2 * R;

L := 2 * pi * R;

S := pi * R * R;

end;

2: begin

D := value;

R := D / 2;

L := pi * D;

S := pi * R * R;

end;

3: begin

L := value;

R := L / (2 * pi);

D := R * 2;

S := pi * R * R;

end;

4: begin

S := value;

R := sqrt(S / pi);

D := 2 * R;

L := 2 * pi * R;

end;

else

writeln('Ошибка: неверный номер элемента');

exit;

end;

writeln('Радиус (R): ', R);

writeln('Диаметр (D): ', D);

writeln('Длина (L): ', L);

writeln('Площадь (S): ', S);

end.

Объяснение: