Question

ПОМОГИТЕ!!! Я ПРОСТО СИЖУ УЖЕ ДВА ЧАСА !!! У меня 4ый вариант. Нужно только его

Answer 1

var a,b,c,h,p,s: real;
begin
  write('длины оснований трапеции a b (a>b): ');
  readln(a,b);
  c:=a-b;
  p:=2*c+a+b;
  h:=sqrt(3)*c/2;
  s:=(a+b)*h/2;
  writeln('периметр = ',p);
  writeln('площадь трапеции = ',s);
// второе задание
// var x1,x2,y1,y2,z: real;
// z:=abs(x1+x2)+y1/(y2+x1);
end.

длины оснований трапеции a b (a>b): 10 8
периметр = 22
площадь трапеции = 15.5884572681199

Answer 2

В задаче про трапецию у меня получилось так:

var

  a, b,p,s: real;

begin

  readln(a,b);

  p := 2*a+2*b+2*(a-b)/4;

  s:=(a+b)/2*((a-b)/2*sqrt(3)/2);

  writeln('Периметр:',p,' Площадь: ',s);

end.

Тестовое решение:

a = 10, b =8

Периметр:37 Площадь: 7.79422863405995