Question

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

Answer 1

var

E: real;

n: integer;

begin

Writeln('Расчёт параметров окружности по одному известному');

Writeln('  1) радиус окружности (R)');

Writeln('  2) диаметр окружности (D)');

Writeln('  3) длина окружности (L)');

Writeln('  4) площадь круга (S)');

Write('Введите номер известного параметра= ');

Read(n);

Write('Введите значение данного параметра= ');

Read(E);

case n of

1: // известен R

begin

Writeln('D= ', 2 * E);

Writeln('L= ', 2 * Pi * E);

Writeln('S= ', Pi * Sqr(E));

end;

2: // известен D

begin

Writeln('R= ', E / 2);

Writeln('L= ', Pi * E);

Writeln('S= ', Pi * Sqr(E) / 4);

end;

3: // известна L

begin

Writeln('R= ', E / 2 / Pi);

Writeln('D= ', E / Pi);

Writeln('S= ', Sqr(E) / 4 / Pi);

end;

4: // известна S

begin

Writeln('R= ', Sqrt(E / Pi));

Writeln('D= ', 2 * Sqrt(E / Pi));

Writeln('L= ', Sqrt(4 * Pi * E));

end;

end;

end.

Answer 2

Конечно, вот пример решения данной задачи на языке программирования Pascal с использованием конструкции case и else:

pascalCopy code
program CircleProperties;

const
  Pi = 3.14159;

var
  choice: integer;
  value: real;
  radius, diameter, length, area: real;

begin
  writeln('Enter the number of the circle property (1-Radius, 2-Diameter, 3-Length, 4-Area):');
  readln(choice);
  
  writeln('Enter the value of the chosen property:');
  readln(value);
  
  case choice of
    1: begin
         radius := value;
         diameter := 2 * radius;
         length := 2 * Pi * radius;
         area := Pi * radius * radius;
       end;
    2: begin
         diameter := value;
         radius := diameter / 2;
         length := Pi * diameter;
         area := Pi * sqr(radius);
       end;
    3: begin
         length := value;
         radius := length / (2 * Pi);
         diameter := 2 * radius;
         area := Pi * sqr(radius);
       end;
    4: begin
         area := value;
         radius := sqrt(area / Pi);
         diameter := 2 * radius;
         length := 2 * Pi * radius;
       end;
    else
      writeln('Invalid choice.');
      exit;
  end;

  writeln('Radius:', radius);
  writeln('Diameter:', diameter);
  writeln('Length:', length);
  writeln('Area:', area);

end.

Просто вставьте этот код в вашу среду разработки Pascal и выполните его. Пользовательу будет предложено ввести номер свойства и его значение, а затем программа выведет значения остальных свойств данной окружности.