project2.dpr

来自「计算三角形的面积」· DPR 代码 · 共 22 行

program Project2;

{$APPTYPE CONSOLE}


uses
  SysUtils;

var aa,bb,jj,ss:real;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('请输入三角形的一条边:');
  readln(aa);
  write('请输入三角形的另一条边:');
  readln(bb);
  write('请输入三角形两条边的夹角:');
  readln(jj);
  ss:=aa*bb/2*sin(jj*pi/180);
  writeln('该三角形的面积是:',ss);
  readln;
end.