Технический форум - Составить программу

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - Составить программу (http://www.tehnari.ru/f43/t49505/)

diagen_62

27.03.2011 19:18

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

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

diagen_62

27.03.2011 20:29

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

diagen_62

27.03.2011 21:36

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

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(y);
end;
end;
writeln('Площадь равна=',s);
end.

Vladimir_S

27.03.2011 21:51

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

Код:

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

27.03.2011 22:31

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

Часовой пояс GMT +4, время: 03:35.