📄 ex.dpr
字号:
{$N+}
program Ural_1192(Input, Output);
const
MyPi = 3.1415926535;
MyG = 10.0;
type
TData = Extended;
var
V, A, K: TData;
begin
Readln(V, A, K);
A := A / 180 * MyPi;
Writeln(2 * Sin(A) * Cos(A) / MyG * V * V * K / (K - 1): 0: 2);
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -