Логотип Инфоурока

Получите 30₽ за публикацию своей разработки в библиотеке «Инфоурок»

Добавить материал

и получить бесплатное свидетельство о размещении материала на сайте infourok.ru

Инфоурок Информатика Другие методич. материалыПрограмма для расчета площади неправильных четырехугольников

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

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

Материал можно использовать при изучении темы «Алгоритмизация и программирование», а также на дополнительных занятиях по программированию.

На практике очень часто приходится вычислять площади неправильных четырехугольников. Например: необходимо вычислить площадь земельного участка или планируемого строительного объекта на участке являющимся неправильным четырехугольником. Могут быть и другие случаи, связанные с такими расчетами.

Для выполнения этой задачи необходимо измерить одну из диагоналей четырехугольника.

Диагональ разбивает заданный четырехугольник на два треугольника со всеми известными сторонами. Остается вычислить площади двух треугольников по формуле Герона и сложить их.

hello_html_m3de5e45d.png

a,b,c – стороны треугольника. Этим способом пользуются математики. Программирование же этой задачи создает возможности для быстрого расчета для большого диапазона входных данных.

Пример. Пусть некоторый четырехугольник имеет форму как показано на рисунке.

hello_html_6e0a705a.png

Программа позволяет получить результаты для разных заданных значений сторон и диагоналей.

var S,s1,s2,a,b,c,d,m,p1,p2:real;

{где a,b,c,d,m – стороны четырехугольника, d - диагональ }

i:integer;

f:text;

begin

assign (f,'output.txt');

rewrite(f);

writeln(f,'d= | s1= | s2= | s=');

a:=15;b:=16;c:=8;M:=20;d:=19;

for i:=1 to 25 do

begin

p1:=(a+b+d)/2;

s1:=sqrt(p1*(p1-a)*(p1-b)*(p1-d));

p2:=(c+m+d)/2;

s2:=sqrt(p2*(p2-c)*(p2-m)*(p2-d));

s:=s1+s2;

writeln(f,d:4:2,' | ',s1:6:2,' | ',s2:6:2,' | ',s:6:2);

d:=d+0.2;

end; close(f);

end.

Ниже пример результатов для четырехугольника со сторонами

a:=15; b:=16; c:=8; m:=20; диагональю от d:=19 до 23,80 с шагом увеличения 0,2


hello_html_71e39b.png

Шаг увеличения диагонали можно выбрать любой. В данном случае шаг в 0.2 выбран исходя из практических соображений. 0.2<<19. Таким образом выбор шага увеличения d зависит от требований точности для полученных результатов.

Просмотрено: 0%
Просмотрено: 0%
Скачать материал
Скачать материал

Найдите материал к любому уроку, указав свой предмет (категорию), класс, учебник и тему:

5 491 095 материалов в базе

Скачать материал

Вам будут интересны эти курсы:

Оставьте свой комментарий

Авторизуйтесь, чтобы задавать вопросы.

  • Скачать материал
    • 02.10.2016 1274
    • DOCX 47.9 кбайт
    • Оцените материал:
  • Настоящий материал опубликован пользователем Урусов Хасан Ханафиевич. Инфоурок является информационным посредником и предоставляет пользователям возможность размещать на сайте методические материалы. Всю ответственность за опубликованные материалы, содержащиеся в них сведения, а также за соблюдение авторских прав несут пользователи, загрузившие материал на сайт

    Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете оставить жалобу на материал.

    Пожаловаться на материал
  • Автор материала

    Урусов Хасан Ханафиевич
    Урусов Хасан Ханафиевич
    • На сайте: 6 лет и 1 месяц
    • Подписчики: 0
    • Всего просмотров: 6046
    • Всего материалов: 9