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

2

Ответы и объяснения

2013-04-18T10:28:56+04:00

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.

2013-04-18T10:34:58+04:00

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.