Составить программу

[diagen_62]

Составить программу

Составить программу, вычисляющую площадь прямоугольника по двум формулам, в зависимости от того, что дано(либо через две стороны a и b,либо через диагональ d и угол между диагоналями),используя case
1 формула- s=a*b;
2 формула- s=0.5*d*sin;

 

[diagen_62]

помогите пожалуйста!очень надо!

 

[diagen_62]

щас попробовал.не знаю как задать синус угла.посмотрите правильно или нет.проверьте пожалуйста

program gutuu;
var a,b,d,s,s1,s2:real; k1:byte;
begin
writeln('1-площадь прямоугольника ');
writeln('2-площадь прямоугольника');
readln(k1);
case k1 of
1:begin
writeln('Введите исходные данные a,d');
readln(a);
s1:=a*b;
end;
2:begin
writeln('Введите исходные данные d');
readln(d);
s2:=d*sin;
end;
end;
writeln('Площадь равна=',s);
end.

 

[Vladimir_S]

В принципе правильно. Немного поправлю:

program gutuu;
var 
a,b,d,s:real; 
k1:byte;
begin
  writeln('Введите метод расчета');
  writeln('1-площадь прямоугольника через 2 стороны');
  writeln('2-площадь прямоугольника через диагональ и угол');
  readln(k1);
  case k1 of
   1:begin
       writeln('Введите исходные данные a, b:');
       readln(a, b);
       s:=a*b;
       writeln('Площадь равна= ',s:10:3);
     end;
   2:begin
       writeln('Введите исходные данные d, y (в радианах)');
       readln(d, y);
       s:=0.5*d*d*sin(y);
       writeln('Площадь равна= ',s:10:3);
     end;
  end;
 readln; 
end.

 

[Vladimir_S]

Исправил ошибку - надо не
s:=0.5*d*sin;
а
s:=0.5*d*d*sin;