4. Элементы окружности пронумерованы следующим образом: 1 - радиус (R), 2 - диаметр (D), 3 длина (L), 4 площадь круга (S). Дан номер одного из этих элементов и его значение. Вывести значения остальных элементов данной окружности (в том же порядке).
Нужно решить в паскале
Нужно решить в паскале
More Questions From This User See All
Answers & Comments
Ответ:
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.
Объяснение: