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

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

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


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

В задаче про трапецию у меня получилось так:
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

Если p = 37, то длина боковой стороны с = (37 - 10 -8)/2 = 19/2 = 9,5. Тогда cos(60) = (a-b)/(2*c) = 2/19 =0.105, но cos(60) = sin(30) = 0.5

Подобные ответы

Помогите пожалуйста со 2 задание
Помогите пожалуйста со 2 задание
СРОЧНО ПОМОГИТЕ !!!!!!!!
СРОЧНО ПОМОГИТЕ !!!!!!!!
Пожалуйста умоляю 1 и 2 сделайте
Пожалуйста умоляю 1 и 2 сделайте
Вот это строчка if b=c or c=a then, если просто b=c, a не работает program treygolnik; var a, b, c: integer; begin read(a,b,c); if b=c or c=a then begin ...
Вот это строчка if bc or ca then, если просто bc, a не работает program treygolnik var a, b, c