Question

посмотрите пожалуйста.
образующая конуса l см составляет с плоскостью основания угол . найти объем конуса .
надо составить программу в турбо паскаль
посмотрите пожалуйста,что там не так??? ответ не получается
Program Nomer_2;
uses crt;
Var L,x:integer;
h,R,V:real;
begin
clrscr;
Write('Введите исходные данные');
readln(L,x);
h:=L*sin(x);
R:=L*cos(x);
V:=(1/3)*h*pi*sqr(R);
writeln('Объем конуса равен =', V:8:2);
readln;
end.

Answer 1

L,x:integer; - вот это не так. Аргументы тригонометрических функций задаются в радианах и глупо их представлять целочисленными.
Лучше писать так:

Var L,x, h,R,V:real;