Задача: Составить программу вычисления площади четырехугольника.

Решение:

 

programPrim;

var AB, BC, CD, DA, AC, S1, S2: real;

Procedure Ploshad3(var a,  b,  c, s  :real);

   var p:real;

     begin

       p:=(a+b+c)/2;

       s:=sqrt(p*(p-a)*(p-b)*(p-c));

     end;

begin

Writeln('Задайте стороны 4-угольника ABCD и его диагональ AC');

readln (AB, BC, CD, DA, AC);

  Ploshad3(AB , BC , AC , S1);

  Ploshad3(DA,  AC,  CD,  S2);

  Writeln ('Площадь ABCD= ', S1+S2:8:2);

  readln;

  end.

Задача: Составить программу ...

Задача подпрограммы

Задание для самостоятельного решения:

Составить программу: треугольник задан координатами вершин, вычислить  периметр и площадь. Вычисление длин сторон оформить с помощью процедуры.
Объяснение к задаче

Облако тегов

 

Ваше имя
Ваш E-mail
Файл для отправки
Число на картинке

Чат

© 2019 Блог Каракулиной Наталии. Все права защищены.
Joomla! - бесплатное программное обеспечение, распространяемое по лицензии GNU General Public License.