Напишите программу, которая вычисляет площадь и периметр прямоугольника по двум его сторонам.Срочно!!!!!!!!!!!!!!!!!!!!

+ 0 -

Katenka971

18 авг. 2013 г., 23:54:37 (10 лет назад)

PASCAL

program qq;
var a,b,s,p : integer;
begin
writeln('Введите стороны прямоугольника');
read(a,b);
s:=a*b;
p:=2*(a+b);
writeln('Площадь прямоугольника равна ',s);
writeln('Периметр прямоугольника равен ',p);
end.

+ 0 -

Yanchik22

19 авг. 2013 г., 1:11:08 (10 лет назад)

var
  a, b, c, u, s: real;
begin
  writeln('Введите стороны A, B и угол через пробел:');
  readln(a, b, u);
  c := sqrt(sqr(a) + sqr(b) - 2 * a * b * cos(u * (pi / 180)));
  s := 0.5 * a * b * sin(u * (pi / 180));
  writeln('S: ', s:0:2);
  writeln('P: ', a + b + c:0:2);
end.