• Паскаль. Составить программу вычисления площади треугольника по любой из 3 известных формул(в программе должны использоваться все 3 на выбор).

    Сами формулы:

    1.S=ah/2

    2.S=1/2ab sin C

    3.S=sqrt(p(p-a)(p-b)(p-c))

    Очень прошу пишу уже 2-ой раз!

Ответы 1

  • var S,a,b,c,p,p1,h:real; k:integer;beginwrite('Kakoy sposob viberem(1,2,3)?');read(k);if k=1 then beginwriteln('Vvedite a,h');read(a,h);S:=(a*h)/2;end;if k=2 then beginwriteln('Vvedite a,b,c');read(a,b,c);S:=(Sin(c*Pi/180)*a*b)/2;end;if k=3 then beginwriteln('Vvedite a,b,c');read(a,b,c);p1:=1/2*(a+b+c);S:=sqrt(p1*(p1-a)*(p1-b)*(p1-c));end;writeln(S);end.

    • Автор:

      jademarsh
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years