Question

В зависимости от введённого символа L, S, V программа должна вычислять длину окружности; площадь круга; объём цилиндра по заданному радиусу R. Составить программу на паскале.

Answer 1

Var
L, S, V, Symbol: String;
P, So, Vc: Real;
R, H: Integer;
begin 
WriteLn('Введите R'); ReadLn(R);
WriteLn('Введите H'); ReadLn(H); 
L:= 'L';  //
S:= 'S'; //
V:= 'V'; // можно конечно обойтись и без них

WriteLn('Введите символ'); ReadLn(Symbol);
 if Symbol = L then begin 
P:= 2*pi*R; 
WriteLn('Длина окружности = ',P);
end;
 if Symbol = S then begin 
So:= pi * sqr(R); 
WriteLn('Площадь круга = ',So); 
end;
 if Symbol = V then begin 
Vc:= pi * sqr(R) * H; 
WriteLn('Объем цилиндра = ',Vc);
end;
ReadLn;
end;

Answer 2

Program to Calculate Circumference, Area, and Volume

To write a program in Pascal that calculates the circumference, area, and volume based on the input character L, S, or V, you can use the following code:

program CalculateValues;

const
  pi = 3.14159;

var
  choice: char;
  radius: real;
  circumference, area, volume: real;

begin
  writeln('Enter L to calculate circumference, S to calculate area, or V to calculate volume:');
  readln(choice);

case choice of
    'L':
      begin
        writeln('Enter the radius:');
        readln(radius);
        circumference := 2 * pi * radius;
        writeln('The circumference is: ', circumference:0:2);
      end;
    'S':
      begin
        writeln('Enter the radius:');
        readln(radius);
        area := pi * radius * radius;
        writeln('The area is: ', area:0:2);
      end;
    'V':
      begin
        writeln('Enter the radius:');
        readln(radius);
        volume := (4 / 3) * pi * radius * radius * radius;
        writeln('The volume is: ', volume:0:2);
      end;
    else
      writeln('Invalid choice.');
  end;

readln;
end.

This program prompts the user to enter the character L, S, or V to select the calculation they want to perform. It then asks for the radius and calculates the corresponding value based on the choice.

Explanation

- The program starts by declaring the constant `pi` with the value of 3.14159. - It then declares the variables `choice`, `radius`, `circumference`, `area`, and `volume`. - The program prompts the user to enter the character L, S, or V to select the calculation they want to perform. - It uses a `case` statement to handle the different choices: - If the choice is 'L', it prompts the user to enter the radius, calculates the circumference using the formula `2 * pi * radius`, and displays the result. - If the choice is 'S', it prompts the user to enter the radius, calculates the area using the formula `pi * radius * radius`, and displays the result. - If the choice is 'V', it prompts the user to enter the radius, calculates the volume using the formula `(4 / 3) * pi * radius * radius * radius`, and displays the result. - If the choice is none of the above, it displays an error message. - Finally, the program waits for the user to press Enter before exiting.

Please note that the code provided is a basic example and may need to be modified or expanded based on your specific requirements.

Let me know if you need any further assistance!